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

《第7章--程序VB选择结构程序设计ppt课件.ppt》由会员分享，可在线阅读，更多相关《第7章--程序VB选择结构程序设计ppt课件.ppt（53页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第7章 选择结构程序设计 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物学习重点 If语句、IIf函数、Switch函数、Select Case语句的格式与使用。If 语句的嵌套使用。掌握常用的选择结构算法。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物本章内容7.1 If语句7.2 Select Case语句7.3 基本算法及应用7.4 其他应用举例本章小结 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在

2、这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物引言分支结构 True False P A B 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1 If语句7.1.1 IfThen结构 7.1.2 IfThenElse结构 7.1.3 IfThenElseIf结构 7.1.4 If语句的嵌套 7.1.5 与If语句有关的函数 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物注注1 1

3、：条件表达式的值为：条件表达式的值为TrueTrue或或FalseFalse，一，一般是逻辑或关系表达式，也可以是算术表达般是逻辑或关系表达式，也可以是算术表达式（转换为逻辑值）式（转换为逻辑值）7.1.1 IfThen结构两种格式：格式格式1 1： 块形式块形式 格式格式2 2：单行形式单行形式 条件表达式条件表达式语句体语句体TrueFalse注注2 2：当条件为：当条件为TrueTrue时执行语句体，否则执行时执行语句体，否则执行IfIf语句的下一条语句语句的下一条语句注注3 3：语句体中可以是：语句体中可以是多条语句多条语句，当采用，当采用格式格式2 2时，所有的语句必须写在一行，用时

4、，所有的语句必须写在一行，用冒号隔开冒号隔开语句语句体中的语句体中的语句 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.1 IfThen结构例：已知有两数x、y，编程使x中存放较大的数n分析：如果x=y，则不需要做处理 如果xy，则做交换处理n实现：If x y Thentemp = xx = yy = tempEnd Ifn用格式2描述： If x y Then temp = x:x = y:y = temp特别注意：特别注意：块结构时块结构时If和和End If成对出现成对出现我吓了一跳，蝎子

5、是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.1 IfThen结构例例7-1 电子闹钟设计，主要利用文本框、按钮、计时器控件实现闹钟功能。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例例7-1程序代码如下：Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled 用Not运算进行开关控制End SubPrivate Sub Timer1_Timer(

6、) Dim d As Date d = Text1.Text If Hour(Time) = Hour(d) And Minute(Time) = Minute(d) Then Beep 到达时间后发声End Sub 功能：功能： 连续连续1分钟响铃，分钟响铃，60次次等价于：等价于：If Hour(Time) = Hour(d) And Minute(Time) = Minute(d) Then Beep End If 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.2 IfThenElse结构两

7、种格式：格式格式1 1：格式格式2 2：注：当条件为注：当条件为TrueTrue时执行语句体时执行语句体1 1，否则执行语，否则执行语句体句体2 2T条件表达式条件表达式语句体语句体1F语句体语句体2我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例7-2 已知x，求程序代码如下：Private Sub CmdCul_Click() Dim x As Single, y As Single x = Val(txtX.Text) 第1个文本框的名称是txtX If x 0 Then MsgBox x不能小于不

8、能小于0 Else y = Sqr(x) txtY.Text = Str(y) 第2个文本框的名称是txtY End IfEnd Subxy 等价于：等价于：If x =“a” And ch=“A” And ch=“0” And ch=“a” And ch=“A” And ch=“a” And ch=“A” And ch=“0” And ch=“0” And ch=“9” ThenPrint “Print “数字字符数字字符”ElseIf ch=“ ” ThenElseIf ch=“ ” ThenPrint “Print “空格空格” ElseElsePrint “Print “其他字符其他字

9、符”End IfEnd If我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.3 IfThenElseIf结构例7-3 旅客乘车旅行，可免费携带30公斤行李，超过30公斤的部分每公斤需支付托运费10元，超过50公斤部分则每公斤需支付20元托运费。请编程根据每位旅客行李的重量计算其应付的行李托运费。我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例7-3此分段函数用程序代码表示如下此分段函数用程序代码表示如下:Pri

10、vate 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=x50 y = (x - 50) * 20 + 20 * 10 End If Text2.Text = yEnd Sub5050303010*2020*)50(10*)30(0 xxxxxy可以，但可以，但ElseElse已经包含了已经包含了x=30 x=30的信息的信息我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感

11、到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.4 If语句的嵌套If语句中又包含If语句n在Then子句或Else子句的语句体中包含完整的一条If语句n如： If x y ThenPrint x & “” & yElseIf xy ThenPrint x & “” & yElse Print x & “=” & yEnd If End If一条一条IfIf语句语句一条一条IfIf语句语句我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.4 If语句的嵌套n注1： If语句的完整性，即内层If

12、语句必须完整地出现在外层If语句的Then子句或Else子句中。外层外层IfIf内层内层IfIf内层内层IfIf内外层不能有交叉！内外层不能有交叉！我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.4 If语句的嵌套n注2：ElseIf的匹配原则Else始终与上面距离其最近的未被匹配过的 If匹配注3： If End If的匹配If 块必须以一个 End If 语句结束If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If我吓了一

13、跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.4 If语句的嵌套为使程序结构更为清晰，要养成良好的书写习惯。If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If为体现层次，可以使用为体现层次，可以使用TabTab健健排放不同层次的排放不同层次的语句语句我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.1.4 If语句的嵌套例7-4 根据用户输入

14、年龄和性别，输出不同的欢迎信息。其中小于14岁的男性为boy，大于14岁的男性为guy，其中小于14岁的女性为girl，大于14岁的女性为miss。我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例7-4程序代码如下：程序代码如下：Private Sub Command1_Click() If Op_male.Value = True Then If Val(Txt_age.Text) 14 Then 小于小于14岁的男性岁的男性 MsgBox Hello,boy! Else 大于或等于大于或等于14岁的男

15、性岁的男性 MsgBox Hello,guy! End If Else If Val(Txt_age.Text) b Thenmax=aElsemax=bEnd Ifmax= IIf ( ab , a , b ) 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物1. IIf函数函数IIf函数实际上是IfThenElse结构的一个简写 IIf函数中后两个表达式可以是各种类型的表达式，也可以是一个IIf函数的调用Print x & IIf(x 0, “大于0”, “小于或小于0”) s = IIf(x 0, 1

16、, IIf(x = 0, 0, -1) 判断x的符号 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物1. IIf函数函数将If语句改写成使用IIf函数： If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If等价于：等价于：y = IIf(x 30, 0, IIf(x =90,A,grade=80,B,grade=90,A,grade=80,B,grade80,C)用于多

17、分支情况用于多分支情况 条件表达式和值必须成对出现条件表达式和值必须成对出现 ! 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物2. Switch函数函数将If语句改写成使用Switch函数： If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If等价于：等价于：y = Switch(x 30, 0, x50, (x-50)*20+20*10) 条件条件条件条件条件条件值

18、值值值值值我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.2 Select Case语句(多分支语句)格式：我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.2 Select Case语句T表达式表达式1语句体语句体1表达式表达式2语句体语句体2T表达式表达式n语句体语句体n语句体语句体n+1T执行过程执行过程:计算测试表达式的值；计算测试表达式的值；依次比较依次比较各个表达式，符合条件则进入相应的语句体执行；各个

19、表达式，符合条件则进入相应的语句体执行；执行执行Select Case语句的下一条语句。语句的下一条语句。计算测试表达式的值计算测试表达式的值我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.2 Select Case语句n注注1：测试表达式测试表达式可以是数值或字符串表达式可以是数值或字符串表达式；n注注2：各：各表达式列表表达式列表 合法的格式：合法的格式：一个常量或常量表达式一个常量或常量表达式多个常量或常量表达式，用逗号隔开，逗号相当于多个常量或常量表达式，用逗号隔开，逗号相当于“或或” ，如：，

20、如：Case 1，3，5，7表达式表达式1 to 表达式表达式2，表示从表达式，表示从表达式1到表达式到表达式2中所有的值，其中中所有的值，其中表达式表达式1的值必须小于表达式的值必须小于表达式2的值。如：的值。如：Case 1 to 5Is关系运算表达式，可以使用的关系运算符为：关系运算表达式，可以使用的关系运算符为：、=、=、=，不可以使用逻辑运算符表示多个范围。，不可以使用逻辑运算符表示多个范围。 前面四种情况的组合，如前面四种情况的组合，如Case Is10,2,4,6,Is =“a” And ch=“A” And ch=“0” And ch=“9” “0” To “9”空格字符：ch

21、=“ ” “ ”Is=“ ”n实现：Select Case Select Case chchCase “a” To “z”, “A” to “Z”Case “a” To “z”, “A” to “Z”Print “Print “字母字符字母字符” Case “0” To “9”Case “0” To “9”Print “Print “数字字符数字字符”Case “ ”Case “ ”Print “Print “空格空格”Case ElseCase ElsePrint “Print “其他字符其他字符”End SelectEnd Select我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在

22、这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.2 Select Case语句例例7-57-5简单运算器简单运算器n分析：运算符的判断：共四种取值，事先已在ComboBox中 Select Case Cmbop.Text Case txtresult = Val(txtX) + Val(txtY) Case txtresult = Val(txtX) - Val(txtY) Case txtresult = Val(txtX) * Val(txtY) Case txtresult = Val(txtX) / Val(txtY)End Select If V

23、al(txtY) 0 Then txtresult = Val(txtX) / Val(txtY)Else MsgBox 被被0除除 txtY = : txtY.SetFocusEnd If我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.2 Select Case语句 所有Select Case语句可以替换为IfThenElseIf语句。只有在If语句和每一个ElseIf语句计算相同条件表达式时，才能用Select Case结构替换IfThenElseIf结构。 If x 30 Then y = 0 E

24、lseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End IfSelect Case x Case Is 50 y = (x - 50) * 20 + 20 * 10End Select我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.3 基本算法及应用7.3.1 求两个数的最大（小）值7.3.2 用户输入时按键的判断7.3.3 信息的有效性验证7.3.4 单选钮和复选框的应用 我吓了一跳，蝎子是多么丑恶和恐怖的东西，

25、为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.3.1求两个数的最大（小）值求两个数的最大（小）值分析：两个数的关系无非有3种情形，即：AB，A=B，A= B Then Max = A Else Max = B If A B Then Max = A Else Max = B 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.3.2用户输入时按键的判断用户输入时按键的判断两种方法：两种方法：n一是一是在输入时判断，使用文本框的在输入时判断，使用文本框的K

26、ey事件；事件；n常用：常用：KeyPressKeyPress事件（事件（KeyAsciiKeyAscii参数）参数）n二是在全部输入完成后再对每个字符进行判断，使二是在全部输入完成后再对每个字符进行判断，使用循环结构依次获取字符串中的字符。用循环结构依次获取字符串中的字符。 例例7-7 在文本框中输入一个字符串，要求只能出现字母。在文本框中输入一个字符串，要求只能出现字母。 Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii Asc(z) And _ (KeyAscii Asc(Z) Then KeyAscii = 0En

27、d Sub我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.3.3信息的有效性验证信息的有效性验证例7-8 登录界面设计“确定确定”按钮的按钮的Click事件过程如下：事件过程如下：Private Sub cmdok_Click() If txtuser.Text = Or txtpwd.Text = Then MsgBox 请输入完整信息！ Else If txtpwd.Text 20082008 Then MsgBox 密码错误，不能登录！ txtpwd .Text = txtpwd.SetFocus

28、 Else MsgBox txtuser.Text & ，欢迎您！ End If End IfEnd Sub 有效信息：有效信息：帐号和密码都不能空帐号和密码都不能空密码符合要求密码符合要求这样的密码设置方法，安全性差这样的密码设置方法，安全性差我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.3.4 单选钮和复选框的应用单选钮和复选框的应用单选钮单选钮多选一多选一n在同一组单选钮中只有一个按钮的在同一组单选钮中只有一个按钮的ValueValue属属性值为性值为1 1，通常使用，通常使用IfThenEls

29、eIfIfThenElseIf的的语句格式进行判断。语句格式进行判断。 复选框复选框多选多多选多n同一组复选框中可以同时有多个被选中，也同一组复选框中可以同时有多个被选中，也可以只选中一个，也可以一个都不选中，通可以只选中一个，也可以一个都不选中，通常我们对各个复选框进行独立判断。常我们对各个复选框进行独立判断。 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.3.4 单选钮和复选框的应用单选钮和复选框的应用例例7-9 根据用户选择，求若干门课程的总分或平均分根据用户选择，求若干门课程的总分或平均分参考

30、代码如下：参考代码如下：Private Sub cmdCal_Click() Dim sum As Integer, n As Integer If chkChinese.Value = 1 Then sum = sum + Val(txtChinese.Text): n = n + 1 If chkMath.Value = 1 Then sum = sum + Val(txtMath.Text): n = n + 1 If chkEnglish.Value = 1 Then sum = sum + Val(txtEnglish.Text): n = n + 1 If optTotal.Val

31、ue Then txtResult.Text = n & 门课总分: & vbCrLf & sum Else If n 0 Then txtResult.Text = n & 门课平均分: & vbCrLf & sum / n End IfEnd Sub 问：变量问：变量n的作用是什么？的作用是什么？我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物7.4 其他应用举例例7-10例7-11例7-12例7-13我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我

32、的猜测没有错：表里边有一个活的生物例7-10例7-10 调整3个文本框中的数值，使其中的数值按小到大的顺序排放 If a b Then temp = a: a = b: b = temp 如果a大于b，交换a和b的值 If a c Then temp = a: a = c: c = temp 如果a大于c，交换a和c的值 If b c Then temp = b: b = c: c = temp 如果b大于c，交换b和c的值我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例7-11例7-11 求一元二次方程

33、ax2+bx+c=0的根 根据数学中一元二次方程的求根公式，令：当0时，方程有两个不相等的实根；当=0时，方程有两个相等的实根；当0时，方程有两个不相等的虚根。 24bac2142bbacxa 2242bbacxa 122bxxa 2142biacbxa 2242biacbxa 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例7-11If a 0 Then delta = b * b - 4 * a * c If delta 0 Then x1 = (-b + Sqr(delta) / (2 * a) 第

34、1个根 x2 = (-b - Sqr(delta) / (2 * a) 第2个根 txtroot = X1= & x1 & Chr(13) & Chr(10) & X2= & x2 ElseIf delta = 0 Then x1 = -b / (2 * a) txtroot = Two equal root,X1=X2= & x1 Else x1 = -b / (2 * a) 根的实部 x2 = Sqr(-delta) / (2 * a) 根的虚部 txtroot = X1= & x1 & + & x2 & i & Chr(13) & Chr(10) & X2= & x1 & - & x2

35、& i End If End If我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例7-12例7-12 编程实现输入一个整数，判断其能否被3、5、7整除，并输出以下信息之一：（1）能被3、5、7整除。（2）能被其中两个数（要指出哪两个）整除。（3）能被其中一个数（要指出哪一个）整除。（4）不能被3、5、7任一个整除。我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物代码1If x Mod 3 = 0 And x Mod 5

36、 = 0 And x Mod 7 = 0 Then MsgBox 能被3，5，7整除If x Mod 3 = 0 And x Mod 5 = 0 And x Mod 7 0 Then MsgBox 能被3，5整除If x Mod 3 = 0 And x Mod 7 = 0 And x Mod 5 0 Then MsgBox 能被3，7整除If x Mod 5 = 0 And x Mod 7 = 0 And x Mod 3 0 Then MsgBox 能被5，7整除If x Mod 3 = 0 Then MsgBox 能被3整除If x Mod 5 = 0 Then MsgBox 能被5整除If

37、 x Mod 7 = 0 Then MsgBox 能被7整除我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物代码2 If x Mod 3 = 0 And x Mod 5 = 0 And x Mod 7 = 0 Then MsgBox 能被3，5，7整除 ElseIf x Mod 3 = 0 And x Mod 5 = 0 And x Mod 7 0 Then MsgBox 能被3，5整除 ElseIf x Mod 3 = 0 And x Mod 7 = 0 And x Mod 5 0 Then MsgBox

38、 能被3，7整除 ElseIf x Mod 5 = 0 And x Mod 7 = 0 And x Mod 3 0 Then MsgBox 能被5，7整除 ElseIf x Mod 3 = 0 Then MsgBox 能被3整除 ElseIf x Mod 5 = 0 Then MsgBox 能被5整除 ElseIf x Mod 7 = 0 Then MsgBox 能被7整除 Else MsgBox 不能被3、5、7任一数整除 End If我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物代码3 If x Mo

39、d 3 = 0 Then n = n + 1 s = s & 3 End If If x Mod 5 = 0 Then n = n + 1 s = s & 5 End If If x Mod 7 = 0 Then n = n + 1 s = s & 7 End If If n 0 Then MsgBox 能被 & s & 这 & n & 个数整除 Else MsgBox 不能被任一数整除 End If我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物代码4 n=0 If x Mod 3 = 0 Then n

40、= n + 1 End If If x Mod 5 = 0 Then n = n + 2 End If If x Mod 7 = 0 Then n = n + 4 End If Select Case n Case 0: MsgBox 不能被任一数整除 Case 1: MsgBox 能被3整除 Case 2: MsgBox 能被5整除 Case 3: MsgBox 能被3,5整除 Case 4: MsgBox 能被7整除 Case 5: MsgBox 能被3,7整除 Case 6: MsgBox 能被5,7整除 Case 7: MsgBox 能被3,5,7整除 End Select 我吓了一跳

41、，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例7-13例7-13 模拟红绿灯。在界面上有两个图像框，分别显示信号灯和汽车，设定信号灯的变化规律是黄灯1秒，红灯2秒，绿灯3秒，汽车从左向右行驶，当行驶到路口时，根据信号灯的提示进行等待或行驶 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物Const path As String = C:Program FilesMicrosoft Visual StudioCommonGrap

42、hicsIconsTrafficDim a As IntegerPrivate Sub Timer1_Timer() a = a + 1 If a 6 Then a = 1 End If Select Case a Case 1 Image1.Picture = LoadPicture(path & TRFFC10B.ICO) Case 2, 3 Image1.Picture = LoadPicture(path & TRFFC10C.ICO) Case 4, 5, 6 Image1.Picture = LoadPicture(path & TRFFC10A.ICO) Timer2.Enabl

43、ed = True End SelectEnd Sub我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物例7-13Private Sub Timer2_Timer() If a = Line1.X1 - 100 And _ Image2.Left + Image2.Width Me.Width Then Image2.Left = -Image2.Width End If End IfEnd Sub 我吓了一跳，蝎子是多么丑恶和恐怖的东西，为什么把它放在这样一个美丽的世界里呢？但是我也感到愉快，证实我的猜测没有错：表里边有一个活的生物本 章 小 结 选择结构是算法的基本结构之一，凡是需要进行分情况执行的时候都应该使用相关的选择结构语句。本章主要介绍选择结构中的If语句和Select Case语句及相关函数。If语句的格式较多，在实际应用中要注意区分；Select Case语句可以简化条件的表示，使用该语句完成的功能都可以用If语句来实现；IIf函数和Switch函数分别是If语句和Select Case语句的简单表示。本章介绍的常用算法包含了对选择语句的应用，读者在编程中要认真分析算法，构建正确的逻辑结构，并且选择正确的语句来表示算法，使算法更合理、更优化。