输入20个数。输出最大数。最小数和平均值的程序（用VB编程软件）

Private Sub Form_click()
Dim a(1 To 20) As Integer
For i = 1 To 20
a(i) = InputBox("请输入第" & i & "个数", "输入框")
Next
i = 1
Do
For j = i + 1 To 10
If a(j) < a(i) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next

i = i + 1
Loop While i <= 19

Print "其中的最大值是"; a(20)
Print "其中的最小值是"; a(1)
Sum = 0
For i = 1 To 20
avp = avp + a(i)
Next
avp = avp / 20
Print "平均值是"; avp

End Sub

Private Sub Command1_Click()
Dim a(20) As Integer
Sum = 0
For i = 1 To 20
a(i) = InputBox("请输入第" & i & "个数", "数据输入")
Sum = a(i) + Sum
Next i
max1 = a(1)
min1 = a(1)
For i = 1 To 20
If a(i) > max1 Then
max1 = a(i)
End If
If a(i) < min1 Then
min1 = a(i)
End If
Next i
Print max1, min1, Sum/20;