...ubox函数输入1个正整数,判断其是否为质数(素数),结果用Msgbox函数显 ...
发布网友
发布时间：2024-10-23 19:08
共1个回答
热心网友
时间：2024-11-18 04:26
Private Sub Form_Click()
Dim x%, i%, y%
x = Val(InputBox("请输入一个正整数"))
For i = 2 To x - 1
y = x Mod i
If y = 0 Then
Exit For
End If
Next i
If i <> x - 1 Then '这里错了，改为 if i<> x then，因为循环完后，i的值正好是x
MsgBox x & "不是素数"
Else
MsgBox x & "是素数"
End If
End Sub
