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



2011-06-15 11:00
2011-06-15 11:33
2011-06-15 20:33
程序代码: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
2011-06-15 21:41
2011-06-18 16:20
2011-06-18 16:23
2011-06-19 01:05

2011-06-20 22:03
2011-06-22 18:44