第三章程序流程控制 教学内容 在 Visual basic6.0中,其流程控制语句分为条件测试语句和循环语句。本章将重点介 绍这两种流程控制语句的用法与功能 、目的要求 1.熟练掌握行if语句、块if结枃、 Select case情况选择结构有使用,掌握选择的嵌套 结构 2.熟练掌握实现循环结构的For/Next循环结构及 Exit for语句、Do/Loop循环结构的使 用,掌握多重循环。 教学重点与难点 教学重点:选择结构及循环结构的实现及其应用 教学难点:选择的嵌套及多重循环结构 四、教学方法 多媒体教学为主。适当提问,加深学生对概念的理解
第三章 程序流程控制 一、教学内容 在 Visual Basic6.0 中，其流程控制语句分为条件测试语句和循环语句。本章将重点介 绍这两种流程控制语句的用法与功能 二、目的要求 1．熟练掌握行 if 语句、块 if 结构、Select Case 情况选择结构有使用，掌握选择的嵌套 结构； 2．熟练掌握实现循环结构的 For/Next 循环结构及 Exit For 语句、Do/Loop 循环结构的使 用，掌握多重循环。 三、教学重点与难点 教学重点：选择结构及循环结构的实现及其应用 教学难点：选择的嵌套及多重循环结构 四、教学方法 多媒体教学为主。适当提问，加深学生对概念的理解
第一讲(2学时) 教学内容 3种条件测试语句:由If构成的两种类型测试语句和由 Select case构成的测试语句 二、目的要求 1.熟悉If…Then结构,If…Then…Else结构, Select…Case结构 2.了解多重If语句,If语句的嵌套 三、教学重点与难点 教学重点:If…Then结构,If…Then…Else结构。 教学难点:多重If语句,If语句的嵌套 四、教学方法 多媒体教学 五、教学过程 3.1.1If测试语句 1.If…Then结构 fal 件表达式 单行语句格式: If'条件表达式Then语句 多行语句格式: 语句块 If条件表达式Then 语句块 End If 2.If.Then..Else结构
第一讲 （2 学时） 一、教学内容 3 种条件测试语句：由 If 构成的两种类型测试语句和由 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 If 2. If…Then…Else 结构 条件表达式 语句块 true false
件表达式 语句块1 语句块2 语句格式: If条件表达式Then 语句块1 Else 语句块2 End lf 3.多重I语句 语句格式: If条件表达式1The 语句块1 Elself条件表达式2Then 语句块2 Elself条件表达式3Ther 语句块3 Elself条件表达式 n Then 语句块 Else 语句块 End If
true 条件表达式 语句块 1 false 语句块 2 语句格式： If 条件表达式 Then 语句块 1 Else 语句块 2 End If 3. 多重 If 语句 语句格式： If 条件表达式 1 Then 语句块 1 ElseIf 条件表达式 2 Then 语句块 2 ElseIf 条件表达式 3 Then 语句块 3 …… ElseIf 条件表达式 n Then 语句块 n Else 语句块 End If
语句块 条件2 语句块 语句块 条件n 例:以下示例完成对所输入的整数进行判断,若输入数为正数,则显示“大于零” 若输入数为负数,则显示“小于零”,否则显示“等于零”。 在 Command 1按钮的Cick事件中输入如下代码: Private Sub Command l Click If Val(TextI Text)0 Then Text2Text="大于零 Else Text2.Text="等于零” End lf End Sub 3.1.2 Select case测试语句 1. Select case语句的一般形式 语句格式: Select case测试表达式 Case表达式列表1 语句块1 Case表达式列表2 语句块2 Cas表达式列表n 语句块n Case else 语句块 End Select 【例3.1】将输入文本框中的所有小写字母转换成大写字母,并将一些特殊符号变成 等价的字符串,如DR表示$、AT表示@、00表示%、BPT表示#、AND表示&等。可以 在 KeyPress事件中修改文本框控件的缺省操作,使它能在用户输入这些字符时进行相应修
条件 n 语句块 条件 1 语句块 条件 3 语句块 条件 2 语句块 例：以下示例完成对所输入的整数进行判断，若输入数为正数，则显示“大于零”， 若输入数为负数，则显示“小于零”，否则显示“等于零”。 在 Command1 按钮的 Click 事件中输入如下代码： Private Sub Command1_Click() If Val(Text1.Text) 0 Then Text2.Text = 大于零 Else Text2.Text = 等于零 End If End Sub 3.1.2 Select Case 测试语句 1. Select Case 语句的一般形式 语句格式： Select Case 测试表达式 Case 表达式列表 1 语句块 1 Case 表达式列表 2 语句块 2 …… Case 表达式列表 n 语句块 n Case Else 语句块 End Select 【例 3.1】 将输入文本框中的所有小写字母转换成大写字母，并将一些特殊符号变成 等价的字符串，如 DLR 表示$、AT 表示@、0/0 表示％、BPT 表示#、AND 表示&等。可以 在 KeyPress 事件中修改文本框控件的缺省操作，使它能在用户输入这些字符时进行相应修 改
Private Sub Textl Key Press(Key Ascii As Integer) Dir Dim ch as sti bols="$#%&@ h= Chr(Key Ascii) KeyAscIi=0 Else Key Ascii=Asc(Case(ch)) Exit Sub Case"". Text1 Sel Text="BPT %〃: TextI. Seltext="O/0″ Case "&" Textl Sel Text=AND" End Select End sub 六、小结 在这一讲里,我们经常需要对给定的条件进行判断或比较,然后根据判断的结果来决定 下一步将采取的操作,这时便可以使用条件测试语句来实现。它有三种结构。单分支,双分 支和多重分支,我们都要学会,并运用 七、作业 习题3.1
Private Sub Text1_KeyPress (KeyAscii As Integer) Dim spesymbols As String Dim ch As String 1 Spesymbols=$#%&@ ch= Chr(KeyAscii) If InStr(Spesymbols,ch) Then KeyAscii=0 Else 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=AT End Select End Sub 六、小结 在这一讲里，我们经常需要对给定的条件进行判断或比较，然后根据判断的结果来决定 下一步将采取的操作，这时便可以使用条件测试语句来实现。它有三种结构。单分支，双分 支和多重分支,我们都要学会，并运用。 七、作业 习题 3.1
第二讲(2学时) 教学内容 For…Next、Do…Loop、 While…Wend三种循环的用法 二、目的要求 1.熟悉 While…wend循环的用法 2.掌握For…Next、Do…Loop循环的用法 三、教学重点与难点 教学重点:For…Next、Do…Loop循环的用法 教学难点:循环的嵌套 四、教学方法 多媒体教学 五、教学过程 3.2.1For..Next循环结构 语句格式: For counter=start To end Step increment] 语句块1 XIL For 语句块2 说明:在使用这种循环结构时,要求知道执行循环的次数。 Count=start Count<=end 循环语句 Count=count+increment
第二讲 （2 学时） 一、教学内容 For…Next、Do…Loop、While…Wend 三种循环的用法 二、目的要求 1．熟悉 While…Wend 循环的用法 2．掌握 For…Next、Do…Loop 循环的用法 三、教学重点与难点 教学重点：For…Next、Do…Loop 循环的用法 教学难点： 循环的嵌套 四、教学方法 多媒体教学。 五、教学过程 3.2.1 For...Next 循环结构 语句格式： For counter = start To end [ Step increment] 语句块 1 [Exit For] 语句块 2 Next [counter] 说明：在使用这种循环结构时，要求知道执行循环的次数。 Count=start 循环语句 Yes No Count<=end Count=count+increment
【例3.2】求sum=1+2+3+…+100。用For.Next循环结构实现 程序代码如下 Private Sub Commandl Click Dim sum as integer i as integer For l=l To 100 Next I Label2 Caption=Str(sum) End Sub 322Do.Loop循环结构 语句格式 Do [While Until; condition Exit Do] 语句格式2: Exit Do] Loop [ While Until; condition 说明:在循环次数不能确定的情况下进行的,那么这时便需要用到循环控制结构Do.….Loop 循环语句 条件表达式 False 条件表达式 循环语句 【例3.5】用Do.Loop循环结构实现求和sum=1+2+3+…+100 编写程序代码 解法一:采用当型循环 Do While…Loop Private Sub Commandl Click Dim iAs Integer, sum As Integer =1计数器初值置为 um=0'累加器初值置为0 Do While i<=100'当型循环 ⅰ=i计+1每次循环变量加1
【例 3.2】 求 sum=1+2+3+…+100。用 For…Next 循环结构实现 程序代码如下： Private Sub Command1_Click() Dim sum As Integer, I As Integer sum=0 For I=1 To 100 sum=sum+I Next I Label2.Caption=Str(sum) End Sub 3.2.2 Do…Loop 循环结构 语句格式 1： Do [{While | Until} condition] [statements] [Exit Do] [statements] Loop 语句格式 2： Do [statements] [Exit Do] [statements] Loop [{While | Until} condition] 说明：在循环次数不能确定的情况下进行的，那么这时便需要用到循环控制结构 Do…Loop 循环语句 条件表达式 True False 条件表达式 循环语句 True False 【例 3.5】用 Do…Loop 循环结构实现求和 sum=1+2+3+…+100。 编写程序代码。 解法一：采用当型循环 Do While…Loop Private Sub Command1_Click() Dim i As Integer,sum As Integer i=1 '计数器初值置为 1 sum=0 '累加器初值置为 0 Do While i<=100 '当型循环 sum=sum+i i=i+1 '每次循环变量加 1
Label2 Caption=Str(sum) End Sub 解法二:采用直到型循环 Do Until-Loop Private Sub Commandl Click Dim i As Integer sum As Integer =1计数器初值置为 sum=0'累加器初值置为0 Do Until i>100 sum=sum+I Loop Label2 Caption=Str(sum) End Sub 3.2.3 While.. Wend循环控制结构 此语句是为了保持与低版本Ⅴ i saul basic兼容而保留的。在实际应用中,它与Do While.Lop结构非常相似 六、小结 在这一讲里,我们要掌握For…Next、Do…Loop循环的用法,其中循环的嵌套不容易理 解。大家要多自己编些程序来熟悉它 作业 习题3.2,3.6
Loop Label2.Caption=Str(sum) End Sub 解法二：采用直到型循环 Do Until…Loop Private Sub Command1_Click() Dim i As Integer,sum As Integer i=1 '计数器初值置为 1 sum=0 '累加器初值置为 0 Do Until i>100 sum=sum+i i=i+1 Loop Label2.Caption=Str(sum) End Sub 3.2.3 While…Wend 循环控制结构 此语句是为了保持与低版本 Visaul Basic 兼容而保留的。在实际应用中，它与 Do While…Loop 结构非常相似。 六、小结 在这一讲里，我们要掌握 For…Next、Do…Loop 循环的用法，其中循环的嵌套不容易理 解。大家要多自己编些程序来熟悉它 七、作业 习题 3.2,3.6
