Dim nAngle, nSecant nAngle = 1.3 ' Definice úhlu v radiánech nSecant = 1 / Cos(nAngle) ' Výpočet sečny