VB第7章 程序VB选择结构程序设计.ppt

第7章 选择结构程序设计 学习重点 If语句、IIf函数、Switch函数、Select Case语句的格式与使用。 If 语句的嵌套使用。 引言 分支结构 7.1 If语句 7.1.1 If…Then…结构 7.1.2 If…Then…Else…结构 7.1.3 If…Then…ElseIf…结构 7.1.4 If语句的嵌套 7.1.5 与If语句有关的函数 7.1.1 If…Then…结构 两种格式： 7.1.1 If…Then…结构 例：已知有两数x、y，编程使x中存放较大的数 分析：如果x=y，则不需要做处理 如果xy，则做交换处理 实现： If x y Then temp = x x = y y = temp End If 用格式2描述： If x y Then temp = x:x = y:y = temp 7.1.1 If…Then…结构 例7-1 电子闹钟设计，主要利用文本框、按钮、计时器控件实现闹钟功能。 例 程序代码如下： Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled 用Not运算进行开关控制 End Sub Private Sub Timer1_Timer() Dim d As Date d = Text1.Text If Hour(Time) = Hour(d) And Minute(Time) = Minute(d) Then Beep 到达时间后发声 End Sub 7.1.2 If…Then…Else…结构 两种格式： 例： 已知x，求 程序代码如下： Private Sub CmdCul_Click() Dim x As Single, y As Single x = Val(txtX.Text) 第1个文本框的名称是txtX If x 0 Then MsgBox x不能小于0 Else y = Sqr(x) txtY.Text = Str(y) 第2个文本框的名称是txtY End If End Sub 7.1.3 If…Then…ElseIf…结构  If 表达式1 Then 语句体1 ElseIf 表达式2 Then 语句体2 …… [Else 语句体n+1] End If 7.1.3 If…Then…ElseIf…结构 7.1.3 If…Then…ElseIf…结构 例：已知变量ch中存放了一个字符，判断该字符是字母字符、数字字符、空格还是其它字符。 分析：字母字符： ch=“a” And ch=“z” Or ch=“A” And ch=“Z”数字字符：ch=“0” And ch=“9”空格字符：ch=“ ” 实现： 7.1.3 If…Then…ElseIf…结构 例： 旅客乘车旅行，可免费携带30公斤行李，超 过30公斤的部分每公斤需支付托运费10元，超过50 公斤部分则每公斤需支付20元托运费。请编程根据 每位旅客行李的重量计算其应付的行李托运费。 例 此分段函数用程序代码表示如下: Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 30 Then x30 y = 0 ElseIf x = 50 Then 30=x=50 y = (x - 30) * 10 Else x50 y = (x - 50) * 20 + 20 * 10 End If Text2.Text = y End Sub 7.1.4 If语句的嵌套 If语句中又包含If语句 在Then子句或Else子句的语句体中包含完整的一条If语句 如： If x y Then Print x “” y Else If xy Then Print x “” y Else  Print x “=” y End If  End I