Private
Sub
Command1_Click()
n = Val(Text1.Text)
For
i = 2
To
n
j = 2
Sqr(i)
If
i
Mod
j = 0
Then
Exit
Next
j
j > Sqr(i)
Print i
End
by: 发表于:2017-11-27 11:31:48 顶(0) | 踩(0) 回复
??
by: 发表于:2017-11-27 11:31:48 顶(0) | 踩(0) 回复
??
回复评论