code80a.txt
来自「VB大全(精华版)源代码」· 文本 代码 · 共 9 行
TXT
9 行
Public Sub Main()
Dim I As Integer
For I = 1 To 20
If I Mod 2 = 1 Then Next I
Debug.Print I
Next I
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?