Visual Basic程序设计 教学课件 作者 王怀彬 第03章.pptVIP

第3章 窗体和控件 3.1 赋值语句 3.1.1赋值语句 赋值语句是为变量或属性赋值的语句。 语句格式： 变量名=表达式 其中“=”称为赋值号 赋值语句作用有两个： (1) 计算：将赋值号右边表达式的值计算出来； (2) 赋值(存储)：将计算出来表达式的值赋给左边的变量，即存入变量所代表的内存单元。 例如：x=x*3功能是将变量x的值乘以3后又赋值给x。 (1) 直接把数值赋给变量： Dim x As Integer Dim xStr As String x=12 xStr = abcdefg (2) 将一个变量的值赋给另一个变量： a=21 b=a ‘ 这时a、b、c中都是21 (3) 将一个表达式的值赋给一个变量： Dim x As Integer,y As Integer,z As Integer x=16 y=12 z=x*2+y*3 (4) 用赋值语句给对象的某属性设置属性值（有的属性只能通过代码赋值），它的一般格式为：对象名.属性=属性值 例如： Form1.caption=我的VB程序 3.1.2赋值相容 赋值语句左侧的标识符无论是变量还是控件属性，都代表一个存储单元，当执行赋值语句时，如果这个存储单元的结构和大小能够正确的表示赋值号右边表达式的值，则该赋值语句的值是相容的。 如果表达式值的类型与变量(或控件属性)的类型相同，它们当然赋值相容。 如果赋值号左右两边的数据类型不相同，也需要是相容的，只有赋值相容的数据之间才能进行运算操作，否则就会出现“类型不匹配”等错误。 VB对赋值相容的数据类型之间的运算和赋值提供了数据类型自动转换机制。 (1) 数值型与数值型的字符串型的转换 例如： Dim intX As Integer Dim strY As String strY = 123.9 intX = strY strX = 987 strY = strX 上面程序能够正确运行。 又如： Dim intX As Integer Dim strZ As String strZ = hello intX = strZ 而这个程序运行后会提示“类型不匹配”错误，因为系统对非数值型的字符串不能够自动转换成数值类型。 (2) Numeric 数据类型之间的转换 系统提供的Numeric 数据类型有几种，这些种数据类型之间是赋值相容的，相互赋值后不会出错。例如： Dim IntX As Integer Dim LngY As Long IntX = 1234567890 LngY = IntX IntX = LngY 注意：不同的Numeric 数据类型之间的赋值后，结果的精度将可能会受到影响。 3.1.3 Set语句 Set 语句功能是将对象引用赋给变量或属性。 语句格式： Set 对象名 = {[New] 对象表达式 | Nothing} 3.2 输入输出操作3.2.1输入操作 在VB系统中，可以通过系统提供的InputBox函数获得输入数据，或者通过用户界面上的文本框的内容、命令按钮、复选框、单选按钮、列表框、组合框等控件获得输入数据。 例如： x = text1.Text y = InputBox(请输入姓名：) 3.2.2输出操作 1．通过系统提供的MsgBox函数输出数据 例如： MsgBox(“你的密码有错，请重新输入！”) 2．通过用户界面上的文本框等可视控件的属性获得输出结果 例如： Text1.text=x 3．调用Print方法 格式： 对象名. Print 输出项列表 使用说明： (1) 具有Print方法的对象 窗体、立即窗口、图片框、打印机等对象都具有Print方法。如果省略对象名，则在当前窗体上输出。 例如：如果要在窗体Form1上显示：abc，则 Form1.Print abc 或者 Print “abc” 如果要在立即窗口上显示“abc”，则 Debug.Print abc 如果要在窗体Form1上显示：abc，则 Print abc 如果要在打印机上打印字符串：abc，则 Printer.Print abc (2) 输出列表的格式 {Spc(n) | Tab(n)} 表达式 间隔符号 例如： Print 6 Print abc Print 2 + 6 Print a + b + c 当前窗体上输出的结果为： 6 abc 8 abc (3) 如果有多个表达式同时输出，则表达式之间用逗号、分号和空格来分隔。 使用逗号时下一个输出项内容显示