vb第三章 程序流程控制

第三章程序流程控制一、教学内容在VisualBasic6.0中，其流程控制语句分为条件测试语句和循环语句。本章将重点介绍这两种流程控制语句的用法与功能二、目的要求1．熟练掌握行if语句、块if结构、SelectCase情况选择结构有使用，掌握选择的嵌套结构；2．熟练掌握实现循环结构的For/Next循环结构及ExitFor语句、Do/Loop循环结构的使用，掌握多重循环。三、教学重点与难点教学重点：选择结构及循环结构的实现及其应用教学难点：选择的嵌套及多重循环结构四、教学方法多媒体教学为主。适当提问，加深学生对概念的理解。第一讲（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结构条件表达式语句块truefalsetrue条件表达式语句块1false语句块2语句格式：If条件表达式Then语句块1Else语句块2EndIf3.多重If语句语句格式：If条件表达式1Then语句块1ElseIf条件表达式2Then语句块2ElseIf条件表达式3Then语句块3……ElseIf条件表达式nThen语句块nElse语句块EndIf语句块条件n语句块条件1语句块条件3语句块条件2例：以下示例完成对所输入的整数进行判断，若输入数为正数，则显示“大于零”，若输入数为负数，则显示“小于零”，否则显示“等于零”。在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事件中修改文本框控件的缺省操作，使它能在用户输入这些字符时进行相应修改。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第二讲（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[counter]说明：在使用这种循环结构时，要求知道执行循环的次数。Count=start循环语句YesNoCount=endCount=count+increment【例3.2】求sum=1+2+3+…+100。用For…Next循环结构实现程序代码如下：PrivateSubCommand1_Click()DimsumAsInteger,IAsIntegersum=0ForI=1To100sum=sum+INextILabel2.Caption=Str(sum)EndSub3.2.2Do…Loop循环结构语句格式1：Do[{While|Until}condition][statements][ExitDo][statements]Loop语句格式2：Do[statements][ExitDo][statements]Loop[{While|Until}condition]说明：在循环次数不能确定的情况下进行的，那么这时便需要用到循环控制结构Do…Loop循环语句条件表达式TrueFalse条件表达式循环语句TrueFalse【例3.5】用Do…Loop循环结构实现求和sum=1+2+3+…+100。编写程序代码。解法一：采用当型循环DoWhile…LoopPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'计数器初值置为1sum=0'累加器初值置为0DoWhilei=100'当型循环sum=sum+ii=i+1'每次循环变量加1LoopLabel2.Caption=Str(sum)EndSub解法二：采用直到型循环DoUntil…LoopPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'计数器初值置为1sum=0'累加器初值置为0DoUntili100sum=sum+ii=i+1LoopLabel2.Caption=Str(sum)EndSub3.2.3While…Wend循环控制结构此语句是为了保持与低版本VisaulBasic兼容而保留的。在实际应用中，它与DoWhile…Loop结构非常相似。六、小结在这一讲里，我们要掌握For…Next、Do…Loop循环的用法，其中循环的嵌套不容易理解。大家要多自己编些程序来熟悉它七、作业习题3.2,3.6