最新高一信息会考(1)上课讲义.doc

《最新高一信息会考(1)上课讲义.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《算法与程序设计》单元复习一、程序设计（写出实现流程图虚线框部分的程序代码）1．YN开始a>0?b=-a结束输出bb=a输入一个实数a2．3．YN开始i<100i=1,s=0s=s+i结束输出si=i+34．NY开始i<=100?i=1i=i+1结束输出sumsum=sum+1/isum=0YYN开始i<=5s←s+xi←i+1结束输出ss←0,i←1x>0?N输入x5．6．NYNY开始x<0?c1=0,c2=0c2=c2+1结束输入x输出c1,c2x<>0?c1=c1+17．已知n个数，编程求这n个数的（1）总和（

2、2）平均值（3）最大值（4）最小值（5）正数和负数的个数附录：参考答案第一题：PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegera=InputBox("请输入数据a")Ifa<0Thenb=-aElseb=aEndIfPrintbEndSub第二题：PrivateSubCommand2_Click()DimxAsIntegerDimyAsIntegera=800:b=1000x=InputBox("请输入数据x")Ifx

3、y=10Elsey=20EndIfEndIfPrintyEndSub第三题：PrivateSubCommand3_Click()DimiAsInteger,sAsIntegeri=1:s=0Dos=s+ii=i+3LoopWhilei<100PrintsEndSub第四题：PrivateSubCommand4_Click()DimiAsInteger,sumAsSinglei=1:sum=0DoWhilei<=100sum=sum+1/ii=i+1LoopPrintsumEndSub第五题：PrivateSubCom

4、mand5_Click()DimiAsInteger,sAsInteger,xAsSingles=0:i=1DoWhilei<=5x=InputBox("请输入数据x")Ifx>0Thens=s+xEndIfi=i+1LoopPrintsEndSub第六题：PrivateSubCommand6_Click()DimxAsSingle,c1AsInteger,c2AsIntegerc1=0:c2=0DoWhilei<5x=InputBox("请输入数据x")Ifx<>0ThenIfx<0Thenc1=c1+1Elsec

5、2=c2+1EndIfEndIfi=i+1LoopPrintc1,c2EndSub第六题（数组）：PrivateSubCommand7_Click()Dimx(1To5)AsIntegerDimc1AsInteger,c2AsIntegerFori=1To5x(i)=InputBox("请输入第"&i&"个数据:")Ifx(i)<>0ThenIfx(i)<0Thenc1=c1+1Elsec2=c2+1EndIfEndIfNextiPrintc1,c2EndSub第七题（1）：PrivateSubCommand8_Cl

6、ick()DimsumAsSingle,iAsIntegerDimnAsInteger,xAsIntegersum=0i=1n=InputBox("n:")DoWhilei<=nx=InputBox("x:")sum=sum+xi=i+1LoopPrintsumEndSub第七题（2）：PrivateSubCommand9_Click()DimsumAsSingle,iAsIntegerDimnAsInteger,xAsIntegersum=0i=1n=InputBox("n:")DoWhilei<=nx=Input

7、Box("x:")sum=sum+xi=i+1LoopPrintsum/nEndSub第七题（3）：PrivateSubCommand10_Click()Dimd(1To100)AsIntegerDimiAsInteger,tempAsInteger,jAsIntegern=InputBox("请输入数据:")Fori=1Tond(i)=InputBox("请输入第"&i&"个数据:")NextFori=2TonForj=nToiStep-1Ifd(j)

8、:d(j-1)=tempEndIfNextjNextiPrintd(n)EndSub第七题（3）不用数组：PrivateSubCommand13_Click()DimxAsSingle,maxAsSingleDimiAsInteger,nAsIntegern=InputBox("请输入数据n:")x=InputBox("请输入数据x:")i=1