vb第三章 程序流程控制VIP免费

第1页共9页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第1页共9页第三章程序流程控制一、教学内容在VisualBasic6.0中，其流程控制语句分为条件测试语句和循环语句。本章将重点介绍这两种流程控制语句的用法与功能二、目的要求1．熟练掌握行if语句、块if结构、SelectCase情况选择结构有使用，掌握选择的嵌套结构；2．熟练掌握实现循环结构的For/Next循环结构及ExitFor语句、Do/Loop循环结构的使用，掌握多重循环。三、教学重点与难点教学重点：选择结构及循环结构的实现及其应用教学难点：选择的嵌套及多重循环结构四、教学方法多媒体教学为主。适当提问，加深学生对概念的理解。第2页共9页第1页共9页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第2页共9页第一讲（2学时）一、教学内容3种条件测试语句：由If构成的两种类型测试语句和由SelectCase构成的测试语句二、目的要求1．熟悉If…Then结构，If…Then…Else结构，Select…Case结构2．了解多重If语句，If语句的嵌套三、教学重点与难点教学重点：If…Then结构，If…Then…Else结构。教学难点：多重If语句，If语句的嵌套四、教学方法多媒体教学。五、教学过程3.1.1If测试语句1.If…Then结构单行语句格式：If条件表达式Then语句多行语句格式：If条件表达式Then语句块EndIf2.If…Then…Else结构第3页共9页第2页共9页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第3页共9页语句格式：If条件表达式Then语句块1Else语句块2EndIf3.多重If语句语句格式：If条件表达式1Then语句块1ElseIf条件表达式2Then语句块2ElseIf条件表达式3Then语句块3……ElseIf条件表达式nThen语句块nElse语句块EndIf第4页共9页第3页共9页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第4页共9页例：以下示例完成对所输入的整数进行判断，若输入数为正数，则显示“大于零”，若输入数为负数，则显示“小于零”，否则显示“等于零”。在Command1按钮的Click事件中输入如下代码：PrivateSubCommand1_Click()IfVal(Text1.Text)<0ThenText2.Text=小于零ElseIfVal(Text1.Text)>0ThenText2.Text=大于零ElseText2.Text=等于零EndIfEndSub3.1.2SelectCase测试语句1.SelectCase语句的一般形式语句格式：SelectCase测试表达式Case表达式列表1语句块1Case表达式列表2语句块2……Case表达式列表n语句块nCaseElse语句块EndSelect【例3.1】将输入文本框中的所有小写字母转换成大写字母，并将一些特殊符号变成等价的字符串，如DLR表示$、AT表示@、0/0表示％、BPT表示#、AND表示&等。可以在KeyPress事件中修改文本框控件的缺省操作，使它能在用户输入这些字符时进行相应修第5页共9页第4页共9页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第5页共9页改。PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimspesymbolsAsStringDimchAsString1Spesymbols=$#%&@ch=Chr(KeyAscii)IfInStr(Spesymbols,ch)ThenKeyAscii=0ElseKeyAscii=Asc(Ucase(ch))ExitSubEndIfSelectCasechCase$:Text1.SelText=DLRCase#:Text1.SelText=BPTCase%:Text1.SelText=0/0Case&:Text1.SelText=ANDCase@:Text1.SelText=ATEndSelectEndSub六、小结在这一讲里，我们经常需要对给定的条件进行判断或比较，然后根据判断的结果来决定下一步将采取的操作，这时便可以使用条件测试语句来实现。它有三种结构。单分支，双分支和多重分支,我们都要学会，并运用。七、作业习题3.1第6页共9页第5页共9页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第6页共9页第二讲（2学时）一、教学内容For…Next、Do…Loop、While…Wend三种循环的用法二、目的要求1．熟悉While…Wend循环的用法2．掌握For…Next、Do…Loop循环的用法三、教学重点与难点教学重点：For…Next、Do…Loop循环的用法教学难点：循环的嵌套四、教学方法多媒体教学。五、教学过程3.2.1For...Next循环结构语句格式：Forcounter=startToend[Stepincrement]语句块1[ExitFor]语句块2Next[count...