【VB編程】05.MsgBox與InputBox函數

在VBA程序中，數據的輸入輸出是通過函數實現的，其實現的方式是通過對話框的形式表示出來的。例如MsgBox,Inputbox等，不要誤認為是輸入輸出語句的關鍵字，其實僅僅是一個普通函數而已。

【MsgBox函數】

【Tips】

MsgBox是一個函數，那么必定存再返回值，MsgBox的返回值是由用戶所選擇的按鈕決定的，在設計程序時可依據MsgBox的返回值做不同的處理，此時需要保存MsgBox函數的返回值，保存MsgBox函數的返回值的變量最好聲明一個整型變量

【代碼區域】

Private Sub 查看Msgbox的返回值() '測試Msgbox的返回值
 Dim result As Integer
 result = MsgBox("請選擇一個按鈕", vbYesNoCancel, "測試按鈕窗口")
 MsgBox "MsgBox函數的返回值是： " & result '顯示Msgbox函數的返回值
End Sub

　　

【代碼解析】

第二行聲明了一個變量，第三行用於輸出一個提示，第四行用於展示result返回值

【結果展示】

【InputBox函數】

【Tips】

在使用InputBox函數,此時的返回值是一個字符串類型，其返回值取決於用戶在文本框中輸入的內容，在其構造的對話框中，當單擊確定時，InputBox函數文本框中的字符串類型轉化為Variant類型的數據，經過轉換之后可直接與integer參與計算，但點擊取消后，則會報錯如下：

                                                                

 

【代碼區域】

Private Sub 加法計算()
 Dim jiashu As Integer
 Dim beijiashu As Integer
 Dim qiuhe As Integer
 jiashu = InputBox("請輸入加數", "加法計算")
 beijishu = InputBox("請輸入被加數", "加法計算")
 qiuhe = jiashu + beijiashu
 MsgBox "兩數之和為" & qiuhe, vbOKOnly, "加法計算器"
End Sub

　　

【代碼解析】

第5，6行用於輸入兩個數，第七行用於計算兩個數之和，第8行用於輸出計算結果。

【結果展示】