五、用Do-Loop语句编写程序.pptx

《五、用Do-Loop语句编写程序.pptx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、程序的基本结构①顺序结构：按照由上到下的顺序一行一行地执行。程序中没有分支，没有重复。②选择结构：根据不同的条件判断来决定程序执行走向的结构。程序中有分支，没有重复。③循环结构：根据条件判断，需要重复执行某一段代码的程序。程序中可能存在分支和重复。1、顺序结构PrivateSubcommand1_Click()DimaAsSingleDimbAsSingleDimcAsSinglea=text1.textb=text2.textc=aa=bb=ctext1.text=atext2.text=bEndSub开

2、始输入a,bc=aa=bb=c输出a,b结束2、选择结构Privatesubcommand1_click()DimaassingleA=val(text1.text)Ifa>=60thenPrint“合格”Elseprint“不合格”EndifEndsub开始输入aa>=60输出“合格”输出“不合格”结束YNIF语句有：单分支选择结构，形式为If<条件成立>Then语句块EndIf；双分支选择结构，形式为If<条件成立>Then语句1Else语句2EndIf；Ifxmod2=0thenPrint“偶数”Elsepr

3、int“奇数”endif例如：ifxmod2=0thenprint“偶数”endif多分支选择结构，形式为If<条件1成立>Then<语句块1>ElseIf<条件2成立>Then<语句块2>…[Else语句块n+1]EndIfX=t/(s*s)Ifx>23thenStr=“您的体形偏胖”Elseifx<19.5thenstr=“您的体形偏瘦”elsestr=“您的体形很完美”endif例：输入一学生成绩，评定其等级。方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及

4、格”，60分以为“不合格”使用IF语句实现的程序段如下：Ifx>=90thenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfSelectcasexCase90to100Print“优秀”Case80to89Print“良好”Case70to79Print“中等”Case60to69Print“及格”Elseprint“不及格”Endselect当程序出现多分支选择

5、时，用If语句比较烦琐，而使用多分支选择SelectCase语句就方便多了。SelectcasexCaseis>23str=“您的体形偏胖”Caseis<19.5str=“您的体形偏瘦”Caseelsestr=“您的体形很完美”EndselectbSelectcasemonthCase1,3,5,7,8,10,12print“大月”Case2print“平月”Caseelseprint“小月”EndselectSelectcasexmod2Case0print“偶数”Case1print“奇数”Endselect语

6、法格式为：SelectCase表达式的值Case情况1语句块1[Case情况2语句块2]……[CaseElse语句块n]EndSelect课堂练习编写程序：用计算机产生一个1到12之间的随机数整数做为月份数，然后判断这个月是哪个季节的，并输出该月数及判断结果。程序代码PrivateSubcommand1_Click()DimaAsIntegerRandomizea=Int(Rnd()*12)+1ifa<=3thenLabel1.Caption=Str(a)&"月份是"&"春季"elseifa<=6thenLabel

7、1.Caption=Str(a)&“月份是”&“夏季”elseifa<=9thenLabel1.Caption=Str(a)&"月份是"&"秋季"elseLabel1.Caption=Str(a)&"月份是"&"冬季"endifendSubPrivateSubcommand1_Click()DimaAsIntegerRandomizea=Int(Rnd()*12)+1SelectCaseaCase1To3Label1.Caption=Str(a)&"月份是春季"Case4To6Label1.Caption=Str(

8、a)&"月份是夏季"Case7To9Label1.Caption=Str(a)&"月份是秋季"CaseElseLabel1.Caption=Str(a)&"月份是冬季"EndSelectendSub下面是两种正确的嵌套形式：（1）IF<条件1>Then…..IF<条件2>Then……Else…..EndIf….Else….IF<条件3>Then…..Else