VB中 随即产生50个3位…………（初学者不要编的太复杂，且用数组编写）

来源：百度知道 编辑：UC知道 时间：2024/05/14 03:45:27
VB中 随即产生50个3位正整数，统计其中有多少个素数，并输出这些素数（初学者不要编的太复杂，且用数组编写）
Private Sub Command1_Click()
Dim i%, j%, s%(1 To 50), n%
Randomize

For i = 1 To 50
s(i) = Int(Rnd * 900 + 100)
For j = 2 To Sqr(s(i))
If s(i) Mod j = 0 Then Exit For
Next
If j >= Sqr(s(i)) Then
n = n + 1
Print "第"; n; "个素数："; s(i)
End If
Next
Print "完成！一共"; n; "个素数！"
End Sub
问:前面的基本上知道，但那个f j >= Sqr(s(i)) Then
n = n + 1 的不太理解，能否解释下？

Private Sub Command1_Click()
Dim i%, j%, s%(1 To 50), n%
Randomize

For i = 1 To 50
s(i) = Int(Rnd * 900 + 100)
For j = 2 To Sqr(s(i))
If s(i) Mod j = 0 Then Exit For
Next
If j >= Sqr(s(i)) Then
n = n + 1
Print "第"; n; "个素数："; s(i)
End If
Next
Print "完成！一共"; n; "个素数！"
End Sub