VB高手请进来解答下，谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/14 22:06:46
定义数组，为数组元素赋随机数值，找出最大数，最小数，并实现查找数据和删除数据，以及实现逆向排序和从大到小排序。数组的随机值显示在LISTBOX1中，结果显示在LISTBOX2中，每个命令均用一个command控制

Dim A() As Integer
Dim m As Integer
Private Sub Command1_Click()
m = InputBox("fdsfds")
ReDim A(m)
Randomize
For i = 1 To m
A(i) = Int(Rnd * 90 + 10)
List1.AddItem A(i)
Next
End Sub

Private Sub Command2_Click()
For i = 1 To m
Max = i
For j = i + 1 To m
If A(Max) < A(j) Then Max = j
Next
t = A(i)
A(i) = A(Max)
A(Max) = t
List2.AddItem A(i)
Next
End Sub

Private Sub Command3_Click()
For i = 1 To m
Max = i
For j = i + 1 To m
If A(Max) < A(j) Then Max = j
Next
t = A(i)
A(i) = A(Max)
A(Max) = t
Next
MsgBox "最大数是" & A(1)
End Sub

Private Sub Command4_Click()
For i = 1 To m
Max = i
For j = i + 1 To m
If A(Max) > A(j) Then Max = j
Next
t = A(i)
A(i) = A(Max)
A(Max) = t
Next
MsgBox "最小数是" & A(1)
End Sub