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