VB程序设计第二版第四章教程.ppt

第4章 Visual Basic的控制结构;引言;4.1 基 本 语 句;4.1.1 赋值语句;注意： （1） 赋值语句兼有计算和赋值的双重功能。先计算右边的结果，然后赋值给左边的变量或者对象的属性。赋值号“=” 与数学中的等号意义不同。 例如：cc=123=456,先计算右边123=456的值，false，最后赋值给cc。 例如，语句I=I+1表示将变量I的值加1后的值再赋给变量I，取代I原有的值，而不表示等号两边的值相等。;（2）赋值号左边必须是变量或对象的属性；左边不能是常量、常数符号以及表达式； 赋值语句以最后一次赋值为准。 例如， X = 1 Let Text1.Text = 你好 1 = X X+1 = X ;（3）变量名或对象属性名的类型应与表达式的类型相容。 1. 赋值号右边表达式的类型应该与左边变量的类型一致。当类型不匹配时，运算结果取左边的数据类型。 类型相容数据是指数据类型??匹配的表达式的值，可以赋值给赋值号左边的变量，否则不相容会产生错误。;数值型数据可以赋值给其他类型变量 数字字符串可以赋值给其他类型变量。 2.数值型表达式与赋值号左边的变量精度不同时，右边的表达式需要强制转换为左边变量的精度。;（4）表达式是数字字符串，左边是数值型，右边的值自动转换成数值型后才赋值。如果表达式中有非数字字符或者空字符串，则会出错。 （5）逻辑型数据赋值给数值型变量，true转换为-1，false转换为0；数值型数据赋值给逻辑型数据，非0转换为true，0为false。 （6）任何类型的表达式都可以赋值给可变体数据类型的变量。;Private Sub Command1_Click() Dim A As Integer, B As Single, C As Double, _ S As String A = 100 类型相同 S = 123.45 类型相同 A = S 类型相容 S = A 类型相容 B = 12345.67 A = B 高精度变量赋给低精度变量，类型相容 C = 123456.789 B = C 高精度变量赋给低精度变量，类型相容 S = abc A = S 错误，类型不匹配 End Sub ;*;【例4-3】 赋值中常出现的错误：溢出错误。代码如下： Private Sub Command1_Click() Dim I As Byte Dim J As Byte Dim Num As Integer I = 600 J = 30 Num = I / J Print Num End Sub ;【例4-4】 赋值中常出现的错误：变量未定义。 代码如下： Option Explicit Private Sub Command1_Click() I = 2 * 5 Print I End Sub ;4.1.2 数据输入;1．用InputBox函数输入数据;格式2：不带返回值的 ;【例4-5】 InputBox的应用。 SJNo = InputBox(请输入手机号码！) 语句执行结果如图4-7所示。 InputBox 请输入手机号码！ ;【例4-6】 InputBox中换行的不同表示方法。 SJNo1 = InputBox(请输入手机号码！ Chr(10) 手机号码只能是11位数字, 注意, 00000000000) SJNo2 = InputBox(请输入手机号码！ Chr(13) 手机号码只能是11位数字, 注意, 00000000000) SJNo3 = InputBox(请输入手机号码！ vbNewLine 手机号码只能是11位数字“, 注意, 00000000000) ;SJNo4 = InputBox(请输入手机号码！ vbCrLf 手机号码只能是11位数字, 注意, 00000000000) SJNo5 = InputBox(请输入手机号码！ Chr(10) Chr(13) 手机号码只能是11位数字, 注意, 00000000000) Inputbox 请输入手机号码！ vbCrLf 手机号码只能是11位数字, 注意, 00000000000 ;;【例4-7】 如果省略InputBox函数的第2个参数而保留第3个参数，则中间的逗号不能省略，如图4-10所示。 SJNo = InputBox(请输入手机号码！, ,