VB循环、数组和过程综合程序设计

利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。
1. 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。

2. 用Sub子过程或Function函数过程判断随机整数是否为素数。

3. 将素数按每行10个数在窗体或文本框中输出。

4. 将素数的个数以及求和结果出到窗体或文本框中。
一楼的电脑高手,请问你运行过你的代码吗?

Private Sub Form_Click()
Randomize
Cls
Dim i As Long, N As Integer, S As String
For i = 1 To 100
A(i) = Int(Rnd * 90) + 10
S = S & A(i) & IIf(i Mod 10 = 0 And i < 100, vbCrLf, " ")
Next
Print "随机生成的100个数为"
Print S

Print "其中的素数有："
N = 0
T = 0
S = ""
For i = 1 To 100
If SuShu(A(i)) Then
N = N + 1
T = T + A(i)
S = S & A(i) & IIf(N Mod 10 = 0, vbCrLf, " ")
End If
Next
Print S
Print "素数的个数有:" & N & "个,其总和是：" & T
End Sub

建立一个command1

Option Explicit
Dim A(99) As Byte, Ss(99) As Boolean
Dim I As Byte, J As Byte
Dim S As Integer

Private Sub Command1_Click()
If Command1.Caption = "产生随机数" Then
Cls