Question

vb数组素数 急求

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

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

2、用sub子过程或function函数过程判断随机整数是不是素数。

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

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

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

Answer 1

VB程序:利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。
悬赏分：150 - 解决时间：2008-6-3 08:35
1. 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。

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

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

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

5. 界面由学生自行设计。
问题补充：
我的QQ439606355

提问者： 部落酋长i - 助理 三级 最佳答案
下面是我给你写的程序，需要添加四个文本框，三个按钮，两个标签，其中文本框Text1和Text2的Multiline属性设置成true，ScrollBars属性可以设置成2或者不用设置。你要是对程序有什么疑问也可以留个QQ，我把工程和窗体文件发给你。

'定义全局数组、变量
Dim s(1 To 100) As Integer, t(1 To 100) As Integer, n%

'结束程序
Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Randomize
End Sub

'产生100个10-99的随机整数并存放在数组s中
Private Sub Command1_Click()
Dim i%
Text1 = ""

For i = 1 To 100
s(i) = 89 * Rnd + 10
Next

For i = 1 To 100
Text1 = Text1 & s(i) & " "
If i Mod 10 = 0 Then
Text1 = Text1 + vbCrLf + vbCrLf
End If
Next

End Sub

'显示全部素数以及个数并求和
Private Sub Command2_Click()
Dim sum%
Text2 = ""

For i = 1 To 100
SS (i)
Next

For i = 1 To n
Text2 = Text2 & t(i) & " "
sum = sum + t(i)
If i Mod 10 = 0 Then
Text2 = Text2 + vbCrLf + vbCrLf
End If
Next

Text3 = n
Text4 = sum
n = 0

End Sub

'判断素数子过程
Public Sub SS(k As Integer)
Dim i As Integer

If s(k) < 1 Or s(k) = 1 Then
GoTo over
End If

For i = 1 To s(k) - 2
If s(k) Mod (i + 1) = 0 Then
GoTo over
End If
Next

n = n + 1
t(n) = s(k)
over:

End Sub