VB中MsgBox函數的應用
- IT技術
- 關注:1.2W次
執行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
(07)運行程序,點擊”求根“按鈕”,在出現的對話框中依次輸入abc的值,如依次輸入1、-2、1
(08)點擊確認之後,就會出現了一個關於二元一次方程根x1和x2的msgbox的對話框。
(09)那麼引發這個msgbox對話框的程序就是圖中紅框所圈的那部分
(10)點擊左上角的“文件”,打開下拉菜單,分別點擊保存Form1和保存工程,即可多次進行運行。
特別提示
Msgbox函數沒有返回值
- 文章版權屬於文章作者所有,轉載請註明 https://miaozhigu.com/sm/itjishu/2eexov.html