文档介绍：《算法与程序设计》(写出实现流程图虚线框部分 )/输入一个实数a/b=a b=-.(开始)s—O,i—1/输入x/,编程求这n个数的总和平均值最大值最小值正数和负数的个数cl=0,c2=0/输入x/NxoO?Ncl二cl+1c2As附录:参考答案第一题:mandl_Click()DimaAsIntegerDimbAsIntegera=InputBox(n请输入数据aH)Ifa<0Thenb二Elseb=aEndIfPrintbEndSub第二题:mand2_Click()DimxAsIntegerDimyAsIntegera=800:b=1000x=InputBox(n请输入数据xH)Ifx<aTheny=0ElseIfx<bTheny=10Elsey=20EndIfEndIfPrintyEndSub第三题:mand3_Click()DimiAsInteger,sAsIntegeri=1:s=0Dos=s+ii=i+3LoopWhilei<100PrintsEndSub第四题:mand4_Click()DimiAsInteger,sumAsSinglei=1:sum=0DoWhilei<=100sum=sum+1/ii=i+1LoopPrintsumEndSub第五题:mand5_Click()DimiAsInteger,sAsInteger,xAsSingles=0:i=1DoWhilei<=5X=InputBox(n请输入数据xH)Ifx>0ThenS=S+XEndIfi=i+1LoopPrintsEndSub第六题:mand6_Click()DimxAsSingle,clAsInteger,Integercl=0:c2=0DoWhilei<5x=InputBox(n请输入数据xH)Ifx<>0ThenIfx<0Thencl=cl+1Elsec2=c2+1EndIfEndIfi=i+1LoopPrintcl,c2EndSub第六题(mand7_Click()Dimx(lTo5)AsIntegerDimclAsInteger,c2AsIntegerFori=1To5x(i)=InputBox("请输入第"&i&据:”)Ifx(i)<>0ThenIfx(i)<0Thencl=cl+1Elsec2=c2+1EndIfEndIfNextiPrintcl,c2EndSub第七题(1):mand8_Click()DimsumAsSingle,iAsIntegerDimnAsInteger,xAsIntegersum=0i=1n=InputBox(,,n:H)DoWhilei<=nx=InputBox(nx:H)sum=sum+xi=i+1LoopPrintsumEndSub第七题(2):mand9_Click()DimsumAsSingle,iAsIntegerDimnAsInteger,xAsIntegersum=0i=1n=InputBox(nn:f,)DoWhilei<=nx=InputBox(Hx:H)sum=sum+xi=i+1LoopPrintsum/nEndSub第七题(3):mandlO_CIick()Dimd(lTo100)AsIntegerDimiAsInteger,tempAs