Private
Sub
Command1_Click()
n = Val(Text1.Text)
For
j = 2
To
n - 1
If
n
Mod
j = 0
Then
Exit
Next
j
j > n - 1
Print
"是素数"
Else
"不是素数"
End
by: 发表于:2017-11-27 11:31:54 顶(0) | 踩(0) 回复
??
by: 发表于:2017-11-27 11:31:54 顶(0) | 踩(0) 回复
??
回复评论