(上机练习15)第8章模块与VBA编程..docVIP

上机练习十五 第八章、条件分支语句（针对章节：§8.4.1～§8.4.2） （练习要点） 以下条件语句都要通过练习加以掌握，上机考试及笔试都可能出现 1、IF条件分支语句的多种使用格式 1）单分支结构If 条件 then….程序语句End if 2）双分支结构If 条件 then….程序语句1Else ….程序语句2End if 3）多分支结构If 条件1 then….程序语句1Elseif 条件2 ….程序语句2 Elseif 条件3 ….程序语句3 ……Else…程序语句nEnd if4）IF语句的嵌套使用If 条件1 then….程序语句1ElseIf 条件2 then….程序语句2Elseif ….程序语句3End ifEnd if 2、Select Case---End Select语句 3、IIf (条件式,表达式1,表达式2) 4、Switch(条件式1,表达式1, 条件式2,表达式2,……条件式n,表达式n) 5、Choose(索引式,选项1, 选项2,……选项n) 上机练习： 1、用单分支条件语句完成：创建窗体Tjct1，添加一个名为Comm1的命令按钮和两个名分别为T1、T2的文本框，在T1中输入0~100的数字，如果输入数字大于等于90，在T2中显示“优秀”，否则，什么也不做。 2、用双分支条件语句完成：创建窗体Tjct2，添加一个名为Comm1的命令按钮和两个名分别为T1、T2的文本框，在T1中输入0~100的数字，如果输入数字大于等于90，在T2中显示“优秀”，否则，在T2中显示“合格”。 3、用多分支条件语句完成：创建窗体Tjct3，添加一个名为Comm1的命令按钮和两个名分别为T1、T2的文本框，在T1中输入0~100的数字，如果输入数字大于等于90，在T2中显示“优秀”、大于等于80 且 小于90，在T2中显示“良好”、大于等于70 且 小于80，在T2中显示“中等”、大于等于60 且 小于70，在T2中显示“及格”、否则，显示“不及格”。 4、用嵌套分支条件语句完成3题的要求，所建窗体命名为Tjct4 命令按钮的事件过程代码： Private Sub Command4_Click()If Me!t1 = 90 And Me!t1 = 100 ThenMe!t2 = 优秀ElseIf Me!t1 = 80 And Me!t1 = 89 ThenMe!t2 = 良好ElseIf Me!t1 = 70 And Me!t1 = 79 ThenMe!t2 = 中等ElseIf Me!t1 = 60 And Me!t1 = 69 ThenMe!t2 = 及格ElseMe!t2 = 不及格End IfEnd IfEnd IfEnd If End Sub注意If 与End If的配对，要注意书写结构。 5、用Select Case----End Select条件语句完成3题的要求，所建窗体命名为Tjct5 命令按钮的事件过程代码： Private Sub Command4_Click()Select Case Me!t1Case 90 To 100Me!t2 = 优秀Case 80 To 89Me!t2 = 良好Case 70 To 79Me!t2 = 中等Case 60 To 69Me!t2 = 及格Case ElseMe!t2 = 不及格End SelectEnd Sub 6、练习书上例8.9，所建窗体命名为Tjct6 7、IIf函数的应用，IIf函数使用比较多，要重点掌握。 1）创建窗体Tjct7，在a、b文本框中输入2个数字，找出其中的大数并显示在max文本框中。（）课本226页命令按钮的事件过程代码： Private Sub Command4_Click()Me!t3 = IIf(Me!t1 Me!t2, Me!t1, Me!t2)End Sub2）学生表中，“性别”字段的数据类型是逻辑型，在创建学生信息报表时，性别值的输出不能满足要求，如下图：使用IIf条件函数使之对应显示男或女， 方法：打开学生基本信息报表（若没有，自己建），进入报表设计器，修改主体节中显示“性别”字段文本框的控件来源为： =IIf([性别]=True,男,女) 8、Switch函数的应用 用Switch函数完成3题的要求 Me!t2 = Switch(Me!t1 = 90 And Me!t1 = 100, 优秀, Me!t1 = 80 And Me!t1 = 89, 良好, Me!t1 = 70 And Me!t1 = 79, 中等, Me!t1 = 60 And Me!t1 = 69, 及格, Me!t1 60, 不及格) 9、Choose函数的应用