VB中MsgBox函数的应用
执行MsgBox 函数，程序被暂停并产生一个对话框。对话框中包含提示信息和命令按钮，等待用户单击某个命令按钮。Msgbox函数返回所选按钮的整数值，并以此作为程序继续进行的依据。
格式：Msgbox（prompt[,type][,title][,helpfile,context])
操作方法
- 01
打开VB6.0，选择标准EXE，点击打开
- 02
在窗体中，增加标签和文本框，修改窗体的名称为“圆周长和面积计算",如下图
- 03
在代码窗口编辑窗体form的单击事件，代码如下： Private Sub Form_Click() Const p! = 3.14 Dim r!, l!, s! r = Val(InputBox("请输入圆的半径:", "圆的周长和面积计算", 1)) l = 2 * p * r s = p * r * r result1 = MsgBox("周长l=" & l, 64, "圆") Text2.Text = s End Sub
- 04
运行程序，输入一个r的值之后就会出现一个Msgbox图像框它表示出了圆的周长。
- 05
msgbox函数应用是很广泛的接下来我们来看看它在求一元二次方程根当中的应用，在新建的form窗口中添加一个命令按钮，并将它的caption属性修改为“求根”同时把form的caption属性修改为“求二元一次方程的根"
- 06
接着编写一个command1的click事件，代码如下： Option Explicit Private 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和保存工程，即可多次进行运行。