要求两个listbox,分别为原始、结果数据，command按钮分别为产生数据、删除数据、逆序排列、从大到小排序

重交的VB实验报告？正好我有代码
Command按钮从1到7，分别是“产生数据、最大数、最小数、查找数据、删除数据、逆序排列、从大到小排序”

代码：

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Const n = 10
Dim a(1 To n) As Integer

Private Sub Command1_Click()
Randomize
List1.Clear
For i = 1 To n
a(i) = Int(Rnd * 90 + 10)
List1.AddItem a(i)
Next
End Sub

Private Sub Command2_Click()
List2.Clear
Dim max As Integer
max = 10
For i = 1 To n
If a(i) > max Then max = a(i)
Next
List2.AddItem max
End Sub

Private Sub Command3_Click()
List2.Clear
Dim min As Integer
min = 100
For i = 1 To n
If a(i) < min Then min = a(i)
Next
List2.AddItem min
End Sub

Private Sub Command4_Click()
List2.Clear
Dim x As Integer
Dim flag As Boolean
flag = False