VB高手请进,小弟急求一份代码!!!!

来源：百度知道 编辑：UC知道 时间：2024/06/22 12:32:34
利用随机函数产生100个10-99之间的随机整数,找出其中的素数并将这些素数求和:
1) 100个随机整数按每行10个输出
2) 用Sub子过程或Function函数过程判断随叫整数是否为素数
3) 将素数按每行10个输出
4) 将素数的个数及求和结果输出

另:如果能给出运行结果请发到251429297@qq.com
万分感激!!!!
先谢谢这位大侠仗仪相助,不过你能把需要的控件说明一下,我看你的代码好象不需要什么控件^_^ 恕我愚钝!!

不用发邮件了吧? 直接拷贝过去就可以了
Private Sub Form_Click()
Dim a(1 To 100) As Integer, i As Integer, N As Integer, S As Long
Cls
Print "随机生成的100个数为："
For i = 1 To 100
a(i) = Int(Rnd * 90) + 10
Print Tab(((i - 1) Mod 10) * 4 + 1); a(i);
Next
N = 0
Print Tab(1); "其中的素数有："
For i = 1 To 100
If SuShu(a(i)) = True Then
S = S + a(i)
Print Tab((N Mod 10) * 4 + 1); a(i);
N = N + 1
End If
Next
Print Tab(1); "总共有" & N & "个素数，和为:"; S
End Sub

Function SuShu(N As Integer) As Boolean
Dim i As Integer
SuShu = True
For i = 2 To Sqr(N)
If N Mod i = 0 Then
SuShu = False
Exit Function
End If
Next
End Function