VB排序题 急啊！！！！！！11

来源：百度知道 编辑：UC知道 时间：2024/07/04 06:50:04
利用随机函数产生60个100--200之间的随机整数，将其中的偶数按从小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出！大家帮忙了！

首先在 窗体上建立三个列表框 分别为 list1 list2 list 3 (三个列表框稍微大点，因为有60个数哦~)
然后是代码：
Option Explicit

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim n(60) As Integer
For i = 1 To 60
Randomize
n(i) = Int(Rnd * (101) + 100)
List1.AddItem n(i)
Next i
For j = 1 To 60
If n(j) Mod 2 = 0 Then
List2.AddItem n(j)
End If
Next j
For k = 1 To 60
If n(k) Mod 2 = 1 Then
List3.AddItem n(k)
End If
Next k

End Sub

我建立的是form-click事件哈，你也可以建立别的。然后点击窗体空白处，就可以知道结果了。
自己装了VB，代码与设计我都试过了，完全正确，不信自己试试..