2001年9月全国计算机等级考试QBASIC试卷（含答案）

　　一、选择题((1)-(40)题每题1分,(41)-(50)题每题2分,共60分)
　　下列各题A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。
　　(l) 在计算机系统中，一个字节的二进制位数为
　　A) 16 B) 8 C) 4 D) 由 CPU的型号决定
　　(2) 存储 16×16点阵的一个汉字信息，需要的字节数为
　　A) 32 B) 64 C) 128 D) 256
　　(3) 英文大写字母B的ASCII码为42H，英文小写字母b的ASCII码为
　　A) 43H B) 84H C) 74H D) 62H
　　(4) 下列计算机语言中，CPU能直接识别的是
　　A) 自然语言 B) 高级语言 C) 汇编语言 D)机器语言
　　(5) 在计算机领域中，所谓“裸机”是指
　　A) 单片机 B) 单板机
　　C) 不安装任何软件的计算机 D) 只安装操作系统的计算机
　　(6) 下列带有通配符的文件名中，能代表文件ABCDEF.DAT的是
　　A) A*.* B) ?F.* C) *.？ D) AB?.*
　　(7) 下列DOS命令中，执行时不会发生错误的是
　　A) TYPE *.TXT B) DIR *.TXT
　　C) REN A.TXT A:b.TXT D) COPY *.TXT>CON
　　(8) 设当前盘为C盘，C盘的当前目录为\A\B\C。下列DOS 命令中能正确执行的是
　　A) MD \ B) MD A:\ C) MD \A\B D) CD C:
　　(9) 为了将C:USER中的文件FILE.TXT同名复制到A盘根目录下，下列DOS命令中能正确执行的是
　　A) TYPE C:\USER\FILE.TXT > A:\FILE.TXT
　　B) TYPE C:\USER\FILE.TXT A:\FILE.TXT
　　C) COPY C:\USER\FILE.TXT > A:\FILE.TXT
　　D) COPY C:\USER\FILE.TXT
　　(10) 在Windows下，当一个应用程序窗口被最小化后，该应用程序
　　A) 终止运行 B) 暂停运行 C) 继续在后台运行 D) 继续在前台运行
　　(11) 在Windows环境下，下列操作中与剪贴板无关的是
　　A) 剪切 B) 复制 C) 粘贴 D) 删除
　　(12) 在Windows环境下，实现窗口移动的操作是
　　A) 用鼠标拖动窗口中的标题栏 B) 用鼠标拖动窗口中的控制按钮
　　C) 用鼠标拖动窗口中的边框 D) 用鼠标拖动窗口中的任何部位
　　(13) 一台计算机连入计算机网络后，该计算机
　　A) 运行速度会加快 B) 可以共享网络中的资源
　　C) 内存容量变大 D) 运行精度会提高
　　(14) 不能作为计算机网络中传输介质的是
　　A) 微波 B) 光纤 C) 光盘 D) 双绞线
　　(15) 下列各项中，不属于多媒体硬件的是
　　A) 声卡 B) 光盘驱动器 C) 显示器 D) 多媒体制作工具
　　(16) QBASIC中，装入一个已有文件，应使用菜单File下的命令：
　　A) New B) Open C) Save D) Exit
　　(17) 如果想观察一个QBASIC程序中的各个子程序和函数，应使用菜单View下的命令：
　　A) New B) Split C) SUBs D) Output Screen
　　(18) 下面叙述正确的是
　　A) 程序的行号或标号与程序的执行完全无关
　　B) 程序的行号或标号是程序执行顺序的唯一依据
　　C) 同一个程序段中不能有相同的二个行号或标号
　　D) 同一个程序段中,必须统一用行号或标号，不能有的用行号有的用标号
　　(19) 在QBASIC中，常量8888888&的数据类型是
　　A) 整型 B) 实型 C) 双精度型 D) 长整型
　　(20) 下面四项中不能作为QBASIC变量名的是
　　A) xyz.xyz B) uvwxyz123456 C) sincos D) 123xyz
　　(21) 在QBASIC中，执行下面四个语句，将得到错误信息的是
　　A) ?SGN(0) B) ?ASC(“0”) C) ?ABS(0) D) ?COS(“0”)
　　(22) 表达式FIX(-23.87)+INT(24.56)的值为
　　A) 0 B) 1 C) -1 D) 2
　　(23) 四个字符“D”,“z”,“A”，“9”的ASCII码值最大的是
　　A) “D” B) “z” C) “A” D) “9”
　　(24) m,n是整数，且n>m，在以下四个语句中，能将x赋值为一个m-n之间(含m,n)任意整数，即满足m≥x≥n的是
　　A) x=INT(RND*(n-m+1))+m B) x=INT(RND*n)+m
　　C) x=INT(RND*m)+n D) x=INT(RND*(n-m))+m
　　(25) 在以下四个逻辑表达式中，其逻辑值为“真”的是
　　A) NOT(3+5<4+6) B) 2>1 and 3<2 C) 1>2 OR 2>3 D) NOT(1>2)
　　(26) 下面的四项叙述中错误的是
　　A) 在一行中有多条语句时，逗号“，”可作为语句间的分隔符
　　B) 在PRINT语句中，有多个输出项时逗号“，”可作为输出项间的分隔
　　C) 一个DIM语句定义多个数组时，逗号“，”可作为数组间的分隔符
　　D) 在READ语句中，有多个变量时逗号“，”可作为变量间的分隔符
　　(27) 表达式“Turbo”+“c”>“True”+“Basci”的值是
　　A) 0 B) 1 C) –1 D) 2
　　(28) 语句DIM arr(-3 to 5, 2 to 6)AS INTEGER定义的数组元素有
　　A) 45个 B) 40个 C) 11个 D) 54个
　　(29) 下面四组程序成分中语法正确的是
　　A) DEF fncdy(n) B) DEF cdy(n)
　　cdy=2*3.1416*n cdy=2*3.1416*n
　　fncdy=cdy END cdy
　　END DEF
　　C) DEF fncdy() D) DEF fncdy(n)
　　cdy=2*3.1416*n cdy=2*3.1416*n
　　fncdy()=cdy END fncdy
　　END DEF
　　(30) 有如下程序
　　a=3:b=4
　　PRINT b　　END
　　运行后，输出的结果是
　　A) 4>3 B) -1 C) 0 D) 显示出错信息
　　(31) 有如下程序
　　a=0
　　FOR j=1 TO 20 STEP 2
　　a=a+j\5
　　NEXT j
　　PRINT a
　　END
　　运行后，输出的结果是
　　A) 12 B) 16 C) 40 D) 100
　　(32) 有如下程序
　　s=0
　　i=1
　　DO WHILE i<=100
　　IF i MOD 10<>0 THEN
　　s=s+i
　　i=i+1
　　ELSE
　　i=i+1
　　END IF
　　LOOP
　　PRINT s
　　END
　　运行后的输出结果是
　　A) 4050 B) 5050 C) 5000 D) 4500
　　(33 ) 有如下一组程序语句
　　DIM zxs AS INTEGER
　　zxs%=232
　　zxs=232.32
　　PRINT zxs%,zxs
　　运行时的输出结果是
　　A) 232 232.32 B) 232 232 C) 232.32 232.32 D) 显示出错信息
　　(34) 有如下一组程序语句
　　DEFSTR C-F
　　d$=“321”
　　f=“654”
　　PRINT d+f$
　　运行时的输出结果是
　　A) 321654 B) “321654” C) 321+“654” D) 显示出错信息
　　(35) 有如下程序
　　c=70
　　FOR k=11 TO 20
　　READ x
　　IF x　　d=d+x：c=x
　　ELSE
　　d=d+c
　　END IF
　　NEXT k
　　PRINT d
　　DATA 75,55,45,80,30,25,40,15,20,5
　　END
　　运行时的输出结果是
　　A) 335 B) 330 C) 390 D) 485
　　(36) 有如下程序
　　xcase=1
　　INPUT “input value of t：”;t
　　SELECT CASE t
　　CASE IS>0
　　y=xcase+1
　　CASE IS=0
　　y=xcase+2
　　CASE ELSE
　　y=xcase+3
　　END SELECT
　　PRINT xcase;y
　　END
　　运行时，从键盘输入1，输出的结果是
　　A) 1 2 B) 1 1 C) 1 3 D) 1 4
　　(37) 有如下程序
　　a=3
　　IF a<=3 THEN
　　PRINT 3;
　　END IF
　　IF a<=4 THEN
　　PRINT 4;
　　ENDIF
　　IF a<=5 THEN
　　PRINT 5;
　　END IF
　　IF a<=6 THEN
　　PRINT 6;
　　END IF
　　PRINT
　　END
　　运行后输出结果是
　　A) 3 B) 3 4 C) 3 4 5 D) 3 4 5 6
　　(38) 有如下程序
　　a$=“54321”：b$=“abcde”
　　FOR j=1 TO 5
　　PRINT MID$(a$,6-j,1)+MID$(b$,j,1);
　　NEXT j
　　PRINT
　　END
　　运行后输出结果是
　　A) a1b2c3d4e5 B) a5b4c3d2e1 C) 1a2b3c4d5e D) e1d2c3b4a5
　　(39) 有如下程序
　　CONST st$=“CHINA”
　　st$=“GREAT”
　　st$=“HeBei”
　　END
　　PRINT st$
　　END
　　运行后输出结果是
　　A) CHINA B) GREAT C) HeBei D) 显示出错信息
　　(40) 有如下程序
　　FOR m=1 TO 4
　　a=0
　　FOR j=1 TO 5
　　a=1
　　FOR k=1 TO 6
　　a=a+3
　　NEXT k
　　Next j
　　NEXT m
　　PRINT a
　　END
　　运行后输出结果是
　　A) 18 B) 19 C) 90 D) 360
　　(41) 在文本模式下，屏幕上显示的最小单位是
　　A) 一条直线 B) 一个小圆
　　C) 一个字符 D) 一个显象管的象素点（象元）
　　(42) 有如下程序
　　DECLARE SUB A(m,n)
　　m=5: n=4
　　CALL A((m),n)
　　PRINT m,n
　　END
　　SUB A(m,n)
　　s=m
　　m=s/n
　　n=s mod n
　　END SUB
　　运行后输出结果是
　　A) 1 1 B) 5 4 C) 1 4 D) 5 1
　　(43) 有如下程序
　　x=0
　　FOR k=3 TO 5
　　GOSUB ab;
　　s=s+x
　　NEXT k
　　PRINT s
　　END
　　ab: x=x+2
　　RETURN
　　运行后输出结果是
　　A) 3 B) 12 C) 6 D) 9
　　(44) 有如下程序
　　a=30:b=30:c=120:d=120
　　CLS
　　SCREEN 1,0
　　LINE(a,b)-(c,d),1,BF
　　END
　　运行时屏幕上显示
　　A) 一个矩形 B) 一条直线
　　C) 一个填满了颜色的矩形块 D) 无任何图形
　　(45) COMMON SHARED a!,b#语句定义的变量a及b是
　　A) 普通型和特别型的通用变量
　　B) 单精度实型和双精度实型的全局变量
　　C) 单精度实型和双精度实型的局部变量
　　D) 普通型和特别型的全局变量
　　(46) 有如下程序
　　DECLARE FUNCTION Count(title)
　　INPUT title
　　fee=Count(title)
　　PRINT fee
　　END
　　FUNCTION Count(title)
　　IF title<40 THEN
　　pay=title/2
　　ELSE
　　pay=10+title
　　END IF
　　Count=pay
　　END FUNCTION
　　运行时从键盘输入40，输出结果是
　　A) 50 B) 20 C) 10 D) 显示出错信息
　　(47) 有如下程序
　　TYPE goods
　　Num AS INTEGER
　　Num AS INTEGER * 13
　　END TYPE
　　DIM cloth AS goods
　　该程序段定义了两个程序成分，它们分别是
　　A) 记录类型和记录变量 B) 记录类型和数组
　　C) 显示类型和数组 D) 记录变量和数组
　　(48) 有如下程序
　　OPEN “student.dat” FOR OUTPUT AS #1
　　READ num,nam$,sex$,score
　　DO UNTIL nam$=“end”
　　WRITE #1,num,nam$,sex$,score
　　READ num,nam$,sex$,score
　　LOOP
　　DATA 101,Li,m,90,103,Wang,f,98
　　DATA 104,Xiu,f,100,105,Zhang,m,78
　　DATA 000,end,,
　　CLOSE
　　END
　　运行后，在文件student.dat中写入的记录共有
　　A) 3个 B) 4个 C) 5个 D) 6个
　　(49) 以下程序的功能是由键盘输入10个数，然后将此10个数从小到大排序，并将排序后的10个数显示在屏幕上。但程序不完整，须在【49】处将程序补充完整。
　　DIM a(10)
　　FOR j=1 TO 10
　　INPUT a(j):PRINT a(j);
　　NEXT j:PRINT
　　FOR i=1 TO 9
　　FOR j=I+1 TO 10
　　IF a(j)　　NEXT j
　　NEXT j
　　FOR j=1 TO 10
　　PRINT a(j);
　　NEXT j
　　PRINT
　　END
　　【49】处的内容可在如下四项中选择一项
　　A) a(j)= a(j) B) CHANGE a(j), a(j)
　　C) SWAP i,j D) SWAP a(ij), a(j)
　　(50) 有如下程序
　　OPEN “goods.dat”FOR INPUT AS #1
　　n=1
　　DO UNTIL EOF(1)
　　INPUT #1,no,part$,place$,price
　　PRINT no, part$,place$,price
　　n=n+1
　　IF n=5 THEN EXIT DO
　　LOOP
　　CLOSE
　　END
　　在数据文件goods.dat中共有10个记录，运行此程序后，实际从文件goods.dat中读入的记录有
　　A) 3个 B) 4个 C) 5个 D) 6个
　　二、填空题(每空2分，共40分)
　　请将每一个空的正确答案写在答题卡【l】至【20】序号的横线上，答在试卷上不得分。
　　（l）为了将当前盘当前目录中的所有文本文件（扩展名为.TXT）的内容打印输出，正确的单条DOS命令为【l】。
　　（2）设当前盘为C盘。为了在A盘的当前自录\USER下建立一个新的子目录X，正确的DOS命令为【2】。
　　（3）在 XCOPY、COPY、TIME三个 DOS命令中，属于外部命令的是【3】。
　　（4）在32位的计算机中，一个字长等于【4】个字节。
　　（5）计算机网络分为局域网和广域网，因特网属于【5】。
　　（6）数学式的QBASIC表达式【6】。
　　（7）在QBASIC程序中定义长度为10的字符串型变量ab的语句是【7】。
　　（8）表达式34 MOD (1-3^3)的值为【8】。
　　 (9) 四个字符串“ABC”、“Average”及“access”中的最大者为【9】。
　　(10) 下面程序运行后的输出结果如下：
　　D
　　CD
　　BCD
　　ABCD
　　但程序不完整，请在处【10】补充使之完整。
　　程序如下：
　　a$=“ABCD”
　　FOR m=1 TO 4
　　PRINT 【10】
　　NEXT m
　　END
　　(11) 下面一段程序定义了一个学生记录，包括name、age及birthday三个域，其中birthday为字符型，格式为mm/dd/yyyy，但程序不完整，请在【11】处补充使之完整。
　　TYPE student
　　nam AS STRING*12
　　age AS INTEGER
　　birthday AS 【11】
　　END TYPE
　　(12) 下面程序运行后的输出是【12】。
　　k=1:m=5
　　FOR j=1 TO m
　　k=k+j*j
　　NEXT j
　　PRINT k\m
　　END
　　(13) 下面的程序是从键盘输入一个数，在已知的数列中进行查找，未找到该数时返回-1，找到时返回该数在数列中的序号。查找在一个独立模块的函数中实现。请在【13】、【14】、【15】处将程序补充完整。
　　程序如下：
　　【13】 FUNCTION srch(b(),a)
　　OPTION BASE 1
　　DIM SHARED b(50)
　　FOR j=1 TO 50
　　B(j)=j
　　NEXT j
　　INPUT “enter a number to find:”;n
　　m=srch(b(),n)
　　IF m<>-1 THEN
　　PRINT “Found at ”,m
　　ELSE
　　PRINT “Not Found”
　　END IF
　　END
　　【14】 srch(b(),a)
　　FOR j=1 TO 50
　　IF b(j)=a THEN
　　srch=j
　　EXIT 【15】
　　ELSE
　　srch=-1
　　END IF
　　NEXT j
　　END FUNCTION
　　(14) 下面程序的作用是利用随机函数产生100个100~200之间（包含100、200）的随机函数，打印其中17的整数倍的数及除去17的整数倍的数之外的其它数的总和。请根据程序的需要在【16】、【17】、【18】三处填上正确内容。
　　RANDOMIZE TIMER
　　s=0
　　FOR m=1 TO 100
　　x=INT(RND*【16】):s=s+x
　　IF 【17】 THEN
　　PRINT x;
　　k1=k1+x
　　ENDIF
　　NEXT m
　　PRINT
　　PRINT “The sum=”; 【18】
　　END
　　(15) 下面程序的作用为判断是否闰年（非闰年为不可被4整除，或能被100整除但不能被400整除的年份），请在【19】、【20】处补充使之完整。
　　程序如下：
　　INPUT “Year=”;y
　　IF y MOD 4<>0 THEN
　　【19】
　　ELSEIF 【20】 THEN
　　 Leapyear=0
　　ELSE
　　 Leapyear=1
　　ENDIF
　　IF Leapyear=0 THEN
　　 PRINT “Non-Leap Year!”
　　ELSE
　　PRINT “Leap Year!”
　　END IF
　　END
　　
　　2001年9月全国计算机等级考试二级笔试参考答案
　　QBASIC
　　一、选择题((1)--(40)题每题1分，(41)--(50)题每题2分，共60分。
　　(01)B (02)A (03)C (04)D (05)C (06)A (07)B (08)D (09)A (10)C
　　(11)D (12)A (13)B (14)C (15)C (16)B (17)C (18)C (19)D (20)D
　　(21)D (22)B (23)B (24)D (25)D (26)A (27)B (28)A (29)A (30)C
　　(31)B (32)D (33)B (34)A (35)B (36)A (37)D (38)C (39)D (40)B
　　(41)C (42)D (43)B (44)C (45)B (46)D (47)A (48)B (49)D (50)B
　　二、填空题(每空2分，共40分)
　　1.COPY *.TXT PRN
　　2.MD A:X
　　3.XCOPY
　　4.4
　　5.广域网
　　6. SQR(EXP(SIN(X+Y))*LOG(X-Y))
　　7. DIM ab AS STRING*10
　　8.8
　　9.access
　　10.MID$(a$,5-m,m)
　　11.STRING*10
　　12.11
　　13.DECLARE
　　14.FUNCTION
　　15.for
　　16.101+100
　　17.x MOD 17=0
　　18.s-k1
　　19.leapyear=0
　　20.(y MOD 400 <>0) AND (y MOD 100=0)
　　