Private
Sub
Command1_Click()
a
=
Val(InputBox("ÇëÊäÈëÒ»¸öÕûÊý"))
For
i
=
2
To
Sqr(a)
If
a
Mod
i
=
0
Then
Exit
For
Next
i
If
i
>
Sqr(a)
Then
MsgBox
a
&
"亩闷Ê衡知ÇËØÊý"
Else
MsgBox
a
&
"²»ÊÇËØÊý"
End
Sub
窗口上放一个按钮，点击按钮输迅拦弯入整数即可
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024