怎么说标签未定义

这是学 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。