VB中MsgBox函式的應用

來源：酷知科普網 1.29W

執行MsgBox 函式，程式被暫停併產生一個對話方塊。對話方塊中包含提示資訊和命令按鈕，等待使用者單擊某個命令按鈕。Msgbox函式返回所選按鈕的整數值，並以此作為程式繼續進行的依據。
格式：Msgbox（prompt[,type][,title][,helpfile,context])

操作方法

（01）開啟VB6.0，選擇標準EXE，點選開啟

（02）在窗體中，增加標籤和文字框，修改窗體的名稱為“圓周長和面積計算",如下圖

（03）在程式碼視窗編輯窗體form的單擊事件，程式碼如下：Private Sub Form_Click()Const p! = 3.14Dim r!, l!, s!r = Val(InputBox("請輸入圓的半徑:", "圓的周長和麵積計算", 1))l = 2 * p * rs = p * r * rresult1 = MsgBox("周長l=" & l, 64, "圓") = sEnd Sub

（04）執行程式，輸入一個r的值之後就會出現一個Msgbox影象框它表示出了圓的周長。

（05）msgbox函式應用是很廣泛的接下來我們來看看它在求一元二次方程根當中的應用，在新建的form視窗中新增一個命令按鈕，並將它的caption屬性修改為“求根”同時把form的caption屬性修改為“求二元一次方程的根"

（06）接著編寫一個command1的click事件，程式碼如下：Option ExplicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim x1 As Single, x2 As Single a = Val(InputBox("請輸入係數a", "一元二次方程求根")) b = Val(InputBox("請輸入係數b", "一元二次方程求根")) c = Val(InputBox("請輸入係數c", "一元二次方程求根")) x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a) MsgBox "x1=" & x1 & vbCrLf & "x2=" & x2, 65, "方程輸出" End Sub