vb程序流程控制

1、第三章程序流程限制一、教学内容在Visual中,其流程限制语句分为条件测试语句和循环语句.本章将重点介绍这两种 流程限制语句的用法与功能二、目的要求1 .熟练掌握行if语句、块if结构、Select Case情况选择结构有使用,掌握选择的嵌套 结构；2 .熟练掌握实现循环结构的For/Next循环结构及Exit For 语句、Do/Loop循环结构的使用,掌握多重循环.三、教学重点与难点教学重点：选择结构及循环结构的实现及其应用教学难点：选择的嵌套及多重循环结构四、教学方法多媒体教学为主.适当提问,加深学生对概念的理解.第一讲2学时一、教学内容3种条件测试语句：由If构成的两种类型测试语句和由

2、Select Case构成的测试语句二、目的要求1 .熟悉 If Then 结构,If Then - Else 结构,Select Case 结构2 . 了解多重If语句,If语句的嵌套三、教学重点与难点教学重点：If - Then结构,If Then - Else 结构.教学难点：多重If语句,If语句的嵌套 四、教学方法多媒体教学.五、教学过程3.1.1 If 测试语句1. If Then结构单行语句格式：If条件表达式 Then语句多行语句格式：If 条件表达式Then语句块End If2. If Then日Se构语句格式：If 条件表达式Then语句块1Else语句块2End If3.

3、 多重If语句语句格式：If 条件表达式1 Then语句块1ElseIf 条件表达式2 Then语句块2ElseIf 条件表达式3 Then语句块3ElseIf 条件表达式n Then语句块nElse语句块End If例：以下例如完成对所输入的整数进行判断,假设输入数为正数,那么显示“大于零 假设输入数为负数,那么显示“小于零,否那么显示“等于零.在Command1按钮的Click事件中输入如下代码：Private Sub Command1_Click()If Val 0 Then=大于零Else=等于零End IfEnd Sub3.1.2 Select Case 测试语句1. Select

4、Case语句的一般形式 语句格式：Select Case测试表达式Case表达式列表1语句块1Case表达式列表2语句块2Case表达式列表n 语句块nCase Else 语句块 End Select【例】将输入文本框中的所有小写字母转换成大写字母,并将一些特殊符号变成等价的字符串,如 DLR表示$、0/0表示、BPT表示#、AND 表示&等.可以在 KeyPress事件 中修改文本框控件的缺省操作,使它能在用户输入这些字符时进行相应修改.Private Sub Text1_KeyPress (KeyAscii As Integer)Dim spesymbols As StringDim ch

5、 As String 1Spesymbols= $#%& ch= Chr(KeyAscii) If InStr(Spesymbols,ch) Then KeyAscii=0ElseKeyAscii = Asc(Ucase(ch) Exit SubEnd IfSelect Case chCase $ : = DLRCase # : = BPTCase % : = 0/0Case & : = ANDCase : = AT End SelectEnd Sub 六、小结在这一讲里,我们经常需要对给定的条件进行判断或比拟,然后根据判断的结果来决定下一步将采取的操作,这时便可以使用条件测试语句来实现.它有

6、三种结构.单分支,双分支和多重分支,我们都要学会,并运用.七、作业习题第二讲(2学时)一、教学内容ForNext、Do Loop、WhileWend 三种循环的用法二、目的要求1 ,熟悉 WhileWend循环的用法2 .掌握ForNext、Do- Loop循环的用法三、教学重点与难点教学重点：ForNext、DoLoop循环的用法教学难点：循环的嵌套四、教学方法多媒体教学.五、教学过程3.2.1 For.Next循环结构语句格式：For counter = start To end Step increment语句块1Exit For语句块2Next counter说明：在使用这种循环结构时

7、,要求知道执行循环的次数.【例】 求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 Sub3.2.2 Do Loop循环结构语句格式1:Do While | Until conditionstatementsExit Do statementsLoop语句格式2:DostatementsExit Do statements Loop While | Until condition说明：在循环次数不能确定的情况下进行的,那么这时便需要用到循环限制结构Do- Loop【例】用Do-Loop循环结构实现求和 sum=1+2+3+100.编写程序代码.解法一：采用当型循环Do While - LoopPrivate Sub Command1_Click() Dim i As Integer,sum As Integer i=1 计数器初值置为1 sum=0 累加器初彳I置为 0 Do While i100 sum=sum+i i=i+1Loop =Str(sum) End Sub3.2.3 WhileWend循环限制结构 此语句是为了保持与