《vb第三章程序流程控制.pdf》由会员分享，可在线阅读，更多相关《vb第三章程序流程控制.pdf（6页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第三章第三章程序流程控制程序流程控制一、教学内容一、教学内容在 Visual 中，其流程控制语句分为条件测试语句和循环语句。本章将重点介绍这两种流程控制语句的用法与功能二、目的要求二、目的要求1熟练掌握行 if 语句、块 if 结构、Select Case 情况选择结构有使用，掌握选择的嵌套结构；2熟练掌握实现循环结构的For/Next 循环结构及 Exit For 语句、Do/Loop 循环结构的使用，掌握多重循环。三、教学重点与难点三、教学重点与难点教学重点：教学重点：选择结构及循环结构的实现及其应用教学难点：教学难点：选择的嵌套及多重循环结构四、教学方法四、教学方法多媒体教学为主。适当提
2、问，加深学生对概念的理解。第一讲第一讲（2 2 学时）学时）一、教学内容一、教学内容3 种条件测试语句：由If 构成的两种类型测试语句和由Select Case 构成的测试语句二、目的要求二、目的要求1熟悉 IfThen 结构，IfThenElse结构，SelectCase 结构 2了解多重 If 语句，If 语句的嵌套三、教学重点与难点三、教学重点与难点教学重点：教学重点：IfThen 结构，IfThenElse结构。教学难点：教学难点：多重 If 语句，If 语句的嵌套四、教学方法四、教学方法多媒体教学。五、教学过程五、教学过程3.1.1 If 测试语句1.IfThen 结构单行语句格式：
3、If 条件表达式 Then 语句多行语句格式：If条件表达式Then语句块End If2.IfThenElse结构语句格式：If条件表达式Then语句块 1Else语句块 2EndIf3.3.多重多重 If If 语句语句语句格式：If条件表达式 1Then语句块 1ElseIf条件表达式 2Then语句块 2ElseIf条件表达式 3Then语句块 3ElseIf条件表达式 nThen语句块 nElse语句块End If例：以下示例完成对所输入的整数进行判断，若输入数为正数，则显示“大于零”，若输入数为负数，则显示“小于零”，否则显示“等于零”。在 Command1 按钮的 Click 事件
4、中输入如下代码：Private Sub Command1_Click()If Val 0 Then=大于零Else=等于零End IfEnd Sub3.1.2Select Case 测试语句1.Select Case 语句的一般形式语句格式：Select Case 测试表达式Case 表达式列表 1语句块 1Case 表达式列表 2语句块 2Case 表达式列表 n语句块 nCase Else语句块End Select【例】将输入文本框中的所有小写字母转换成大写字母，并将一些特殊符号变成等价的字符串，如 DLR 表示$、0/0 表示、BPT 表示#、AND 表示&等。可以在 KeyPress
5、事件中修改文本框控件的缺省操作，使它能在用户输入这些字符时进行相应修改。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim spesymbols As StringDim ch As String1Spesymbols=$#%&ch=Chr(KeyAscii)If InStr(Spesymbols,ch)ThenKeyAscii=0ElseKeyAscii=Asc(Ucase(ch)Exit SubEnd IfSelect Case chCase$:=DLRCase#:=BPTCase%:=0/0Case&:=ANDCase:=ATEndSel
6、ectEnd Sub六、小结六、小结在这一讲里，我们经常需要对给定的条件进行判断或比较，然后根据判断的结果来决定下一步将采取的操作，这时便可以使用条件测试语句来实现。它有三种结构。单分支，双分支和多重分支,我们都要学会，并运用。七、作业七、作业习题第二讲第二讲（2 2 学时）学时）一、教学内容一、教学内容ForNext、DoLoop、WhileWend三种循环的用法二、目的要求二、目的要求 1熟悉 WhileWend 循环的用法 2掌握 ForNext、DoLoop循环的用法三、教学重点与难点三、教学重点与难点教学重点：教学重点：ForNext、DoLoop 循环的用法教学难点：教学难点：循环
7、的嵌套四、教学方法四、教学方法多媒体教学。五、教学过程五、教学过程3.2.1 For.Next 循环结构语句格式：For counter=start To end Step increment语句块 1Exit For语句块 2Next counter说明：在使用这种循环结构时，要求知道执行循环的次数。【例】求 sum=1+2+3+100。用 ForNext 循环结构实现程序代码如下：Private Sub Command1_Click()Dim sum As Integer,I As Integersum=0For I=1 To 100sum=sum+INext I=Str(sum)End
8、Sub3.2.2DoLoop 循环结构语句格式 1：Do While|Until conditionstatementsExit DostatementsLoop语句格式 2：DostatementsExit DostatementsLoop While|Until condition说明：在循环次数不能确定的情况下进行的，那么这时便需要用到循环控制结构DoLoop【例】用 DoLoop 循环结构实现求和 sum=1+2+3+100。编写程序代码。解法一：采用当型循环Do WhileLoopPrivate Sub Command1_Click()Dim i As Integer,sum As Integeri=1 计数器初值置为 1sum=0 累加器初值置为 0Do While i100sum=sum+ii=i+1Loop=Str(sum)End Sub3.2.3WhileWend循环控制结构此语句是为了保持与低版本Visaul Basic 兼容而保留的。在实际应用中，它与DoWhileLoop 结构非常相似。六、小结六、小结在这一讲里，我们要掌握 ForNext、DoLoop 循环的用法，其中循环的嵌套不容易理解。大家要多自己编些程序来熟悉它七、作业习题,