VB6 do loop 语句提示：loop缺少do
答案:3 悬赏:80 手机版
解决时间 2021-03-03 06:41
- 提问者网友：溺爱和你
- 2021-03-02 07:37
在使用Do...loop语句编写一个简单的“求最大公约数”的代码，出现“loop缺少do"的提示。代码如下： Private Sub Form_Load() Dim a, b As Integer a = InputBox("请输入第一个数字", "提示") b = InputBox("请输入第二个数字", "提示") Do While a <> b If a > b Then a = a - b Else b = b - a Loop MsgBox "最大公约数为:" + Str(a), 0 + 64, "运行结果" End End Sub 麻烦大家指出错误之处，谢谢了！
最佳答案
- 五星知识达人网友：不想翻身的咸鱼
- 2021-03-02 07:44
Private Sub Form_Load() Dim a, b As Integer a = InputBox("请输入第一个数字", "提示") b = InputBox("请输入第二个数字", "提示") Do While a <> b If a > b Then a = a - b Else b = b - a End If Loop MsgBox "最大公约数为:" + Str(a), 0 + 64, "运行结果" End End Sub
全部回答
- 1楼网友：渊鱼
- 2021-03-02 10:27
Do While a <> b If a > b Then a = a - b Else b = b - a '这里缺少 end if Loop
- 2楼网友：西风乍起
- 2021-03-02 08:58
loop上一行加上endif
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯