信息科技VB程序练习班级姓名学号一、写出程序运行结果1、下面算法a=4a=2b=a/aprintb运行结果是2．X=”12.6”Y=”34.4”printx+yprint“x+y”运行结果是3、a=3b=5n=0ifn=int(n/2)*2thena=a+1elseb=b+2endifb=b+1printa,b运行结果是4.S=0P=1Dowhilep<=10Ifpmod3=0thens=s+1endifp=p+2loopprints运行结果是5.a=0dowhilea<=10a=a+5loopprinta*2运行结果是6、N=1T=1DOWHILET<=9N=N*2T=T+NLOOPprintT,N运行结果是7.P=”DATA”Q=”DATE”IFA>QTHENP=Q+PELSEP=P+QENDIFprintP运行结果是8.m=12n=8ifmmodn<>0thent=mmodnm=nn=tendifprintn运行结果是9.s=0t=1i=1dowhilei<=3t=t*is=s+ti=i+1loopprint“s=”;s运行结果是10.x=5if(2*x-3)>0thenx=x-2elsex=x+2endifprintx运行结果是11.A=0DOWHILEA<=10A=A+5LOOPprintA*2运行结果是二、根据题意，把VB程序填写完整1、统计1-10中能被3整除的数的个数S=0P=1Dowhilep<=10Ifpmod3=0thens=s+1endifp=p+1loopprints2、求出A、B、C三个数的最小数A=5:B=5:C=2IFA<=BTHENIFA<=CTHENPRINTAELSEPRINTCENDIFELSEIFB<=CTHENPRINTBELSEPRINTCENDIFENDIF3、求输入20个数的和s=0i=1dowhilei<=20x=inputbox(“”)s=s+xi=i+1loopprintss=0fori=1to20x=inputbox(“”)s=s+xnextiprints4、求1-1000中能被3整除的数n=1dowhilen<=1000ifn/3=int(n/3)thenprintnendifn=n+1loop5、百鸡百钱问题：公鸡每只5元，母鸡每只3元，小鸡1元3只，现在用100元钱买100鸡，求公鸡、母鸡、小鸡各买几只？x=0dowhilex<=100y=0dowhiley<=100z=100-x-yif5*x+3*y+z/3=100thenprintx,y,zendify=y+1loopx=x+1loopForx=0to100Fory=0to100z=100-x-yif5*x+3*y+z/3=100thenprintx,y,zendifnextynextx6、输入10个数依次存放到数组d中，再将其逆序输出。i=1dowhilei<=10d(i)=inputbox()i=i+1loopi=10dowhilei>=1printd(i)i=i-1loopFori=1to10d(i)=inputbox()nextfori=10to1step-1printd(i)next7、已知数组a中已存放了10个数，输出其中的最大数。k=d(1)i=2dowhilei<=10ifd(i)>kthenk=d(i)endifi=i+1loopprintkk=d(1)fori=2to10ifd(i)>kthenk=d(i)endifnextprintk8、在屏幕上输出一行20个“*”。i=1dowhilei<=20print“*”i=i+1loop10、i=1dowhilei<=20print“*”i=i+1loop9、输入全班学生某次考试的成绩mark，统计100分的人数，输入-1表示结束。n=0mark=inputbox()dowhilemark<>-1ifmark=100thenn=n+1endifmark=inputbox()loopprintnn=0mark=inputbox()dowhilemark<>-1ifmark=100thenn=n+1endifmark=inputbox()loopprintn10、在已赋值的规模为8的数组b中，顺序查找数