作者：佚名 文章来源：不详 点击数： 更新时间：2006-12-3 9:26:39  |
2002年9月全国计算机等级考试二级QBASIC试卷（含答案）
[ 繁體中文 ] | 文章类别：全国等级考试 | 文章等级：  | 发表日期：2005-4-14 星期四
[ 计数器 | 精彩博客 | 魔法表情 | 博客申请 | 源码下载 | 免费域名 | IP查询 | Html2Js ]
转自:动态网制作指南 www.knowsky.com 基础部分和QBASIC语言程序设计
(考试时间：120分钟，满分100分)
一、选择题，（1-40）每题1分，（41-50）每题2分，共60分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1) 在32位计算机中，一个字长所占的字节数为
A) 1 B) 2 C) 4 D) 8
(2) 与十进制数511等值的十六进制数为
A) 1FF B) 2FF C) 1FE D) 2FE
(3) 能将高级语言编写的源程序转换成目标程序的是
A) 编辑程序 B) 编译程序 C) 解释程序 D) 链接程序
(4) 在计算机系统中，存储一个汉字的国标码所需要的字节数为
A) 1 B) 2 C) 3 D) 4
(5) 下列带有通配符的文件名中，能表示文件ABC.TXT的是
A) *BC.? B) A?.* C) ?BC.* D) ?.?
(6) 在多媒体计算机系统中，不能用以存储多媒信息的是
A) 光缆 B) 软盘 C) 硬盘 D) 光盘
(7) DOS命令“COPY／？”的功能是
A) 将当前盘当前目录中的所有文件复制到当前盘的根目录下
B) 将当前盘当前目录中所有以单个字符命名的文件复制到当前盘的根目录下
C) 以提示方式复制文件
D) 显示COPY命令的帮助信息
(8) 在Windows环境下，若要将当前活动窗口存入剪贴板，则可以按
A) Ctrl+PrintScreen键 B) Alt+PrintScreen键
C) Shift+PrintScreen键 D) PrintScreen键
(9) 在Windows环境下，单击当前应用程序窗口中的“关闭”按钮，其功能是
A) 将当前应用程序转为后台运行
B) 退出Windows后再关机
C) 退出Windows后重新启动计算机
D) 终止当前应用程序的运行
(10) 在Windows环境下，粘贴按钮是
A) B) C) D)
(11) 在QBASIC集成开发环境中，要观察或调试与当前程序窗口有关的各个程序模块，第一步需从菜单条中选择的选项是
A) File B) Edit C) View D) Search
(12) 在QBASIC中,对变量x#赋值即x#=12.34567,x#的数据类型是
A) 整型 B) 实型 C) 双精度型 D) 字符串型
(13) 在下列四个QBASIC表达式中，非法的表达式是
A) 3+5=2 B) 5<″A″
C）″2002/2/1″+″2002/2/15″ D) 10#-5
(14) QBASIC表达式8+3*5 mod 3^2\5*(sin(0)+1)的值是
A) 2 B) 4 C) 6 D) 8
(15) 在QBASIC中，表达式INSTR(1，“BeiJing”,″Ji″) 的值的类型是
A) 字符型 B) 关系型 C) 数值型 D) 逻辑型
(16) 在QBASIC中，下面的四组语句有语法错误的是
A) READ A,B$,C$ B) READ A,B$,C
DATA 12,3.14/180,23 DATA 34,PI/180,45
C) READ,A,B$,C$ D) READ A,B$,C
DATA 45,56+67,X DATA 78,PI,1+1
(17) 语句OPTION BASE 1:DIM A(5,4)定义的数组元素个数是
A) 9 B) 5 C) 20 D) 任意个
(18) QBASIC语句中，语句定义符REM定义的是
A) 数据恢复语句 B) 数组定义语句 C) 注释语句 D) 数组重定维语句
(19) 语句PRINT″11″>″109″的运行结果是
A) 0 B) -1 C) 11 D) 11>109
(20) 有如下程序
DEF FNA(y)=y+1
DEF FNS(y)=FNA(y)^2+FNA(y)+y^2+y+1
PRINT FNS(2)
END
运行时输出的结果是
A) 3 B) 14 C) 19 D) 21
(21) 有如下一组程序语句
s=0
FOR i=1 TO 10
READ a$,b
IF a$=″f″ THEN
IF b<10 THEN s=s+1
END IF
NEXT i
PRINT s
DATA f,10,m,67,m,14,f,23,f,1,f,17,m,2,f,11,m,10,m,56
运行时的输出结果是
A) 2 B) 56 C) 0 D) 1
(22) 有如下一组程序语句
FOR k=1 TO 3
SELECT CASE k
CASE 1
a=3
CASE 3
a=2
CASE 3
a=1
END SELECT
PRINT a;
NEXT k
PRINT k
END
运行时的输出结果是
A) 1 1 1 1 4 B) 3 2 1 4 C) 1 1 1 1 3 D) 1 2 3 4
(23) 有如下一组程序语句
CONNT c=5
d=c+5
c=c+1
PRINT c+d
运行时的输出结果是
A) 6 B) 10 C) 16 D) 显示出错信息
(24) 有如下程序段
FOR i=1 TO 3
FOR j=0 To i-1
PRINT ″*″
NEXT j
NEXT i
在运行时内层循环的循环总次数是
A) 1 B) 2 C) 3 D) 6
(25) 有如下程序
DEFSTR a-c
a=″*″:b=″@″
FOR k=1 TO 3
c$=STRING$(LEN(a$)+k-1,b$)
PRINT c+″263″;
NEXT k
PRINT
END
运行时输出的结果是
A) @263@@263@@@263 B) *@*@*@263
C) @@@@@@263 D) 出错信息
(26) 有如下程序
a=5
b=6
PRINT a>b OR b MOD 2=0
END
运行后的输出结果是
A) –1 B) 0 C) 1 D) 2
(27) 有如下程序
FOR m=1 TO 3
FOR j=m TO 1 STEP –1
FOR k=j TO m
n=n+k
NEXT k
NEXT j
NEXT m
END
运行后n的值为
A) 20 B) 27 C) 30 D) 54
(28) 有如下程序
a$=″12″
b$=″24″
c$=a$+b$
d=VAL(c$)
PRIN d MOD 100
END
运行后的输出结果是
A) 12 B) 22 C) 24 D) 36
(29) 有如下程序
FOR j=0 TO 35
a=a+j MOD 6
NEXT j
PRINT a
END
运行后的输出结果是
A) 90 B) 75 C) 105 D) 0
(30) 有如下程序
FOR x=1 TO 4
a=0
FOR y=1 TO x+1
a=a+1
NEXT y
PRINT a;
NEXT x
END
运行后的输出结果是
A) 1 2 3 4 B) 2 3 4 5 C) 3 4 5 6 D) 4 5 6 7
(31) 有如下程序
DEF fna(x,y)=x^3+x^2*y+x*y^2+y^3
a=4
b=3
PRINT fna(a,b)
END
运行后的输出结果是
A) 37 B) 175 C) 337 D) 343
(32) 有如下程序
x=1
n=3
DO
k=k+1
n=k+n
x=x*2
LOOP UNTIL x>n
PRINT n;x
END
运行后的输出结果是
A) 13 16 B) 6 8 C) 18 32 D) 24 64
(33) 有如下程序
s=0
FOR i=1 TO 10
IF i MOD 5 <> 0 THEN
s=s+1
ELSE
s=s+i
END IF
NEXT i
PRINT s
END
运行后的输出结果是
A) 23 B) 40 C) 45 D) 55
(34) 有如下程序
m$=″#″
FOR k=3 TO 1 STEP –1
x$=STRING$(k,″*″)
PRINT m$;x$
m$=m$+m$
NEXT k
END
运行后的输出结果是
A) #* B) #* C) #*** D) #***
##** ##** ##** ##**
###*** ####*** ###* ####*
(35) 有如下程序
DECLARE SUB comb(a,b,c)
u=0
x=4
FOR y=0 TO 4
CALL comb(x,y,z)
u=u+z
NEXT y
PRINT u
END
SUB comb(a,b,c)
IF b=0 OR b>=a THEN
c=1
ELSE
CALL comb(a-1,b-1,c)
c1=c
CALL comb(a-1,b,c)
c=c1+c
END IF
END SUB
运行后的输出结果是
A) 8 B) 16 C) 32 D) 64
(36) 有如下程序
FOR i=1 TO 8
READ x
NEXT i
RESTORE 20
READ x
PRINT x
10: DATA 1,2,15,18
20: DATA 10,80,90,100,75
END
运行后输出的结果是
A) 75 B) 1 C) 10 D) 运行出错
(37) 有如下程序
a=3
IF a<=3 THEN
PRINT 3;
END IF
IF a<=4 THEN
PRINT 4;
END IF
IF a<=5 THEN
PRINT 5;
END IF
IF a<=6 THEN
PRINT 6;
ENDIF
PRINT
END
运行后输出结果是
A) 3 B) 3 4 C) 3 4 5 D) 3 4 5 6
(38) 有如下程序
a=1
DO WHILE a<10
a=a+2
b=b+a*a
LOOP
PRINT a,b
END
运行后输出的结果是
A) 9 25 B) 9 164 C) 11 285 D) 11 3
(39) 有如下程序
j=0:n=0
DO WHILE n<3
j=(j+1)^2+1
n=n+1
LOOP
PRINT j;n
END
运行时输出结果是
A) 122 3 B) 10 2 C) 5 3 D) 5 2
(40) 有如下程序
DECLARE SUB sub1(n,j)
FOR j=2 TO 5
CALL sub1(n,j):m=m+n
NEXT j
PRINT m,n
RPINT m;n
END
SUB sub(n,j)
n=j+n
END SUB
运行后输出的是
A) 30 14 B) 28 14 C) 30 15 D) 15 15
(41) 有如下程序
DIM a(10)
FOR j=1 TO 10
READ a(j)
NEXT j
j=1
INPUT b
DO WHILE(a(j)<>b)AND(j<=10)
j=j+1
LOOP
PRINT j
DATA 1,2,4,7,11,16,22,29,37,46,
END
从键盘输入11,运行后输出的是
A) 5 B) 6 C) 10 D) 11
(42) 有如下程序
DIM arr(3,3) AS INTEGER
FOR m=1 TO 3
FOR n=1 TO 3
arr(m,n)=2*m+n
NEXT n
NEXT m
FOR m=1 TO 2
FOR n=2 TO 3
PRINT arr(n,m);
NEXT n
PRINT
NEXT m
END
运行时输出结果是
A) 3 4 B) 5 7 C) 5 6 D) 6 7
5 6 6 8 7 8 8 9
(43) 有如下程序
DECLARE SUB f(x!,y!)
a=1:b=1
FOR j=1 TO 3
CALL f((a),b)
NEXT j
PRINT a;b
END
SUB f(x,y)
x=x+y
y=x+y
END SUB
运行后的输出结果是
A) 15 1 B) 1 15 C) 13 2 D) 21 34
(44) 在QBASIC中,KILL语句和NAME语句的作用是
A) 释放数组和改变数组名称 B) 删除变量和改变变量名称
C) 删除文件和改变文件名称 D) 删除子程序和改变子程序名称
(45) 语句OPEN″abc.dat″FOR RANDOM AS #1 LEN=20执行后,对其打开的文件中的数据
A) 只能读操作不能写操作 B) 只能写操作不能读操作
C) 只能将其复制到其他文件中 D) 既可读操作又可写操作
(46) 有如下程序
OPEN ″file1.dat″FOR INPUT AS #1
OPEN ″file2.dat″FOR OUTPUT AS #2
j=1
DO WHILE NOT EOF(1)
INPUT #1,a
IF j MOD 2=0 THEN
x=a
PRINT #2,x
END IF
j=j+1
LOOP
CLOSE
END
运行后文件file2.bat中的数据
A) 是file1.dat中各项数据值的一半
B) 是file1.dat中序号为偶数的各个记录
C) 是file1.dat中序号为奇数的各个记录
D) 是file1.dat中各项数据传值的两倍
(47) 有如下程序
OPEN″worker.dat″FOR INPUT AS #1
INPUT #1,value
min=value:max=value:sum=value
n=1
DO WHILE NOT EOF(1)
IF min>value THEN min=value
IF maxsum=sum+value
INPUT #1,value
n=n+1
LOOP
CLOSE #1
mean=sum/n
PRINT ″min=″;min,″max=;″max
PRINT″sum=″;sum,″mean=″;mean
END
程序运行中依次从worker.dat中读入的数据为1,2,3,4,5,6,7,8,9和10。运行后的min、max、sum和mean 的值分别是
A) 1、10、55和5.5 B) 10、1、5.5和10
C) 55、10、5.5和1 D) 1、10、5.5和10
(48) 有如下程序
CLS
TYPE stu
num AS LONG
nam AS STRING*10
score AS SINGLE
END TYPE
DIM rec AS stu
OPEN″stud.dat″FOR RANDOM AS #1 LEN=LEN(rec)
FOR k=1 TO 10
GET #1,k,rec
IF k=5 THEN EXIT FOR
NEXT k
CLOSE
END
假设文件stud.dat中有足够的数据，运行后共读出的记录数和字节数分别是
A) 10和180 B) 10和160 C) 5和90 D) 5和80
(49) 有如下程序
CLS
SCREEN 1
FOR j=1 to 3
a=RND*130+100
b=RND*40+80
c=RND*40+40
CIRCLE(a,b),c,j
NEXT j
END
运行后的输出结果是
A) 3个颜色相同、大小相同的圆 B) 3个颜色相同、大小不同的圆
C) 3个颜色不同、大小相同的圆 D) 3个颜色不同、大小不同的圆
(50) 有如下程序
CLS
SCREEN 13
FOR j=1 TO 3
READ x1,y1,x2,y2
SCLECT CASE j
CASE 1
LINE(x1,y1)-(x2,y2),j,BF
CASE 2
LINE(x1,y1)-(x2,y2),j,B
CASE 3
LINE(x1,y1)-(x2,y2),j,BF
END SELECT
NEXT j
DATA 20,20,60,60
DATA 60,60,100,100
DATA 100,100,140,140
运行后的输出结果是：
A) 3个矩形框 B) 2个实心矩形和1个矩形框
C) 3个实心矩形 D) 1个实心矩形和2个矩形框
二、填空题（每空2分，共40分）
请将正确答案分别写在答题卡中序号为【1】至【20】的横线上, [1] [2] 下一页
|
