大家看看这个怎么解决
用VB编一个程序,使之从10到99之间选出80个数,把偶数按从大到小排列,把奇数从小到大排列,列出其中的素数,并求出素数的和。本人苦思数日是在无法解决,大家看看怎么办

程序代码:Option Explicit
Dim Temp() As Integer
Private Sub Command1_Click()
Dim MyValue As Integer
ReDim Temp(0)
Do While UBound(Temp) < 80 'Temp(0) ... Temp(79)
Randomize
MyValue = Int((99 * Rnd)) ' 产生 0 到 99 之间的乱数值。
If MyValue > 10 Then
Temp(UBound(Temp)) = MyValue
List1.AddItem CStr(MyValue)
DoEvents
ReDim Preserve Temp(UBound(Temp) + 1)
End If
Loop
End Sub