Private Sub Command1_Click()
a = CInt(Text1)For i = 2 To a - 1 If a Mod i = 0 Then Print "false" Exit For Else Print "ture"
End IfNext
End Sub
text1你输入的是什么
回复 祁老师：输入 2
回复 self confidence：你输入的a是2 循环是2 to a-1 也就是2 to 1 不成立
回复 祁老师：可是2也是啊，如何修改？
回复 self confidence：2是质数 是常识，我们在算质数的时候一般不算在内的
回复 祁老师：明白了，谢谢
点赞
扫一扫分享朋友圈
二维码
分享
你确定要删除这个问题吗?
