求住一道计算机VB题：只要代码即可

求住一道计算机VB题：只要代码即可
利用随机函数产生80个10～99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中,找出其中的素数,并将这些素数求和

Private Sub Command1_Click()
Dim a(1 To 80) As Integer
Dim b(1 To 80) As Integer
Dim c(1 To 80) As Integer
Dim d(1 To 80) As Integer
Dim i, j, t, k, p As Integer
p = 1
k = 1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
For i = 1 To 80
a(i) = Int(89 * Rnd + 10)
If ((a(i) Mod 2) = 0) Then
b(p) = a(i)
Text2.Text = Text2.Text + Str(b(p))
p = p + 1
Else
c(k) = a(i)
Text3.Text = Text3.Text + Str(c(k))
k = k + 1
End If

Text1.Text = Text1.Text + Str(a(i))

Next

For i = 1 To p - 1
For j = 1 To p - 1 - i
If (b(j) > b(j + 1)) Then
t = b(j)
b(j) = b(j + 1)
b(j + 1) = t
End If
Next
Next
Text2.Text = Text2.Text + vbCrLf
For i = 1 To p - 1
Text2.Text = Text2.Text + Str(b(i))
Next
For i = 1 To k - 1
For j = 1 To k - 1 - i
If (c(j) < c(j + 1)) Then
t = c(j)
c(j) = c(j + 1)
c(j + 1) = t
End If
Next
Next
Text3.Text = Text3.Text + vbCrLf
For i = 1 To k - 1
Text3.Text = Text3.Text + Str(c(i))
Next
t = 0
Text4.Text = ""
For i = 1 To 80
j = 2
While (j < Int(a(i) / 2))
If ((a(i) Mod j) = 0) Then
GoTo bbb
End If
j = j + 1
Wend
bbb: If (j >= Int(a(i) / 2)) Then
t = t + a(i)
Text4.Text = Text4.Text + Str(a(i))
End If
Next
Text4.Text = Text4.Text + vbCrLf + Str(t)
End Sub
再问： 你这个好像不太对哎。。。你用VB运行一下试试
再答： 运行后再发给你的！添加4个text，1个按钮，text的multiline属性设置为true，代码直接拷去即可用。
再问： 麻烦把前缀都加上，再把代码完善下发过来，谢谢