这是学 QBAsic 的。
Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
sum = 0
i = 1
'GoTo 20:
20:
'标签应该在这行。标签的写法是: 以标识符或数字开始,不能是保留字,以冒号结束,冒号后面不能再有其它命令,中间也不能有空格。
sum = sum + i
i = i + 1
If i <= 100 Then GoTo 20
MsgBox "从1加到100的结果为:" & sum
End Sub
-------------------------
这是最传统BASIC里的 GO 循环,在VB6里还是支持的,但 就不支持了。
现在结构化程序都不建议使用 goto 。
-------------------------
在VB6 里,只有一种情况下才建议使用GOTO:
从多重循环中直接退出循环,才建议使用GOTO。