VB程序设计----代码

实验二 循环、数组和过程综合程序设计

（一）实验目的

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

（二）实验内容

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

（三）实验要求

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

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

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

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

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

写出设计代码!!

Dim S(100) As Integer
Dim sumSS As Double
Dim temp() As Integer
Dim N As Integer
Private Function SSif(a As Integer) As Boolean
If a = 2 Then SSif = True
If a > 2 Then
For i = 2 To a - 1
If a Mod i = 0 Then
SSif = False
Exit For
Else
SSif = True
End If
Next i
End If
End Function
Private Sub Command1_Click()
Print "显示输入的100个数据"
For i = 0 To 99
S(i) = Int(Rnd * 90 + 10)
If i Mod 10 = 0 Then
Print
Print S(i);
Else
Print S(i);
End If
Next i

sumSS = 0
For i = 0 To 99
If SSif(S(i)) = True Then
N = N + 1
ReDim Preserve temp(N) As Integer
temp(N - 1) = S(i)
sumSS = sumSS + S(i)
End If
Next i
Print
Print "显示素数数据"
For i = 0 To N - 1
If i Mod 10 = 0 Then
Print
Print temp(i);
Else