VB课件第4讲VB控制结构.docVIP

第4讲 VB控制结构 结构化程序设计的三种结构，即顺序结构、选择结构、循环结构。 4.1 顺序结构 4.1.1 赋值语句 1. 赋值语句形式 形式：变量名=表达式 S = x * y + sqr( a + b ) ‘给变量赋值 Text1.Text = “欢迎使用VB ” ‘设定属性 2. 赋值语句注意点 赋值语句不允许写成 表达式=变量，虽然赋值号与关系运算符等于号都用=表示，VB系统会根据所处的位置自动判断符号的意义。 赋值号左边只能是变量，不能是常量、常数符号、表达式。 不要将赋值号“＝”理解为数学上的等号： 3. 赋值语句常用形式 ① 对变量赋值，将表达式的值赋给变量 Y = Abs(x+y)/(x * y) ② 设定对象的属性（只读属性除外） Label1 = “输入” Text1.FontName = “楷体_GB2312” ③ 交换两个变量(A和B)的值 T = A ：A=B ： B=T T = B ：B=A ： A=T ④ 字符串连接 设：C1 = “ABC” C2 = “XYZ” Re= “ ” Re1 = Re + C1 Re1 = Re C1 Re2 = C1 + Re Re2 = C1 Re ⑤ 计数 计数 Num = Num+1 变量Num的值每次加1 Num = 0 Num = Num + 1 ⑥ 累加 累加 S = S + X 变量S的值加X的值再赋给S S = 0 X = 5 : S = S + X X = 6 : S = S + X Print X ; S 4. 赋值号两边数据类型不同时的处理 (1)当表达式为数值型并与变量精度不同时，需强制转换成左边变量的精度。 Dim N% , M% N = 3.5 转换时四舍五入，N中的结果为4 M = 3.2 转换时四舍五入，M中的结果为3 (2)当赋值号左边变量是数值型，而表达式是数字字符串，自动转换成数值类型再赋值。若表达式为非数字字符或空串，则出错。 Dim X% , Y! X = “234.5” 变量X的为数值值235 Y = “AB”、Y=“” 运行时出错 (3)任何非字符型的值赋给字符变量，自动转换为字符型。 Dim X$ ,Y$ ,Z$ X = 1234 : Y = Date : Z = True (4)当逻辑值赋给数值型变量时，True转换成-1，False转换为0；反之当数值赋给逻辑型变量时，非0转换为True,0转换成False。 Dim x As Boolean, y As Boolean, a%, b% x = 1234 : y = 0 a = True : b = False Print x, y, a, b 4.1.2 数据的输出和输入 1. 文本框控件 文本框的Text属性可获得用户从键盘输入的字符型数据类型数据。 Dim x, y, z x = Text1 : y = Text2 Text1和Text2中分别输入12、23，则赋值语句z = x + y中变量z的值为？ x = Val(Text1) : y = Val(Text2) Text1和Text2中还是输入12、23，则赋值语句z = x + y中变量z的值为？ 2. 输入对话框InputBox函数 打开一个对话框，等待用户输入数据，单击“确定”按钮或按回车键后，返回字符型的输入值。函数形式： InputBox(提示[,标题][,默认值][,x坐标位置][,y坐标位置]) 提示：必须，可以是字符常量、变量、表达式。 当某可选项省略，又选择了其后的可选项，则被省略项的逗号“，”占位符不能省略。 3. MsgBox函数和MsgBox过程 函数形式：变量= MsgBox(提示[,按钮][,标题]) 过程形式：MsgBox 提示[,按钮][,标题] 4.2 选择结构 4.2.1 If条件语句 1. 单分支结构 If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 表达式：关系表达式、逻辑表达式，算术表达式。 2. 双分支结构 If 表达式 Then 语句块1 Else 语句块2 End If 或 If 表达式 Then 语句块1 Else 语句块2 3.多分支结构If…Then…ElseIf 语句 If 表达式1 Then 语句块1 ElseIf