VB程序代码

Question

用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。
（三）实验要求
1. 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。
2. 用Sub子过程或Function函数过程判断随机整数是否为素数。
3. 将素数按每行10个数在窗体或文本框中输出。
4. 将素数的个数以及求和结果出到窗体或文本框中。

Answer 1

Private a(0 To 1001) As Long, b(1 To 1001) As Long
Private Sub Command1_Click()
Randomize
num = 0
For i = 1 To 100
a(i) = Int(Rnd * 10000) + 1
If sushu(a(i)) = 1 Then
num = num + 1
b(num) = a(i)
End If
Next i

For i = 1 To 100
Print a(i),
If (i) Mod 10 = 0 Then
Print
End If
Next i
Print
Print

For i = 1 To num
Print b(i),
If (i) Mod 10 = 0 Then
Print
End If
Next i
End Sub

Public Function sushu(ByVal n As Long)
sushu = 1
For i = 2 To Sqr(n)
If n Mod i = 0 Then
sushu = 0
Exit For
End If
Next i
If n = 1 Then
sushu = 0
End If
End Function