计算机基础知识填空题答案(计算机会考).docVIP

PAGE PAGE 9 信息科技VB程序练习 班级 姓名 学号 一、写出程序运行结果 1、下面算法 a=4 a=2 b=a/a print b 运行结果是 2． X=”12.6 Y=”34.4 print x+y print “x+y” 运行结果是 3、 a=3 b=5 n=0 if n=int(n/2)*2 then a=a+1 else b=b+2 end if b=b+1 print a,b 运行结果是 4. S=0 P=1 Do while p=10 If p mod 3=0 then s=s+1 end if p=p+2 loop print s 运行结果是 5. a=0 do while a=10 a=a+5 loop print a*2 运行结果是 6、 N=1 T=1 DO WHILE T=9 N=N*2 T=T+N LOOP print T, N 运行结果是 7. P=”DATA” Q=”DATE” IF AQ THEN P=Q+P ELSE P=P+Q END IF print P 运行结果是 8. m=12 n=8 if m mod n0 then t= m mod n m=n n=t end if print n 运行结果是 9. s=0 t=1 i=1 do while i=3 t=t*i s=s+t i=i+1 loop print “s=”;s 运行结果是 10. x=5 if (2*x-3)0 then x=x-2 else x=x+2 end if print x 运行结果是 11. A=0 DO WHILE A=10 A=A+5 LOOP print A*2 运行结果是 二、根据题意，把VB程序填写完整 1、统计1-10中能被3整除的数的个数 S=0 P=1 Do while p=10 If p mod 3=0 then s=s+1 end if p=p+1 loop print s 2、求出A、B、C三个数的最小数 A=5:B=5:C=2 IF A=B THEN IF A=C THEN PRINT A ELSE PRINT C END IF ELSE IF B=C THEN PRINT B ELSE PRINT C END IF END IF 3、求输入20个数的和 s=0 i=1 do while i=20 x=inputbox(“”) s=s+x i=i+1 loop print s s=0 for i=1 to 20 x=inputbox(“”) s=s+x next i print s 4、求1-1000中能被3整除的数 n=1 do while n=1000 if n/3=int(n/3) then print n end if n=n+1 loop 5、百鸡百钱问题：公鸡每只5元，母鸡每只3元，小鸡1元3只，现在用100元钱买100鸡，求公鸡、母鸡、小鸡各买几只？ x=0 do while x=100 y=0 do while y=100 z=100-x-y if 5*x+3*y+z/3=100 then print x,y,z end if y=y+1 loop x=x+1 loop For x=0 to 100 For y=0 to 100 z=100-x-y if 5*x+3*y+z/3=100 then print x,y,z end if next y next x 6、输入10个数依次存放到数组d中，再将其逆序输出。 i=1 do while i=10 d(i)=inputbox() i=i+1 loop i=10 do while i=1 print d(i) i=i-1 loop For i= 1 to 10 d(i)=inputbox() next for i=10 to 1 step -1 print d(i) next 7、已知数组a中已存放了10个数，输出其中的最大数。