code180a.txt

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

Public Sub Main()
  Dim Radians As Double

   For Radians = -0.5 to 0.5 Step 0.2
     Debug.Print "Radians: "; Radians; " Atn: "; Atn(Radians)
   Next
End Sub