code178a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 10 行

Public Sub Main()
  Dim Radians As Double

  For Radians = -0.5 to 0.5 Step 0.2
    Debug.Print "Radians: "; Radians; "Cosine: "; Cos(Radians)
    Debug.Print "Radians: "; Radians; "Secant: "; 1 / _
      Cos(Radians)
  Next
End Sub