| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 611 人关注过本帖
标题:怎么说标签未定义
只看楼主 加入收藏
小闲1
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2013-12-21
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:3 
怎么说标签未定义
Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
sum = 0
i = 1
GoTo 20:
sum = sum + i
i = i + 1
If i <= 100 Then GoTo 20
MsgBox "从1加到100的结果为:" & sum
End Sub
搜索更多相关主题的帖子: 标签 
2014-04-18 21:56
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:10 
GoTo 20:
20在哪? Goto表示程序执行转移,如果有转移程序,名称也不要用数字
Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
sum = 0
For i = 1 to 100
    sum = sum + i
    i = i + 1
Next i
MsgBox "从1加到100的结果为:" & sum
End Sub
2014-04-18 23:02
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
这是学 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。

授人于鱼,不如授人于渔
早已停用QQ了
2014-04-19 10:26
鸥翔鱼游
Rank: 5Rank: 5
等 级:职业侠客
帖 子:182
专家分:323
注 册:2014-4-19
收藏
得分:0 
且学且珍惜,得认学习真正消化
2014-04-28 14:19
快速回复:怎么说标签未定义
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021582 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved