VB求50随机数的素数个数跟和

随机产生50个[30，150]之间的整数，按要求输出其中的素数，素数个数及素数的和。
（1） 按“产生数据”按钮则产生原始数据在 text1中显示并存放在一维数组里；
（2） 按“查找与计算”则查找相应的素数在 text2中显示，且8个素数一行。并求素数个数和所有素数之和。

Dim num(50) As Integer

Private Sub cmdFind_Click() '查找素数
    sSu = ""
    Dim Sum As Integer
    Dim Count  As Integer
    Sum = 0
    Count = 0
    For i = 0 To 49
        For j = 2 To num(i) 
            If (num(i) Mod j) = 0 Then
                Exit For
            End If
        Next j
        If j = num(i) Then
            sSu = sSu & num(i) & " "
            Count = Count + 1
            Sum = Sum + num(i)
        End If
    Next i
    txtSushu.Text = sSu
    txtCount.Text = CStr(Count)
    txtSum.Text = CStr(Sum)
    
End Sub

Private Sub cmdMake_Click() '产生随机数
    Randomize (Time)
    sStr = ""
    For i = 0 To 49
        num(i) = Rnd() * 120 + 30
        sStr = sStr & CStr(num(i)) & vbTab
        If ((i + 1) Mod 10 = 0) Then
            sStr = sStr & vbCrLf
        End If
    Next
    txtNum.Text = sStr
End Sub