你是郑大的吧,这道题我也刚做完哦
Private Sub Command1_Click()
Dim a(20) As Integer
Dim b()
Print "20个随机数：";
For i = 1 To 20
a(i) = Int(Rnd * 90 + 1)
Print a(i);
Next i
Print
Print
For i = 1 To 19
For j = i + 1 To 20
If a(j) > a(i) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
Print "排序后奇数：";
k = 1
For i = 1 To 20
If Not a(i) Mod 2 = 0 Then
ReDim b(k)
b(k) = a(i)
Print b(k);
k = k + 1
End If
Next i
End Sub
祝你VB有个好成绩!
ps.如果还有不会的可以问我,一起探讨下,我也要考了%>_