VB中总是提示缺少then或goto为什麽啊？

VB中总是提示缺少then或goto为什麽啊？

If n=2m GoTo 190 改 If n=2*m GoTo 190
先试试看

If n=2m then GoTo 190

If n=2m then GoTo A190
是不是 If n=2 * m then GoTo 190 ???

第175行请修改成：175 If n = 2 * m Then GoTo 190
2m 在vb中是不能被认识的，既不是变量也不是表达式，如果是变量的话，需要以字母或下划线开头，如果说是表达式，中间应该加上运算符，根据你的算法来看，应该是表达式，因此修改成2*m
另外，vb中IF语句后面必须跟 Then 否则将出现语法错误。

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

其实提示已经很明确的提示你有语法错误了，你还想怎么着？改过来呗。难道你还想强行改变VB的语法吗？ 在 175行的 2m 后面添加 then ,把 go to 改成 goto 明白了吗？你看看是不是完全和报错提示的提示是一样的？