大家看看这个怎么解决
用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