第五章(基本控制结构)ppt课件.ppt

《第五章(基本控制结构)ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第五章基本控制结构5.1三种基本结构5.2选择结构5.3循环结构5.4程序举例15.1程序的三种控制结构25.2选择结构1.If…Then语句(单分支结构)①块ifIf<表达式>Then语句块EndIf②行ifIf<表达式>Then<语句>作用：若表达式为真，则执行then后面的语句，否则，什么都不执行。例5.1：输入两个整数a和b,并按从大到小的顺序存放.即a若小于b,则交换a和b1.4.432.If…Then…Else语句(双分支结构)①块if：If<表达式>Then<语句块1>Else<语句块2>EndIf②行if：If<表达式>Then<语句1>Else<语句2>作用：若表达式为

2、真，则执行then后面语句，否则，执行else后面的语句。例5.2：用双分支选择结构实现下面的函数43.If…Then…ElseIf语句(多分支结构)形式:If<表达式1>Then<语句块1>ElseIf<表达式2>Then<语句块2>…[Else语句块n+1]EndIf作用:不管有几个分支,依次判断，当某条件满足，执行相应的语句块，其余分支不再执行；若条件都不满足，且若有Else子句，则执行该语句块，否则什么也不执行注意：ElseIf不能写成ElseIf5例5.3输入学生成绩，并按分数段确定等级。其中，90分以上为优，75分以上为良，60分以上为及格，60分以下为不及格。6Privat

3、eSubForm_Click()DimscoreAsIntegerscore=Val(InputBox("请输入成绩:"))Ifscore>=90ThenPrint"优"ElseIfscore>=75ThenPrint"良"ElseIfscore>=60ThenPrint"及格"ElsePrint"不及格"EndIfPrint"score=";scoreEndSub74.SelectCase语句(情况语句)形式：SelectCase变量或表达式Case表达式列表1语句块1Case表达式列表2语句块2…[CaseElse语句块n+1]EndSelect<表达式列表>的形式：①表达式例:“A

4、”②一组枚举表达式(用逗号分隔)2,4,6,8③表达式1To表达式260To100④Is关系运算符表达式Is<60数值型或字符串表达式将变量或表达式中的值与各Case语句按顺序依次比较，若符合条件，则执行Case后相应的语句，其它的不再执行；若都不符合，则执行CaseElse后的语句。8例5.4输入学生成绩，并按分数段确定等级。其中，90分以上为优，75分以上为良，60分以上为及格，60分以下为不及格。(Select实现)9PrivateSubCommand1_Click()DimscoreAsIntegerscore=Val(InputBox("请输入成绩:"))SelectCases

5、coreCaseIs>=90Print"优"CaseIs>=75Print"良"CaseIs>=60Print"及格"CaseElsePrint"不及格"EndSelectPrint"score=";scoreEndSub10例5.5：已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。1.用多分支结构实现:IfUcase(strC)>="A"AndUcase(strC)<="Z"ThenPrintstrC+"IsAlphaCharacter"ElseIfstrC>="0"AndstrC<="9"ThenPrintstrC+"IsNumeralCharacter

6、"ElsePrintstrC+"OtherCharacter"EndIf2.用SelectCase语句实现:SelectCasestrCCase"a"To"z"，"A"To"Z"PrintstrC+"IsAlphaCharacter"Case"0"To"9"PrintstrC+"IsNumeralCharacter"CaseElsePrintstrC+"OtherCharacter"EndSelect11例5.6设银行的定期存款利率为：一年期2.52%，二年期3.06%，三年期3.69%，五年期4.14%（不计复利）。请输入存款金额，并选择存款年限，编程计算到期本息合计总值。12Priv

7、ateSubCommand1_Click()DimmoneyAsSingle,interestAsSingle,yearAsIntegermoney=Val(Text1.Text)SelectCaseTrueCaseOption1.Valueyear=1：interest=0.0252CaseOption2.Valueyear=2：interest=0.0306CaseOption3.Valueyear=3：interest=0.0