code178a.txt

VB大全（精华版）源代码

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