語法
InputBox（prompt[， title] [， default] [， xpos] [， ypos] [， helpfile， context]）
InputBox 函數(shù)的語法具有以下幾個命名參數(shù)的部分描述
Prompt 必需的。作為對話框消息出現(xiàn)的字符串表達(dá)式。prompt 的最大長度大約是 1024 個字符，由所用字符的寬度決定。如果 prompt 包含多個行，則可在各行之間用回車符 （Chr（13））、換行符 （Chr（10）） 或回車換行符的組合 （Chr（13） & Chr（10）） 來分隔。
Title 可選的。顯示對話框標(biāo)題欄中的字符串表達(dá)式。如果省略 title，則把應(yīng)用程序名放入標(biāo)題欄中。
Default 可選的。顯示文本框中的字符串表達(dá)式，在沒有其它輸入時作為缺省值。如果省略 default，則文本框?yàn)榭铡?/P>
Xpos 可選的。數(shù)值表達(dá)式，成對出現(xiàn)，指定對話框的左邊與屏幕左邊的水平距離。如果省略 xpos，則對話框會在水平方向居中。
Ypos 可選的。數(shù)值表達(dá)式，成對出現(xiàn)，指定對話框的上邊與屏幕上邊的距離。如果省略 ypos，則對話框被放置在屏幕垂直方向距下邊大約三分之
buttons 參數(shù)有下列設(shè)置值：
常數(shù) 值 描述
vbOKOnly 0 只顯示 OK 按鈕。
VbOKCancel 1 顯示 OK 及 Cancel 按鈕。
VbAbortRetryIgnore 2 顯示 Abort、Retry 及 Ignore 按鈕。
VbYesNoCancel 3 顯示 Yes、No 及 Cancel 按鈕。
VbYesNo 4 顯示 Yes 及 No 按鈕。
VbRetryCancel 5 顯示 Retry 及 Cancel 按鈕。
VbCritical 16 顯示 Critical Message 圖標(biāo)。
VbQuestion 32 顯示 Warning Query 圖標(biāo)。
VbExclamation 48 顯示 Warning Message 圖標(biāo)。
VbInformation 64 顯示 Information Message 圖標(biāo)。
vbDefaultButton1 0 第一個按鈕是缺省值。
vbDefaultButton2 256 第二個按鈕是缺省值。
vbDefaultButton3 512 第三個按鈕是缺省值。
vbDefaultButton4 768 第四個按鈕是缺省值。
vbApplicationModal 0 應(yīng)用程序強(qiáng)制返回；應(yīng)用程序一直被掛起，直到用戶對消息框作出響應(yīng)才繼續(xù)工作。
vbSystemModal 4096 系統(tǒng)強(qiáng)制返回；全部應(yīng)用程序都被掛起，直到用戶對消息框作出響應(yīng)才繼續(xù)工作。
vbMsgBoxHelpButton 16384 將Help按鈕添加到消息框
VbMsgBoxSetForeground 65536 指定消息框窗口作為前景窗口
vbMsgBoxRight 524288 文本為右對齊
vbMsgBoxRtlReading 1048576 指定文本應(yīng)為在希伯來和阿拉伯語系統(tǒng)中的從右到左顯示
第一組值 （0–5） 描述了對話框中顯示的按鈕的類型與數(shù)目；第二組值 （16， 32， 48， 64） 描述了圖標(biāo)的樣式；第三組值 （0， 256， 512） 說明哪一個按鈕是缺省值；而第四組值 （0， 4096） 則決定消息框的強(qiáng)制返回性。將這些數(shù)字相加以生成 buttons 參數(shù)值的時候，只能由每組值取用一個數(shù)字。
注意 這些常數(shù)都是 Visual Basic for Applications （VBA） 指定的。結(jié)果，可以在程序代碼中到處使用這些常數(shù)名稱，而不必使用實(shí)際數(shù)值。
返回值
常數(shù) 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
舉例本示例使用 MsgBox 函數(shù)，在具有“是”及“否”按鈕的對話框中顯示一條嚴(yán)重錯誤信息。示例中的缺省按鈕為“否”，MsgBox 函數(shù)的返回值視用戶按哪一個鈕而定。本示例假設(shè) DEMO.HLP 為一幫助文件，其中有一個內(nèi)容代碼為 1000.
Dim Msg， Style， Title， Help， Ctxt， Response， MyString
Msg = "Do you want to continue ？" ' 定義信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定義按鈕。
Title = "MsgBox Demonstration" ' 定義標(biāo)題。
Help = "DEMO.HLP" ' 定義幫助文件。
Ctxt = 1000 ' 定義標(biāo)題
' 上下文。
' 顯示信息。
Response = MsgBox（Msg， Style， Title， Help， Ctxt）
If Response = vbYes Then ' 用戶按下“是”。
MyString = "Yes" ' 完成某操作。
Else ' 用戶按下“否”。
MyString = "No" ' 完成某操作。
End If
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
