第3章 分支结构程序设计课程.ppt

第3章 分支结构程序设计 3.1 关系、逻辑运算符及其表达式 3.2 If 语句 3.3 Select Case 语句 3.1 关系、逻辑运算符与表达式 要实现分支结构，一般先需要判断给定的条件，然后再根据判断的结果进行相应的处理。在判断条件时，最常用的运算符是关系运算符和逻辑运算符。 【例3.1】在窗体上添加两个命令按钮。 编写代码: 说明： 关系运算是对运算符左右两边的表达式进行比较，而且比较的结果只能为“真”或“假”； 对于数值型数据按其数值大小比较，在VB中True对应的数值为-1，False对应的数值为0； 对于字符型数据从字符串的第一个字符开始，逐个按其ASCII码值进行比较。 【例3.2】在窗体上添加3个命令按钮。 程序代码： 说明： VB中各种运算符其运算的先后顺序是： 算术运算符 字符串运算符 关系运算符 逻辑运算符 3.2 If语句 3.2.1 单行If语句 3.2.2 多行If语句 3.2.3 If语句的嵌套 3.2.1 单行If语句 分支结构就是利用计算机语言来描述分支现象，即，通过比较和判断来决定采取何种操作。在VB中，通常用If语句、Select Case语句或条件函数解决分支结构问题。 Private Sub cmdJudge_Click() a = Val(Text1.Text) If a Mod 2 = 0 Then b$ = 偶数 Else b$ = “奇数 Text2.Text = b$ End Sub Private Sub cmdClear_Click() Text1.Text = Text2.Text = Text1.SetFocus End Sub Private Sub cmdExit_Click() End End Sub 程序代码： Private Sub txtInput_Change() Dim x, y As Integer x = Val(txtInput.Text) If x = 0 Then y = x ^ 3 + 1 If x 0 And x = 2 Then y = 2 If x 2 Then y = 5 * x txtResult.Text = y End Sub 单行If语句的一般格式为： If 表达式 Then 语句1 [Else 语句2] Private Sub chk1_Click() If chk1.Value=1 Then Label1.Caption= “选中” Else Label1.Caption = 未选中 End Sub 说明： 复选框有3种状态，其状态用Value属性值表示，0表示没有选中；1表示选中；2表示选中但不可用（复选框呈灰色）； 通过If…Then…Else语句实现对复选框不同状态的信息显示。 说明： 使用4个If语句处理各复选框的选择情况。当If后面表达式的值为非0时，执行Then后面的语句，否则执行Else后面的语句； QBColor是VB提供的函数，它返回不同的颜色，其调用形式是：QBColor(颜色参数) 其中颜色参数是介于0到15之间的整数。 编程点拨 本例涉及到程序算法问题。为了在3个数中求出最大数或最小数，可设计如下流程图（以求最大数为例）： 说明： max是为了存放最大数而开辟的变量，min是为存放最小数而开辟的变量； 本例中用到一个新的控件——单选按钮。其特点是在一组单选按钮中只能选中其中的一项。 3.2.2 多行If语句 多行If 语句也称为块 If 语句，在一个分支结构中若使用多条语句，则需用多行If语句实现。 窗体1的代码： Private Sub cmdCheck_Click() If Text1.Text = 123456 Then MsgBox 密码正确,请进入！ frmEx3_8_1.Hide frmEx3_8_2.Show Else MsgBox “密码错,请重新输入！” Text1.Text = “ Text1.SetFocus End If End Sub Private Sub cmdExit_Click() End End Sub 说明： 多行If语句的一般形式是： If 表达式 Then 语句组1 [Else 语句组2] End If Private Sub cmdSort_Click() Dim a As Long