程序设计基础——Visual Basic教程 教学课件 作者 周黎 钱瑛 周阳花 第7章 选择结构程序设计.pptVIP

第7章 选择结构程序设计 学习重点 If语句、IIf函数、Switch函数、Select Case语句的格式与使用。 If 语句的嵌套使用。 掌握常用的选择结构算法。 本章内容 7.1 If语句 7.2 Select Case语句 7.3 基本算法及应用 7.4 其他应用举例 本章小结 7.1 If语句 If…Then…结构 格式1 块形式： If 条件表达式 Then 语句体 End If 格式2 单行形式： If 条件表达式 Then 语句体 7.1 If语句 例7-1 电子闹钟设计，主要利用文本框、按钮、计时器控件实现闹钟功能。 7.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 7.1 If语句 If…Then…Else…结构 格式1 块形式： If 条件表达式 Then 语句体1 Else 语句体2 End If 格式2 单行形式： If 条件表达式 Then 语句体1 Else 语句体2 7.1 If语句 例7-2 已知x，求 。 7.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 7.1 If语句 If…Then…ElseIf…结构 格式如下： If 表达式1 Then 语句体1 ElseIf 表达式2 Then 语句体2 …… [Else 语句体n+1] End If 7.1 If语句 If…Then…ElseIf…结构 7.1 If语句 例7-3 旅客乘车旅行，可免费携带30公斤行李，超 过30公斤的部分每公斤需支付托运费10元，超过50 公斤部分则每公斤需支付20元托运费。请编程根据 每位旅客行李的重量计算其应付的行李托运费。 7.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 7.1 If语句 If语句的嵌套 使用If语句的嵌套时要注意以下几点： （1）If语句的完整性，即内层If语句必须完整地出现在外层If语句的Then子句或Else子句中。这就像大盒子中装小盒子一样，只有小盒子的所有部分都在大盒子内部时，大盒子才有可能合上。 （2）Else与If的匹配，因为If语句格式的多样，使得匹配时的情形有时较为复杂，总的来说，必须遵循这样的匹配原则，即Else始终与上面距离其最近的未被匹配过的 If匹配。 7.1 If语句 （3）块形式下的If语句中，End If与If也要匹配。If 块必须以一个 End If 语句结束。 （4）使用If语句的嵌套不一定会更好地体现程序的层次性，在这种情况下，使用If…ElseIf…End If…格式较好。 7.1 If语