Visual Basic编程疑问

Private Sub Command1_Click()
x = Val(inpoutbox("请输入第一个数："))
da = x
xiao = x
i = 2
Print x;
Do
x = Val(inpoutbox("请输入第" & i & "个数："))
If xiao > x Then xiao = x
If da < x Then da = x
Print x;
Loop Until i = 4
Print
Print "最大数："; da
Print "最小数："; xiao
End Sub

Private Sub Form_Click()
Me.AutoRedraw
Dim a(0 To 3) As Integer
For i = 0 To 3
a(i) = InputBox("请输入4位整数")
Print a(i);
Next i
Min = a(0)
Max = a(0)
For j = 1 To 3
If Min > a(j) Then Min = a(j)
If Max < a(j) Then Max = a(j)
Next j
Print
Print "最小值为：" & Min
Print "最大值为：" & Max
End Sub

max()可以是最大值
min()可以是最小值