vb 大神求助 在线等 利用随机函数产生90个10～99之间的随机整数

Question

将其中的偶数按由小到大的顺序排列，将奇数按由大到小的顺序排列；在产生的90个随机整数中，找出其中的素数，并将这些素数求和。
将找出的素数按每行20个数在文本框中输出，将素数的个数及求和结果也输出到同一个文本框中。

Answer 1

Private Sub Command1_Click()
  Dim a(90) As Integer, i As Integer, ii As Integer, j As Integer, s As Integer, ss As Integer, he As Integer

  Print "随机生成数："
  For i = 1 To 90
    a(i) = Int(Rnd * 90 + 10)
    Print a(i);
    If i Mod 18 = 0 Then Print
  Next i

  For i = 1 To 89
    For ii = i To 90
      If a(i) > a(ii) Then
        j = a(i)
        a(i) = a(ii)
        a(ii) = j
      End If
    Next ii
  Next i

  Print
  Print "偶数（由小到大排列）："
  For i = 1 To 90
    If a(i) Mod 2 = 0 Then
      Print a(i);
      s = s + 1
      If s Mod 18 = 0 Then Print
    End If
  Next i

  s = 0
  Print: Print
  Print "奇数（由大到小排列）："
  For i = 90 To 1 Step -1
    If a(i) Mod 2 <> 0 Then
      Print a(i);
      s = s + 1
      If s Mod 18 = 0 Then Print
    End If
  Next i

  s = 0
  Print: Print
  Print "其中的素数有："
  For i = 1 To 90
    ss = 0
    For ii = 2 To a(i) - 1
      If a(i) Mod ii = 0 Then ss = ss + 1
    Next ii
    If ss = 0 Then
      Print a(i);
      he = he + a(i)
      s = s + 1
      If s Mod 18 = 0 Then Print
    End If
  Next i
  Print: Print
  Print "素数和为：" & he
End Sub

Private Sub Command2_Click()
  Form1.Cls
End Sub

Answer 2

只须在窗体上加一个command和三个图片框
Dim v As Boolean, b() As Integer, c() As Integer
Private Sub Command1_Click() '生成并排列输出
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture3.Print "其中的素数有："
Picture1.Print "随机生成的80个整数如下：："
Picture2.Print "其中的奇数按从小到大的顺序排列，每10个一行如下："
Dim a(1 To 80) As Integer
Randomize
For i = 1 To 80
a(i) = Int(Rnd * 90) + 10 '随机生成两们数的整数
Picture1.Print a(i);
If i Mod 10 = 0 Then Picture1.Print
If js(a(i)) = False Then '把奇数取出
n = UBound(b)
ReDim Preserve b(n + 1)
b(n + 1) = a(i)
End If
If su_su(a(i)) = True Then
m = UBound(c)
ReDim Preserve c(m + 1)
c(m + 1) = a(i)
Picture3.Print c(m + 1);
If (m + 1) Mod 10 = 0 Then Picture3.Print
End If
Next

For j = 1 To n '把奇数按从小到大排序
For k = j + 1 To n + 1
If b(j) > b(k) Then t = b(j): b(j) = b(k): b(k) = t
Next
Picture2.Print b(j); '把奇数每行10个数输出
If j Mod 10 = 0 Then Picture2.Print
Next
ReDim b(0) '把上次数组的值取消，重新开始
End Sub
Public Function js(n As Integer) As Boolean '判断奇偶
If n Mod 2 = 0 Then
v = True
Else
v = False
End If
js = v
End Function
Private Sub Form_Load()
ReDim b(0), c(0) '给动态数组下标上界付第一个值

End Sub

Public Function su_su(n As Integer)
s = 0: i = 2
Do While i <= Sqr(n) And s = 0
If n Mod i = 0 Then
s = 1
Exit Function
Else
i = i + 1
End If
Loop
If s = 0 Then
su_su = True
Else
su_su = False
End If
End Function