VB高手请进~~~

来源：百度知道 编辑：UC知道 时间：2024/06/25 15:46:20
利用随机函数产生100个10-99之间的随机整数，找出其中的素数。并将这些素数求和~~
每行10个输出到文本框中，用SUB子过程或FUNCTION函数过程判断随机整数是否为素数，素数每行10个输出，素数的个数以及求和结果输出到文本框中！！
急急~~~

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Dim x As Integer
For i = 1 To 100
x = Int(Rnd * 90) + 10
Text1.Text = Text1.Text & Format(x, "!@@@@")
If i Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf
If IsPrime(x) Then
n = n + 1
s = s + x
Text2.Text = Text2.Text & Format(x, "!@@@@")
If n Mod 10 = 0 Then Text2.Text = Text2.Text & vbCrLf
End If
Next i
Text2.Text = Text2.Text & vbCrLf
Text2.Text = Text2.Text & "素数有" & n & "个" & vbCrLf
Text2.Text = Text2.Text & "和为" & s & vbCrLf

End Sub

Public Function IsPrime(ByVal num As Long) As Boolean
Dim m As Long
m = Sqr(num)
IsPrime = True
For i = 2 To m
If num Mod i = 0 Then
IsPrime = False
Exit For
End If
Next i
End Function

yu