vb第三章程序流程控制

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

2、测试语句：由 If 构成的两种类型测试语句和由 Select Case 构成的测试语句1 .熟悉IfThen结构，IfThenElse 结构，Select Case 结构2 .了解多重If语句，If语句的嵌套三、教学重点与难点教学重点：IfThen结构，IfThenElse 结构。教学难点：多重If语句，If语句的嵌套四、教学方法 多媒体教学。五、教学过程测试语句1. If Then结构单行语句格式:If 条件表达式Then语句 多行语句格式：If条件表达式The n语句块End If2. If ThenElse结构语句格式:If条件表达式Then语句块1Else语句块2End If3. 多重

3、If语句语句格式:If条件表达式1 The n语句块1Elself条件表达式2 Then语句块2Elself条件表达式3 Then语句块3Elself条件表达式n Then语句块nElse语句块End If则显示“小数为正数，则显示“大于零”，若输入数为负数， 于零”，否则显示“等于零”。在Comma nd按钮的Click事件中输入如下代码:Private Sub Comma nd1_Click()If Val(Textl.Text) 0 The nText2.Text =大于零ElseText2.Text =等于零End IfEnd Sub测试语句1. Select Case语句的一般形式语

4、句格式：Select Case 测试表达式Case表达式列表1语句块1Case表达式列表2语句块2Case表达式列表n语句块nCase Else语句块End Select【例3.1】将输入文本框中的所有小写字母转换成大写字母，并将一些特殊符号变成等价的字符串，如DLR表示$、AT表示 0/0表示、BPT表示#、AND表示&等。可以在 KeyPress事 件中修改文本框控件的缺省操作，使它能在用户输入这些字符时 进行相应修改。Private Sub Text1_KeyPress (KeyAscii As In teger)Dim spesymbols As Stri ngDim ch As Stri ng1Spesymbols=$#%&ch= Chr(KeyAscii)If In Str(Spesymbols,ch) ThenKeyAscii=OElseKeyAscii = Asc(Ucase(ch)Exit SubEnd IfSelect Case chCase$:Text1.SelText=DLRCase#:Text1.SelText=BPTCase%:Text1.SelText=0/0Case&:Text1.SelText=ANDCase:Text1.SelText=ATEnd SelectEnd Sub六、小结在这一讲里，我们经常需要对给定的条件进行