Function Max(a As Integer, b As Integer)
    
    If a > b Then
        Max = a
    Else
        Max = b
    End If
End Function
Function Min(a As Integer, b As Integer)
    
    If b > a Then
        Min = a
    Else
        Min = b
    End If
End Function
Private Sub Command1_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    c = Val(Text3.Text)
    Print Max(Max(a, b), c)
    Print Min(Min(a, b), c)
End Sub

计算机程序？

VB...