再談InputBox輸入窗
呼叫InputBox標準格式
X = InputBox（"提示訊息","抬頭","輸入欄預設值"）
例如：
X = InputBox（"請輸入半徑"） '省略抬頭,輸入欄預設值
X = InputBox（"請輸入半徑","計算圓面積"）'省略輸入欄預設值
X = InputBox（"請輸入半徑",,"25"）'省略抬頭

特別注意事項：InputBox的傳回值為字串，當利用它來輸入數值時會發生資料運算問題
例如：A=InputBox("請輸入A值")
B=InputBox("請輸入B值")
C=A+B
Print "A+B=";C
A+B=1010-----------錯誤答案

利用Val函數把字串資料轉成數值資料
例如：A=Val（InputBox("請輸入A值")）
B=Val（InputBox("請輸入B值")）
C=A+B
Print "A+B=";C
A+B=20-----------正確答案

習題：
寫一程式利用InputBox輸入學生的平常成績、期中考成績、期末考成績，假設平常成績佔40%、期中考成績與期末考成績各佔30%，然後算出其學期成績，並以MsgBox顯示出來。

基本解答
Private Sub Command1_Click()
X = Val(InputBox("請輸入平常成績", "平常成績輸入", "100"))
Y = Val(InputBox("請輸入期中考成績", "期中考成績輸入", "100"))
Z = Val(InputBox("請輸入期末考成績", "期末考成績輸入", "100"))
Ans = X * 0.4 + Y * 0.3 + Z * 0.3
PRINT "學期成績為"; Ans ; "分"
End Sub

進階使用
Private Sub Command1_Click()
X = Val(InputBox("請輸入平常成績", "平常成績輸入", "100"))
Y = Val(InputBox("請輸入期中考成績", "平常成績輸入", "100"))
Z = Val(InputBox("請輸入期末考成績", "期末考成績輸入", "100"))
Ans = X * 0.4 + Y * 0.3 + Z * 0.3
MsgBox "學期成績為" & Ans & "分",,"學期成績結果"
End Sub