《QBASIC语言及程序设计》试题及答案(一)

1、qbasic语言及程序设计复习题及答案（一）一、选择题(每题2分，共70分)(1)进入qbasic操作环境，它提供_d_个窗口。a) 1 b) 4 c) 3 d) 2(2)在qbasic中，下面四个数中，作为常量有语法错误的是_d_。a)123.456# b) 1234！c) 1.23d-23 d) 1.89e1.1(3)在qbasic中，12345678&的类型是_b_。a)整型 b)长整型 c)字符常数 d)双精常数(4)下面变量名不合法的是_c_。a) a2(2,4) b) abcd c) a$x d) cde(5)dim a1020(10 to 20)所定义的数组元素个数是_a

2、_。a) 11 b) 20 c) 30 d) 10(6)在qbasic语言中，行号或标号的作用是表明_c_。a)执行程序的顺序 b)程序编排的顺序c)转移指向的标志 d)无作用(7)qbasic中，执行下面的四个语句时出现错误的是_c_。a) x=sgn(0) b) x=sqr(0)c) x=log(0) d) x=sin(0)(8)在qbasic程序中，一行中多于一个语句时，语句间的分隔符是_c_。a)空格 b) ， c) ： d) ；(9)下面的四个qbasic逻辑表达式语法正确的是_d_。a)a>b .and. b<>c b)a>b,cc)a>b and &

3、lt;>c d)a>b and b<>c(10)在qbasic中，下面的四组read、data语句，语法上错误的是_d_。a)read xx,yy,zz$ b)read xx$，yy$，zz$data 11,22,33 data 11,22,33c)read xx$，yy$，zz$ d)read xx,yy,zzdata aa,bb,cc data aa,bb,cc(11)在qbasic中下面的四个数组说明语句语法正确的是_c_。a)dim a10 b)def fn(10) c)dim a(10) d)dimension a(10)(12)语句print “25*40”

4、输出的结果是_c_。a)“25*40” b)出现错误信息c)25*40 d)1000(13)在第20行第5列输出一个字符所用的定位语句是_a_。a)locate 20,5 b)col 5,row 20c)line 20,column 5 d)locate 5,20(14)正确的单行自定义函数语句是_c_。a) def ab(x,y)=a3+b2b) define fnxy()=x3+y2c) def fna(x,y)=x3+y2d)def fn(x,y)=x3+y2(15)表达式int(rnd*11)+100的值的范围是_b_。a) 11,110 b) 100,110c) 11,100 d)

5、0,100(16)有如下程序 a=1 ： b=2 ： c=3 a=b ： b=c ： c=a print a;b;c end 运行后输出的结果是_c_。a) 1 2 3 b) 2 3 1 c) 2 3 2 d) 2 2 3(17)有如下程序a=3 ：b=4print a=bend 运行后输出的结果是_a_。a) 0 b) 3 c) 4 d)显示出错信息(18)有如下程序 for m=1 to 3 for j=1 to m for k=j to 3 n=n+1 next k next j next m end 运行后n的值为_b_。a) 3 b) 14 c) 9 d)21(19)有如下程序a$=

6、“12”b$=“34”c$=a$+b$ d=val(c$) print d end 运行后输出的结果是_d_。a) 12 b) 34 c) 46 d) 1234(20)有如下程序 a=12.3 ： b=-123 m=len(str$(a)+str$(b) print m end 运行后输出的结果是_a_。a) 9 b) 5 c) 7 d) 8(21)有如下程序 for j=1 to 15 a=a+j mod 3 next j print a end 运行后输出的结果是_b_。a) 1 b) 15 c) 90 d) 120(22)要将x,y两个变量的值互换，正确的语句是_a_。a)swap x,

7、y b)shift x,yc)x swap y d)change x,y(23)有如下程序 a$=“123” ： b=“456” c=val(a$)+val(b) print c end 执行后输出的结果是_d_。a) 123 b)显示出错信息 c) “579” d) 579(24)有如下程序a$=“bird”c$=“fly” print a$；“can”；c$；“！” end 运行后输出的结果是_c_。a) bird can fly！ b) bird canfly！c) birdcanfly！ d)“bird can fly！”(25)有如下程序 for x=1 to 2 a=0 for y

8、=1 to x+1 a=a+1 next y print a; next x end 运行时输出的结果是_d_。a) 1 1 b) 0 0 c)1 2 d) 2 3(26)有如下程序 def fna(x,y)=x*y+3*y x=4 ： y=3 print fna(y,x) end 运行时输出的结果是_c_。a) 22 b) 23 c) 24 d) 22.33(27)有如下程序 n$=“nnnnn” mid $(n$，2,2)=“nn” print n$ end 运行输出n$的结果是_b_。a)nn b)nnnnn c)nnnn d)nnnnn(28)有如下程序 for j=1 to 10 r

9、ead a if a/3=a3 or a/5=a5 then sum=sum+a next j print “sum=”；sum data 19,17,15,13,11,9,7,5,3,1 end 运行时输出sum的值是_c_。a) 27 b) 15 c) 32 d) 20(29)执行print using “#.#%”；123.456的结果是_c_。a) 123.456% b) 123.46 c)123.46% d) 123.45%(30)有如下程序 for j=1 to 10 if j=10 then else sum=sum+j end if next j print sum end运行

10、时输出的结果是_a_。a) 45 b) 55 c)显示错误信息 d) 36(31)有如下程序 s=0 do s=(s+1)*(s+2) number=number1 loop until s>=30 print unmber;s end 运行输出的结果是_d_。a) 0 1 b) 30 30 c) 4 30 d) 3 182(32)有如下程序 m=1 for k=3 to 1 step -1 x$=string$(k,“*”) print m;x$ m=m+1 next k end 运行后输出的是_d_。a) 1 * b) 1 * c) 3 * d) 1 * 2 * 2 * 2 * 2

11、* 3 * 3 * 1 * 3 *(33)有如下程序 declare sub f(k,s) total=0 for k=2 to 4 call f(k,s) total=total+s next k print total end sub f(k,s) s=1 for m=1 to k s=s*m next m end sub 运行时输出的结果是_b_。a) 9 b) 32 c) 6 d) 8(34)有如下程序score=int(rnd*10)+80 select case scorecase is<60a$=“f” case 60 to 69 a$=“d” case 70 to 79

12、a$=“c” case 80 to 89 a$=“b” case else a$=“a” end select print a$ end 运行时输出的结果是_b_。a) a b) b c) c d) d(35)有如下程序 cls screen 13 color 3 randomize timer x=160 ：y=100 for j=1 to 5 r=5*j c=int(rnd*151) a：circle (x,y)，_ ,c next j end 该程序要完成的功能是画出五个不同颜色，不同大小，不同位置的圆。应在标号为a的语句之空白处加入的正确内容是_c_。a) x b) y c) r d)

13、 a 二、填空题(每题3分，共30分) 请将每一个空的正确答案写在答题卡相应的横线上，答在试卷上不得分。 (1)xcos(sinx)数学式的qbasic表达式是_ x*cos(sin(x)_。 (2)在qbasic程序中定义全局变量ab的语句是_ common shared ab _。 (3)表达式25 mod(23-1)的值为_4_ (4)四个字符串“abc”,“abc”,“abcde”及“afgh”中的最大者为_“afgh”或者afgh _。 (5)下面程序运行后的输出结果如下： d cd bcd abcd 但程序不完整，请在_处补充使之完整。 a$=“abcd” for m=1 to 4

14、 print tab(5-m)；_ right$(a$，m)_ next m end (6)下面程序运行后的输出结果是_126_。 k=1 for j=2 to 5 k=k*j next j print k+j end (7)下面的程序是用选择交换法将10个数排成升序，请在_处将程序补充完整。 option base 1 n=10 dim array(n) print “data before sorting:” for i=1 to 10 read array(i)：print array(i)； next i data 123,96,42,39,22,14,7,4,0,-7 print f

15、or i=_1 to n-1 或1 to 9_ k=i for j=_1 to n 或1 to 10_ if array(k)>array(j)then _ k=j _ next i if k<>i then swap array(k)，array(i) next i print “data after sorting:” for i=1 to 10 print array(i) next i print end (8)下面程序运行后输出的结果是_26_。 for a=1 to 5 y=1 for b=1 to 5 for c=1 to 5 y=y1 next c next

16、b next a print “y=”；y end (9)下面程序的作用是利用随机函数产生10个100200之间(包含100,200)的随机整数，打印其中7的倍数的数,并求出它们的总和。请根据程序的需要，在_处填上正确的内容。 randomize timer for m=1 to 10 x=int ( rnd * 101100) if x mod 7 = 0或int(x/7)=x/7 then print x; k1=k1+x end if next m print print “k1=”；k1 end (10)下面程序运行后输出的结果是_second_ for j=1 to 3 read a$ st$=st$+left$(a$，j) next j print st$ data sum,echo,ondometer end qbasic语言及程序设计笔试试题答案（一）一、选择题(每题2分，共70分)(1) d (2)d (3)b (4)c (5)a (6)c (7)c (8)c (9)d (10)d (11)c (12)c (13)a (14)c (15)b (16)c (17)a (18)b (19)d (20)a(21)b (22)a (23)d (24