关于vb编程的问题 各位高手进来看看 帮俺解决个难题 可追加50分

来源：百度知道 编辑：UC知道 时间：2024/05/13 23:51:38
要求 (一）实验目的

学会综合运用循环结构、数组和过程进行程序设计的方法。

（二）实验内容

利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。

（三）实验要求

1. 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。

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

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

4. 将素数的个数以及求和结果出到窗体或文本框中。

5. 界面由学生自行设计。

Private Sub Command1_Click()
Cls
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 90 + 10)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print
For i = 1 To 100
If ss(a(i)) = 1 Then
m = m + 1
Print a(i);
If m Mod 10 = 0 Then Print
End If
Next i
Print
Print "素数有："; m; "个"
End Sub
Function ss(ByVal x As Integer)
f = 1
For i = 2 To x - 1
If x Mod i = 0 Then f = 0: Exit For
Next i
If f = 1 Then ss = 1
End Function