VB编写一个找出一维数组的最大元素与最小元素的通用过程,并调用此过程,找出由10个两位随机正整数组成的数组的最大元素和最

VB编写一个找出一维数组的最大元素与最小元素的通用过程,并调用此过程,找出由10个两位随机正整数组成的数组的最大元素和最小元素的程序.
以下是我做的,请问怎么修改?
Private Sub maxmin(a() As ingeter)
Dim i As Integer
Max = : Min = ————————不知道填什么……
For i = LBound(a) + 1 To UBound(a)
If a(i) > Max Then
Max = a(i)
ElseIf a(i) < Min Then
Min = a(i)
End If
Next i
End Sub
Private Sub Command1_Click()
Dim x(10) As Integer, maxv As Integer, minv As Integer
Dim i As Integer
For i = 1 To 10
x(i) = maxv
Text1 = Text1 & Str(x(i))
Next i
Call maxmin(x())
Text1 = maxv
Text2 = minv
End Sub
Private Sub Command2_Click()
Text1.Text = "": Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub