vb程序的三种基本结构课件.ppt

《vb程序的三种基本结构课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、程序的三种基本结构第二节三种基本结构的表示（1）顺序结构条件语句1语句2YN语句1语句2（2）选择结构PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa=0ThenMsgBox"error!"EndEndIfd=b^2-4*a*cIfd<0ThenLabel4.Caption="无解"Label5.Caption=""ElseIfd=0Thenx=-b/(2*a)Label4.Caption="X1=X2="&xLabel5.C

2、aption=""ElseX1=(-b+Sqr(d))/(2*a)X2=(-b-Sqr(d))/(2*a)Label4.Caption="X1="&X1Label5.Caption="X2="&X2EndIfEndSub求一元二次方程的根显示出错a=0d=b^2-4acd<0求x1,x2输入a,b,c开始输出x1,x2求x结束YNNY显示无解d=0输出x1=x2=x选择结构PrivateSubCommand1_Click()DimxasintegerX=Val(inputbox(“输入一个整数：”))If　_____A____ThenL

3、abel1.caption:="偶数"ElseLabel1.Caption="奇数"EndIfEndSub补充程序：Xmod2=0选择结构PrivateSubForm_Click()DimxAsIntegerx=Val(Text1.Text)Ifx>=0ThenPrintSqr(x)ElsePrintSqr(-x)&"i"EndIfEndSub写出程序结果：（3）循环结构条件(a)YN语句组为希望工程存款：第一个月存１元，第二个月存２元，……两年后共存多少元？分析：1+2+3……+24(N取1……24)sum=1+2+3……+24Sum

4、=0N=1n<=24开始sum=sum+nn=n+1结束YN输出sumPrivateSubCommand1_Click()dimnasinteger,sumasintegern=1s=0dowhilen<=24sum=sum+nn=n+1loopprint"两年共存入"&sum&"元"EndSub循环★思考：循环结束后，n的值为？Printn为希望工程存款：第一个月存１元，第二个月存２元，……两年后共存多少元？分析：1+2+3……+24(N取1……24)sum=1+2+3……+24Sum=0N=1n<=24开始sum=sum+nn=n+

5、1结束YN输出sumPrivateSubCommand1_Click()dimnasinteger,sumasintegersum=0forn=1to24sum=sum+nnextnprint"两年共存入"&sum&"元"EndSub循环★思考：循环结束后，n的值为？For语句：For循环控制变量＝初值to/downto终值[Step步长]语句块Next循环控制变量forn=1to24step1sum=sum+nnextn步长指循环控制变量每次增加的值。若省略，则默认为１Dowhile语句形式1：（当型循环）DoWhile<条件>语句块

6、Loop形式2：(直到型循环）Do语句块Loop{While

7、Until}<条件>练习：求1+2+3……+100求1……100的偶数和。输出100~200之间不能被3整除的数。求1~100的和S=0Forn=1to100s=s+nNextnS=0Forn=100downto1s=s+nNextnS=0Forn=100to1step-1s=s+nNextn求1~100的偶数和S=0Forn=２to100step2s=s+nNextnS=0Forn=1to100ifnmod2=0thens=s+nendifNextn输出100~200之间不

8、能被3整除的数。Forn=100to200if_____A_______then_____B____endifNextnnmod3<>0Printn分析：用for语句Forn=1to?sum=sum+nNextn为希望工程存款2：多少月后才能存款超过500元？不能确定循环次数为希望工程存款2：多少月后才能存款超过500元？用dowhile语句Sum=0N=1Dowhilesum<=500sum=sum+nn=n+1LoopPrint___B____用dowhile语句Sum=0N=0Dowhile___A_____n=n+1sum=su

9、m+nLoopPrint___B___Sum<=500nn-1