三个数求最值.rar

Private Sub Command1_Click()
    Dim A, B, C, Max As Integer
    A = Val(Text1.Text)
    B = Val(Text2.Text)
    C = Val(Text3.Text)
   
    'A B C 排序
    If A > B Then
        Max = A
        A = B
        B = Max
    End If
    If A > C Then
        Max = A
        A = C
        C = Max
    End If
    If B > C Then
        Max = B
        B = C
        C = Max
    End If

    Text4.Text = A
    Text5.Text = C
    Text6.Text = B

End Sub