笔记5(矿).docVIP

第5部分 VB控制结构 一、控制结构 顺序结构：按照书写顺序，先写先执行（不是指事件过程的执行先后） 选择结构：根据条件成立与否，决定语句是否执行 循环结构：根据条件，反复执行 二、顺序结构 Vb程序是由语句构成的 1、赋值语句 格式：变量名 = 表达式 对象名.属性名 = 表达式 例子：a%=1000 Form1.backcolor = vbred 请记住：算法1：交换算法 Private Sub Command1_Click() Dim x%, y%, t% x = InputBox(请输入一个数字) y = InputBox(请输入一个数字) Print x, y t = x x = y y = t Print x, y End Sub 请记住：赋值语句要求左右类型一致！ 当类型不一致时，左有类型以左为主，左无类型类型（variant）以右为主 例子：（隐式转换） 1）小数向整数：四舍六入 Dim a% a = 4.5 --------a中是4 2）字符串和数字 Dim a% a = “1234” -------a中1234 dim b$ b = 456 -------b中“456” 3）逻辑和数值 Dim a%，b% a = true -------a中-1 b = false -------b中0 dim x as boolean，y as boolean x = 100 -------x中true y = 0 -------y中false 规律：true----- -1 false -------0 非0-----true 0-----false 例子：a = “abc” ------左无类型以右为主 2、注释语句（语句绿色，机器不执行） ‘：单独成行或者放在语句后面 Rem：单独成行 记住：做程序改错题时，将？更改为正确代码后，删除注释符 3、结束语句：end -------结束vb运行的程序 三、选择结构（单分支、双分支、多分支） 1、单分支 格式 单行：if 表达式 then 语句 多行：if 表达式 then 语句 End if 功能：当表达式的值为true，执行语句 说明：表达式的形式 关系表达式：if xy then 逻辑表达式：if xy and xz then 数值表达式：if 2*3 then 例题：交换x和y中的值，保证x中的值永远大于y中。 Private Sub Command1_Click() Dim x%, y%, t% x = InputBox(请输入一个数字) y = InputBox(请输入一个数字) Print x, y If x y Then t = x x = y y = t End If Print x, y End Sub 2、双分支 格式： 单行：if 表达式 then 语句1 else 语句2 多行：if 表达式 then 语句1 else 语句2 End if 功能：表达式的结果为true执行语句1，否则语句2 例题1：通过键盘输入2个数据，求最大值（算法2：求最值） Private Sub Command1_Click() x = Val(InputBox(请输入一个数据)) y = Val(InputBox(请输入一个数据)) If x y Then Print x Else Print y End If End Sub Private Sub Command1_Click() Dim x%, y% x = InputBox(请输入一个数据) y = InputBox(请输入一个数据) If x y Then Print x Else Print y End If End Sub 例题2：通过键盘输入一个数字，判断奇偶性（算法3：判断奇偶性 mod） Private Sub Command1_Click() Dim x% x = InputBox(请输入一个数据) If x Mod 2 = 0 Then Print x; 是偶数 Else Print x; 是奇数 End If End Sub 3、iif函数 格式：iif（表达式，表达式为true时的结果，表达式为false时的结果） 例子：使用iif求2个数中的最大值 Private Sub Command1_Click() Dim x%,