程序流程控制二.doc

江苏省无锡立信职教中心校教案课 题程序流程控制二课 型讲 授、练习授课日期授课时数2教学目标熟悉IfThenElse结构，SelectCase 结构了解多重If语句，If语句的嵌套教学重点IfThenElse结构SelectCase 结构教学难点多重If语句，If语句的嵌套学情分析通过综合运用提高学生自己解决类似问题的动手能力板书设计3.1.1 If测试语句1. IfThen结构2. IfThenElse结构3. 多重If语句3.1.2 Select Case测试语句Select Case语句的一般形式学生练习教师巡回辅导总结教学后记一要分清什么情况下分别使用If和SelectCase 结构二注重书写规范江苏省无锡立信职教中心校备课笔记教 学 内 容学生活动3.1.1 If测试语句1. IfThen结构 单行语句格式：If 条件表达式 Then 语句多行语句格式：If 条件表达式 Then 语句块End If2. IfThenElse结构语句格式： If 条件表达式 Then 语句块1 Else 语句块2 End If3. 多重If语句 语句格式： If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 ElseIf 条件表达式3 Then 语句块3 ElseIf 条件表达式n Then 语句块n Else 语句块End If提问相关计算机英语学生练习江苏省无锡立信职教中心校备课笔记教 学 内 容学生活动 例：以下示例完成对所输入的整数进行判断，若输入数为正数，则显示“大于零”，若输入数为负数，则显示“小于零”，否则显示“等于零”。在Command1按钮的Click事件中输入如下代码： Private Sub Command1_Click() If Val(Text1.Text) 0 Then Text2.Text = 大于零 Else Text2.Text = 等于零 End If End Sub3.1.2 Select Case测试语句1. Select Case语句的一般形式语句格式：Select Case 测试表达式Case 表达式列表1 语句块1Case 表达式列表2 语句块2 Case 表达式列表n 语句块n 学生练习江苏省无锡立信职教中心校备课笔记教 学 内 容学生活动 语句块End Select【例3.1】 将输入文本框中的所有小写字母转换成大写字母，并将一些特殊符号变成等价的字符串，如DLR表示$、AT表示、0/0表示、BPT表示#、AND表示&等。可以在KeyPress事件中修改文本框控件的缺省操作，使它能在用户输入这些字符时进行相应修改。Private Sub Text1_KeyPress (KeyAscii As Integer)Dim spesymbols As StringDim ch As String *1 Spesymbols=$#%&ch= Chr(KeyAscii) If InStr(Spesymbols,ch) Then KeyAscii=0 ElseKeyAscii = Asc(Ucase(ch)Exit SubEnd IfSelect Case chCase $: Text1.SelText=DLRCase #: Text1.SelText=BPTCase %: Text1.SelText=0/0