设计一个过程，完成对10个数中最小数的求解功能，利用该过程，求随机数最小值，要求必须使用数组变量

新建两个List,一个text,一个command
程序如下：

Sub min(ByRef a() As Integer)
Dim i, j As Integer
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
t = a(j)
a(i) = a(j)
a(j) = t
End If
Next
Next
End Sub

Private Sub Command1_Click()
List1.Clear: List2.Clear
Dim b(1 To 10) As Integer
Dim a(1 To 10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
List1.AddItem a(i)
b(i) = Int(Rnd * 90) + 10
List2.AddItem b(i)
Next
Call min(a)
Call min(b)
If a(1) < b(1) Then
m = a(1)
Else
m = b(1)
End If
Text1.Text = "A,B种的最小值：" & vbCrLf & m
End Sub