訊息窗MsgBox
MsgBox "訊息內容"
例如: MsgBox "這是訊息視窗"
設定回覆訊息
MsgBox "訊息內容",回覆按鈕設定值
設定值 |
設定值之常數符號 |
回覆按鈕 |
0 |
VbOKOnly |
確定 |
1 |
VbOKCancel |
確定
取消 |
2 |
VbAbortRetryIgnore |
異常終止(A)
重試(R) 略過(I) |
3 |
VbYesNoCancel |
是(Y) 否(N)
取消 |
4 |
VbYesNo |
是(Y) 否(N)
|
5 |
VbRetryCancel |
重試(R)
取消 |
例如:MsgBox "回覆按鈕!",
VbYesNo
設定訊息圖示
MsgBox "訊息內容",圖示設定值
設定值 |
設定值之常數符號 |
16 |
VbCritical |
32 |
VbQuestion |
48 |
VbExclamation |
64 |
VbInformation |
例如:MsgBox "回覆圖示!", VbQuestion
設定抬頭
MsgBox "訊息內容",回覆按鈕設定值+圖示設定值,抬頭
MsgBox "訊息內容",,抬頭
例如:MsgBox "你好",,"打招呼"
MsgBox通用格式
MsgBox "訊息內容",回覆按鈕設定值+圖示設定值,抬頭
MsgBox函數
按鈕 |
傳回值 |
傳回值之常數符號 |
確定 |
1 |
vbOK |
取消 |
2 |
VbCancel |
異常終止(A)
|
3 |
VbAbort |
重試(R) |
4 |
VbRetry |
略過(I) |
5 |
VbIgnore |
是(Y) |
6 |
VbYes |
否(N) |
7 |
VbNo |
例如:X =
MsgBox ("懂了嗎?",vbYesNo+vbQuestion)
If X = vbYes then
MsgBox "恭喜!"
Else
MsgBox "加油!"
End If
再談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
|