Page 72 -
P. 72
第四章 程式的流程控制
單元練習 4-2
(一)輸入二個數字，找出比較大的數字。我們用 InputBox 來協助輸入資料，MsgBox 來輸出
資料。
程式碼
Dim x, y As Integer
x = InputBox("請輸入第一數", "輸入二個數字找出大的數")
y = InputBox("請輸入第二數", "輸入二個數字找出大的數")
If x > y Then
MsgBox("最大的數字是" & x, vbOKOnly, "輸出結果")
Else
MsgBox("最大的數字是" & y, vbOKOnly, "輸出結果")
End If
執行結果
68
