191问答库 > 输入一个大于2的自然数N,编程判断是否是素数,如果是输出"YES",否则输出"NO"

输入一个大于2的自然数N,编程判断是否是素数,如果是输出"YES",否则输出"NO"

用VB哦```

2025-04-07 12:17:17

推荐回答（3个）

回答1：

Private Sub Command1_Click()
Dim i%, n%
n = Val(InputBox("输入一个正整数吧！"))
For i = 2 To int (sqr(n - 1))+1
If n Mod i = 0 Then Exit For
Next
MsgBox IIf(i >= int (sqr(n - 1))+1, "yes!", "no!")
End Sub
支持妮可, 不过不想浪费时间和资源

回答2：

Private Sub Command1_Click()
Dim i%, n%
n = Val(InputBox("输入一个正整数吧！"))
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next
MsgBox IIf(i >= n - 1, "yes!", "no!")
End Sub

回答3：

直接支持妮可。
我没想到变量的妙处。