VB中 求素数

. 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。
2. 用Sub子过程或Function函数过程判断随机整数是否为素数。
3. 将素数按每行10个数在窗体或文本框中输出。
最好把工程文件发给我 邮箱chjanny405@yeah.net
界面！要有控件的！

发你邮箱了~查收吧
Dim a(100) As Integer, b()
Private Sub Command1_Click()
For I = 1 To 100
a(I) = Int(Rnd * 1000)
Print a(I);
If I Mod 10 = 0 Then Print
Next
Call xx
Print "素数："
For I = 1 To UBound(b)
Print b(I);
If I Mod 10 = 0 Then Print
Next
End Sub
Private Sub xx()
Dim I As Integer, N As Integer, j As Integer
For j = 1 To 100
N = a(j)
For I = 2 To N - 1
If N Mod I = 0 Then Exit For
Next
If I >= N Then
x = x + 1
ReDim Preserve b(x)
b(x) = a(j)
End If
Next

End Sub

楼上的不错

1 楼的 比较 简洁

不过，要稍作修改，可能是为别的题目所编！还有 素数总和 ！

呵呵

把 有 sp 的 行去掉就可以了

Private a(0 To 1001) As Long, b(1 To 1001) As Long
Private Sub Command1_Click()
Randomize
num = 0
For i = 1 To 100
a(i) = Int(Rnd * 10000) + 1
If sushu(a(i)) = 1 Then
num = num + 1
b(num) = a(i)
End If