VB中MsgBox函數的應用
執行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函數沒有返回值
-
如何使用Flash繪製皮卡丘動畫
Flash中文翻譯為“動畫”的意思,是專門用來製作動畫的軟件工具。現在,我們以實際的例子出發看看如何使用Flash軟件繪製皮卡丘圖案吧。操作方法(01)新建文檔雙擊【Flash圖標】,打開軟件。在軟件界面點擊【文件】---【新建】,會彈出的新建文檔窗口點擊【ActionScript3....
-
頭像製作之可愛的猴子
萌萌噠的猴子頭像是我們都喜歡的,也有很多人喜歡拿到它來做我們一些運用的頭像,小編對於萌萌噠的猴子頭像也是很喜愛的,那麼,我們該如何製作可愛的猴子頭像呢?小編為你詳細介紹下:頭像製作之可愛的猴子。工具/材料ai軟件電腦猴子操作方法01首先,我們打開我們的電腦,接...
-
如何設置路由器IP地址
大部分家用路由器的默認IP地址是,如果我們想給路由器換個IP,怎麼設置呢?操作方法(01)首先打開網絡連接,雙擊本地連接,查看計算機IP地址(02)如果是192.168.1.x,則跳過後續步驟,如果不是的,則手動修改為(03)然後在網頁上打開,輸入路由器登錄賬號和密碼【可以在路由器上面查看初...
-
÷除號怎麼打出來
在工作中常常會使用到除號做文件,那麼除號應該怎麼打出來呢?請看下面解析。操作方法(01)方法一:打開word文檔,點擊“插入”》“符號”。(02)點擊“÷”號即可。(03)方法二:在輸入法裏打“÷”即可。...