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

程序的基本结构,顺序结构：按照由上到下的顺序一行一行地执行。程序中没有分支，没有重复。选择结构：根据不同的条件判断来决定程序执行走向的结构。程序中有分支，没有重复。循环结构：根据条件判断，需要重复执行某一段代码的程序。程序中可能存在分支和重复。,1、顺序结构PrivateSubcommand1_Click()DimaAsSingleDimbAsSingleDimcAsSinglea=text1.textb=text2.textc=aa=bb=ctext1.text=atext2.text=bEndSub,2、选择结构Privatesubcommand1_click()DimaassingleA=val(text1.text)Ifa=60thenPrint“合格”Elseprint“不合格”EndifEndsub,IF语句有：单分支选择结构，形式为IfThen语句块EndIf；,双分支选择结构，形式为IfThen语句1Else语句2EndIf；,Ifxmod2=0thenPrint“偶数”Elseprint“奇数”endif,例如：ifxmod2=0thenprint“偶数”endif,多分支选择结构，形式为IfThenElseIfThenElse语句块n+1EndIf,X=t/(s*s)Ifx23thenStr=“您的体形偏胖”Elseifx=90thenPrint优秀ElseIfx=80ThenPrint良好ElseIfx=70ThenPrint中等ElseIfx=60ThenPrint及格ElsePrint不及格EndIf,SelectcasexCase90to100Print“优秀”Case80to89Print“良好”Case70to79Print“中等”Case60to69Print“及格”Elseprint“不及格”Endselect,当程序出现多分支选择时，用If语句比较烦琐，而使用多分支选择SelectCase语句就方便多了。,SelectcasexCaseis23str=“您的体形偏胖”Caseis19.5str=“您的体形偏瘦”Caseelsestr=“您的体形很完美”Endselectb,SelectcasemonthCase1,3,5,7,8,10,12print“大月”Case2print“平月”Caseelseprint“小月”Endselect,Selectcasexmod2Case0print“偶数”Case1print“奇数”Endselect,语法格式为：SelectCase表达式的值Case情况1语句块1Case情况2语句块2CaseElse语句块nEndSelect,课堂练习,编写程序：用计算机产生一个1到12之间的随机数整数做为月份数，然后判断这个月是哪个季节的，并输出该月数及判断结果。,程序代码PrivateSubcommand1_Click()DimaAsIntegerRandomizea=Int(Rnd()*12)+1ifa=3thenLabel1.Caption=Str(a)Nexti,N=10Fori=1tonstep3print“*”;Nexti,编程:输入一整数n,计算s=1+2+3+n,Dimnasinteger,saslongN=val(text1.text)S=0Fori=1tons=s+iNextiPrint“1+2+”S,思考:如何判断一个数是素数?,Dimnasinteger,flagasbooleanN=val(text1.text)Flag=trueFori=2toint(sqr(n)ifnmodI=0thenflag=falseexitforendifNextiIfflag=truethenlabel1.caption=str(n)i=i+1loop,课堂练习：,1、编程:输入一整数n,计算s=1+2+3+n2、编程：输入一整数N，判断N是否素数,多重循环,PrivateSubF