UC知道VB中Loop Until i >= n Or r 等于 0 应该怎么写?
来源：百度知道 编辑：UC知道 时间：2024/05/21 14:08:13
有一个PPT里用了个宏,有一段VB代码,其中的
Loop Until i >= n Or r = 0
我认为有点问题(就是r=0这一小段).
请大家帮助解决
(头一次提问,没钱,呵呵.抱歉)
完整的代码:
Private Sub CommandButton1_Click()
n = InputBox("请输入一个大于1的正整数", "数据输入")
i = 2
Do
r = n Mod i
i = i + 1
Loop Until i >= n Or r = 0
If r = 0 Then
MsgBox (Str(n) + "是质数")
Else
MsgBox (Str(n) + "不是质数")
End If
End Sub
其中r=0被系统理解为赋值语句了.我试过.
而我需要的是 “r 等于 0”
Loop Until i >= n Or r = 0
我认为有点问题(就是r=0这一小段).
请大家帮助解决
(头一次提问,没钱,呵呵.抱歉)
完整的代码:
Private Sub CommandButton1_Click()
n = InputBox("请输入一个大于1的正整数", "数据输入")
i = 2
Do
r = n Mod i
i = i + 1
Loop Until i >= n Or r = 0
If r = 0 Then
MsgBox (Str(n) + "是质数")
Else
MsgBox (Str(n) + "不是质数")
End If
End Sub
其中r=0被系统理解为赋值语句了.我试过.
而我需要的是 “r 等于 0”
Private Sub CommandButton1_Click()
n = InputBox("请输入一个大于1的正整数", "数据输入")
i = 2
Do
r = n Mod i
i = i + 1
If r = 0 Then
MsgBox (Str(n) + "是质数")
exit sub
end if
Loop Until i >= n
MsgBox (Str(n) + "不是质数")
End Sub
没看出什么问题来，你最好把前面的几句代码也写一下。i >= n Or r = 0只是条件，看不出来。