VB中总是提示缺少then或goto为什麽啊?
答案:6 悬赏:0 手机版
解决时间 2021-04-02 02:16
- 提问者网友:难遇难求
- 2021-04-01 22:12
VB中总是提示缺少then或goto为什麽啊?
最佳答案
- 五星知识达人网友:詩光轨車
- 2021-04-01 22:21
If n=2m GoTo 190 改 If n=2*m GoTo 190
先试试看
先试试看
全部回答
- 1楼网友:话散在刀尖上
- 2021-04-02 02:28
If n=2m then GoTo 190
- 2楼网友:孤独入客枕
- 2021-04-02 01:51
If n=2m then GoTo A190
是不是 If n=2 * m then GoTo 190 ???
是不是 If n=2 * m then GoTo 190 ???
- 3楼网友:十年萤火照君眠
- 2021-04-02 01:12
第175行请修改成:175 If n = 2 * m Then GoTo 190
2m 在vb中是不能被认识的,既不是变量也不是表达式,如果是变量的话,需要以字母或下划线开头,如果说是表达式,中间应该加上运算符,根据你的算法来看,应该是表达式,因此修改成2*m
另外,vb中IF语句后面必须跟 Then 否则将出现语法错误。
2m 在vb中是不能被认识的,既不是变量也不是表达式,如果是变量的话,需要以字母或下划线开头,如果说是表达式,中间应该加上运算符,根据你的算法来看,应该是表达式,因此修改成2*m
另外,vb中IF语句后面必须跟 Then 否则将出现语法错误。
- 4楼网友:低音帝王
- 2021-04-02 00:32
Private Sub jcbutton1_Click()
10 i = Val(Text1)
20 j = Val(Text2)
30 If i > j Then
40 n = i
50 m = j
60 Else
70 n = j
80 m = i
90 End If
100 Do
110 s = n - m
120 If s > m Then
130 n = s
140 Else
150 n = m
160 m = s
170 End If
175 If n=2*m GoTo 190
End If 'If后面都要加
180 Loop
190 Print "最大公约数为"; m
End Sub
10 i = Val(Text1)
20 j = Val(Text2)
30 If i > j Then
40 n = i
50 m = j
60 Else
70 n = j
80 m = i
90 End If
100 Do
110 s = n - m
120 If s > m Then
130 n = s
140 Else
150 n = m
160 m = s
170 End If
175 If n=2*m GoTo 190
End If 'If后面都要加
180 Loop
190 Print "最大公约数为"; m
End Sub
- 5楼网友:慢性怪人
- 2021-04-01 23:04
其实提示已经很明确的提示你有语法错误了,你还想怎么着?改过来呗。难道你还想强行改变VB的语法吗? 在 175行的 2m 后面添加 then ,把 go to 改成 goto 明白了吗?你看看是不是完全和报错提示的提示是一样的?
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯