Dim a As Integer,b As Integer,c As Integer,Max As Integer,Min As Integera = InputBox("请输入a值")b = InputBox("请输入b值")c = InputBox("请输入c值")If a > b ThenMax = aMin = bElseMax = bMin = aEnd IfIf...