code191a.txt

来自「VB大全(精华版)源代码」· 文本 代码 · 共 9 行

TXT
9
字号
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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?