VB中输入函数InputBox的用法

趣知站 IT技术 2.75W

InputBox 函数用于接收用户输入的数据。执行该函数后，将弹出一个输入对话框，等待用户输入数据。对话框显示提示信息以及”确定“和”取消“两个按钮。当输入数据并按下”确定“按钮”，将返回用户输入的内容。
格式：InputBox(Prompt[,Title][,Default][,XPos,YPos][,Helpfile,Context])
接下来我们通过圆周长和面积的计算和三角形面积的计算来了解InputBox函数。

操作方法

（01）打开VB6.0，选择标准EXE，点击打开

（02）在窗体中，增加标签和文本框，修改窗体的名称为“圆周长和面积计算",如下图

（03）编写代码，Private Sub Form_Click()Const p! = 3.14Dim r!, l!, s!r = Val(InputBox("请输入圆的半径:", "圆的周长和面积计算", 1))l = 2 * p * rs = p * r * = = sEnd Sub

（04）在代码中我们可以看到第四句就是InputBox函数的应用，它的程序运行过程如下

（05）只要任意输入一个半径，程序就会自动算出周长和面积，如图中我们输入半径为1

（06）接下来我们来编写一个“计算三角形面积“的程序来进一步的了解InputBox函数的运用

（07）在打开的窗口中，添加3个标签、3个文本框以及3个命令按钮，如图所示

（08）接着我们对一些属性进行设置，在属性窗口将Form1的Caption改为”计算三角形面积的程序“；将Lable1/2/3的Caption属性改为”三角形边长a/b/c的值；将Text1/2/3的Text属性删除；将Command1改为”计算三角形的面积“；将command2改为”清除“；Command3改为”退出“。效果如图所示

（09）然后我们就可以依次点击Command1、Command2、Command3编写程序了代码如下：Private Sub Command1_Click() Dim a As Double, b As Double, c As Double Dim s As Double, area As Double, r As Double a = Val(InputBox("请输入三角形边长a的值", "计算三角形面积程序")) = Str(a) b = Val(InputBox("请输入三角形边长b的值", "计算三角形面积程序")) = Str(b) c = Val(InputBox("请输入三角形边长c的值", "计算三角形面积的程序")) = Str(c) If a + b <= c Or a + c <= b Or b + c <= a Then r = MsgBox("您输入的数据不符合组成三角形的条件!", , "计算三角形面积的程序") End Else s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c)) MsgBox "三角形面积是:" & Str(area), , "计算三角形面积程序" End IfEnd SubPrivate Sub Command2_Click() = "": = "": = ""End SubPrivate Sub Command3_Click() EndEnd Sub