code191a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim Value As Double

  For Value = 0 To 10 Step 0.1
    Debug.Print "Value "; Value; ", Sqr() "; Sqr(Value)
  Next
End Sub