用VB編寫程序(找出三個數中的最大數，通過INPUTBOX函數獲得三個數)

Dim a As Single

Dim b As Single

Dim c As Single

Dim max As Single

a = Val(InputBox("輸入第1個數"))

max = a

b = Val(InputBox("輸入第2個數"))

If b > max Then max = b

c = Val(InputBox("輸入第3個數"))

If c > max Then max = c

MsgBox "最大數是" & max

End Sub