應該寫成
x=a
y=b
2，x = b And y = a
應該寫成
x=b
y=a
3， If x < c Then '如果x < c，那是對的，那麽如果c<x，但是c>y呢?
x = c
End If
可以這樣寫代碼來實現：
Dim a As Integer, b As Integer, c As Integer,Temp As Integer
a = InputBox("輸入a")
b = InputBox("輸入b")
c = InputBox("輸入c")
'把A,B中大的值保存到A
If a < b Then
Temp = a
a = b
b = Temp
End If
'把A,C中大的值保存到A
If a < c Then
Temp = a
a = c
c = Temp
End If
'通過以上兩個IF語句，A保存三個數的最大值
'把B,C中大的值保存到B
If b < c Then
Temp = b
b = c
c = Temp
End If
'至此A,B,C已經保存為大、中、小的狀態
MsgBox ("最大值" & a)
MsgBox ("最小值" & c)