VB求最大值最小值平均值问题

Dim num(10) As Integer

Private Sub cmdAve_Click()
    ave = 0
    For i = 1 To 10
        ave = ave + num(i)
    Next
    ave = ave / 10
    txtAve.Text = ave
    
End Sub

Private Sub cmdClear_Click()
    txtNum.Text = ""
    txtAve.Text = ""
    txtMax.Text = ""
    txtMin.Text = ""
End Sub

Private Sub cmdMake_Click() '产生随机数
    Randomize (Time)
    sStr = ""
    For i = 1 To 10
        num(i) = Rnd() * 89 + 10
        sStr = sStr & CStr(num(i)) & vbTab
        If (i Mod 5 = 0) Then
            sStr = sStr & vbCrLf
        End If
    Next
    txtNum.Text = sStr
End Sub

Private Sub cmdMax_Click()
    Max = 0
    For i = 1 To 10
        If num(i) > Max Then
            Max = num(i)
        End If
    Next
    txtMax.Text = Max
End Sub

Private Sub cmdMin_Click()
    Min = 0
    For i = 1 To 10
        If num(i) > Max Then
            Min = num(i)
        End If
    Next
    txtMin.Text = Min
End Sub