Private Sub Command1_Click()
n = CInt(Text1)
flag = True
For i = 2 To Sqr(n)
If n Mod i = 0 Then
falg = False
Exit For
End If
Next
If flag Then
Print "质数"
Else
Print "非质数"
你前后对比一下2种情况的代码是有区别的
这节课是不是没有课后题目啊 为何我的没有显示呢
点赞
扫一扫分享朋友圈
二维码
分享
你确定要删除这个问题吗?