Visual Basic程序设计第3章.ppt

3.7 输入框 我们知道，文本框可以接收用户的输入。输入框也可以接受用户的输入，但是其风格和用法有别于文本框。VB提供的InputBox函数可生成输入框。 例如：p$=InputBox（请输入密码 ，密码框 ） 执行该语句后，屏幕上显示如图3-6所示的输入框。 标题 文本区 提示 图3-6 输入框 图3-6 输入框 用户可在文本区输入数据，然后按“确定”按钮，函数返回值是用户在文本区输入数据，其类型为字符型。如果用户然后按“取消”按钮，则函数返回值是空字符串。 每执行一次InputBox函数，用户只能输入一个数据，另外，输入框的样式是固定的，用户不能改变。用户能改变的是输入框的“提示”和“标题”的内容，“提示”和“标题”都是字符串表达式。 InputBox函数的一般格式： InputBox（提示[，标题][，缺省值][，x坐标位置][，y坐标位置]） 【例3.3】程序运行后，随着用户的输入，标签中同步显示出用户对文本框的内容更新的次数。运行效果如图3-4所示。 图3- 4 例3.3 运行效果 （1）界面设计 在窗体上建立一个文本框、一个标签。设置各对象的属性，如表3-2所示。 对象 属性 设置 Form1 Caption 文本框应用示例 Text1 text 空 MultiLine True Label1 Caption 空 BorderStyle 1 Alignment 2 Font 字体大小取二号 表3-2 例3.3对象属性设置 （2）编写事件过程如下： Private Sub Text1_Change() Static i% i = i + 1 Label1.Caption = i End Sub 3.5 赋值语句 赋值语句是VB程序最常用、最基本的语句，它能为变量提供数据。另外，若要在程序代码中设置对象的属性，也是使用赋值语句。 赋值语句有两种格式： 格式1： 变量名=表达式 格式2： [对象名.]属性名=表达式 赋值语句的作用是：首先计算“=”右边表达式的值，然后将该值赋给“=”左边的变量或对象的属性。在格式2中，若对象名省略，则默认对象为当前窗体。 例如： x=2 把2赋给x y=x*3 计算x*3的值，得6，把6赋给y x=x+1 计算x+1的值，得3，把3赋给x a$= Hello 把“Hello”赋给a$ Text1.Text=你好！ 把“你好！”赋给Text1的Text属性 这里还要说明一下赋值语句中的类型问题。通常，在使用时应使表达式值的类型与变量（或对象的属性）类型相同，以避免出现“类型不匹配”的错误。不过，某些情况下，VB容许“=”两边类型不相同。 例如： dim x!,y%,z$ x = “12.5”‘ 把数值形式的字符串赋给 数值变量 y=34.24 ‘ 把单精度数赋给整型变 量，此时截去小数部分 z=6 ‘ 把整数赋给实型变量 以上三种情况都是赋值相容的。在赋值相容前提下，当“=”两边类型不相同时，VB自动将表达式值的类型转换成“=”左边变量（或对象的属性）的类型，这种方式称为“向左看齐”。上例中，实际赋给x、y、z的值分别是12.5、34、6.0。 【例3.4 】已知三角形三边a，b，c，的长，求三角形的面积，输出三条边长及面积。 分析：应用程序的界面应该能让用户输入三边的长，程序在接收用户输入的数据后，利用数学公式对数据进行计算，并把结果输出到屏幕上。已知三角形三边a，b，c，的长，求三角形的面积的公式为：  其中p=(a+b+c)/2。 （1）界面设计 在窗体上建立五个标签、三个文本框和一个命令按钮。设置各对象的属性，如表3-3所示。 对象 属性 设置 Form1 caption 计算三角形面积 Label1 caption 请输入三边 Label2 caption a Label3 caption b Label4 caption c Label5 caption 空 Text1 text 空 Text2 text 空 Text3 text 空 Command1 caption 计算 表3-3 例3.4对象属性设置 设计完成的界面如图3-5所示 图3-5 例3.