[其它考试]第5章t选择分支与循环1.pptVIP

第5章 选择分支与循环 学习重点 If语句、IIf函数、Switch函数、Select Case语句的格式与使用。 If 语句的嵌套使用。 掌握常用的选择结构算法。 For…Next语句、Do…Loop语句。 循环语句的嵌套使用。 掌握常用的循环结构算法。 本章内容 5.1.1 If语句 5.1.2 Select Case语句 5.1.3 基本算法及应用 5.1.4 其他应用举例 5.2循环结构与循环结构语句 5.2.1 Do…Loop循环结构语句 5.2.2For…Next循环结构语句 5.2.3 循环嵌套 5.3 程序示例 本章小结 5.1.1 If语句 1. If…Then…结构 格式1 块形式： If 条件表达式 Then 语句体 End If 格式2 单行形式： If 条件表达式 Then 语句体 5.1.1 If语句 例5-1 电子闹钟设计，主要利用文本框、按钮、计时器控件实现闹钟功能。 5.1.1 If语句 程序代码如下： 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 5.1.1 If语句 2. If…Then…Else…结构 格式1 块形式： If 条件表达式 Then 语句体1 Else 语句体2 End If 格式2 单行形式： If 条件表达式 Then 语句体1 Else 语句体2 5.1.1 If语句 例5-2 已知x，求 。 5.1.1 If语句 程序代码如下： 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 5.1.1 If语句 3. If…Then…ElseIf…结构 格式如下： If 表达式1 Then 语句体1 ElseIf 表达式2 Then 语句体2 …… [Else 语句体n+1] End If 5.1.1 If语句 3. If…Then…ElseIf…结构 5.1.1 If语句 例5-3 旅客乘车旅行，可免费携带30公斤行李，超 过30公斤的部分每公斤需支付托运费10元，超过50 公斤部分则每公斤需支付20元托运费。请编程根据 每位旅客行李的重量计算其应付的行李托运费。 5.1.1 If语句 此分段函数用程序代码表示如下: 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 5.1.1 If语句 If语句的嵌套 使用If语句的嵌套时要注意以下几点： （1）If语句的完整性，即内层If语句必须完整地出现在外层If语句的Then子句或Else子句中。这就像大盒子中装小盒子一样，只有小盒子的所有部分都在大盒子内部时，大盒子才有可能合上。 （2）Else与If的匹配，因为If语句格式的多样，使得匹配时的