一、选择题，(（1）-(40)每题1分，（41）-(50）每题2分，共60分)
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1) 在计算机中,一个字长的二进制位数是
A) 8 B) 16 C) 32 D) 随CPU的型号而定
(2) 计算机网络的突出优点是
A) 速度快 B) 资源共享 C) 精度高 D) 容量大
(3) 计算机网络能传送的信息是:
A) 所有的多媒体信息 B) 只有文本信息
C) 除声音外的所有信息 D) 文本和图像信息
(4) 切断计算机电源后,下列存储器中的信息会丢失的是:
A) RAM B) ROM C) 软盘 D) 硬盘
(5) 十进制数127转换成二进制数是
A) 11111111 B) 01111111 C) 10000000 D) 11111110
(6) 要想打印存放在当前盘当前目录上所有扩展名为.TXT 的文件内容, 应该使用的DOS命令为
A) DIR *.TXT>PRN B) TYPE *.TXT>PRN
C) COPY *.TXT PRN D) COPY *.TXT>PRN
(7) 将当前盘当前目录及其子目录中的全部文件 (总量不足1.2MB) 复制到一张空的A盘的根目录下,应该使用的DOS命令为
A) XCOPY *.*A:\ /M B) XCOPY *.*A:\ /S
C) XCOPY *.*A:\ /P D) XCOPY *.*A:\ /A
(8) 在C盘根目录下执行PROMPT $p$g命令之后,DOS的提示符变为
A) C:> B) C:\> C) C> D) C:\
(9) DOS命令 "COPY CON DISP"中的CON代表
A) 子目录 B) 磁盘文件 C) 键盘 D) 显示器
(10) 结构化程序设计所规定的三种基本控制结构是
A) 输入、处理、输出 B) 树形、网形、环形
C) 顺序、选择、循环 D) 主程序、子程序、函数
(11) 要把高级语言编写的源程序转换为目标程序,需要使用
A) 编辑程序 B) 驱动程序 C) 诊断程序 D) 编译程序
(12) 英文小写字母d的ASCII码为100,英文大写字母D的ASCII码为
A) 50 B) 66 C) 52 D) 68
(13) Windows环境下,PrintScreen键的作用是
A) 复制当前窗口到剪贴板 B) 打印当前窗口的内容
C) 复制屏幕到剪贴板 D) 打印屏幕内容
(14) 在Windows环境下,为了终止应用程序的运行,应
A) 关闭该应用程序窗口 B) 最小化该应用程序窗口
C) 双击该应用程序窗口的标题栏 D) 将该应用程序窗口移出屏幕
(15) 下列各带有通配符的文件名中,能代表文件XYZ.TXT的是
A) *Z.? B) X*.* C) ?Z,TXT D) ?.?
(16) 在QBASIC集成开发环境中,要把光标移到当前行末尾,可以使用键盘上的
A) Home键 B) End键 C) PgUp键 D) PgDown键
(17) 在QBASIC中,"-32768"数据类型是
A) 整型常量 B) 实型常量 C) 双精度型常量 D) 字符串型常量
(18) 在下列四个QBASIC表达式中,非法的表达式形式是
A) A+B=C B) 0=1 C) "345"+12 D) 1/2=0.5
(19) QBASIC表达式SQR(4)+ABS(-2)+INT(RND(2))的值是
A) 2 B) 4 C) 6 D) 8
(20) 在QBASIC中表达式ASC("F")的类型是
A) 字符表达式 B) 关系表达式 C) 算术表达式 D) 逻辑表达式
(21) 在QBASIC中,下面语句中有非法调用的是
A) x=SQN(-1) B) x=FIX(-1) C) x=SQR(-1) D) x$=CHR$(65)
(22) 定义有5个整数型元素的数组,正确的语句是
A) DIM a(4) AS INTEGER B) OPTION BASE 1:DIM a(5)
C) DIM a&(5) D) DIM a(5)AS INTEGER
(23) 能打印显示a+b字样的语句是
A) PRINT"a";"+";"+b" B) PRINT a+b
C) PRINT CHR$(a)+"+"+CHR$(b) D) PRINT STRING$("a+b")
(24) 正确的单行自定义函数语句是
A) DEF a(x,y)=x^2+y^2 B) DEF fna(x,y)=x^2+y^2 END DEF
C) DEF a(x,y)=x^2+y^2 END D) DEF fna(x,y)=a*x+b*y
(25) 要使变量x赋值为50到100之间(含50,不含100)的一个随机整数.下面语句正确的是
A) x=50+INT(50*RND) B) x=50+INT(51*RND)
C) x=INT(49+50*RND) D) x=INT(49+51*RND)
(26) 有如下一组程序语句
abc$=12
abc$=123
PRINT abc$,abc
运行时的输出结果是
A) 123 123 B) 12 12 C) 12 123 D) 显示出错信息
(27) 有如下一组程序语句
DEFSTR A-C
A="12"
B="34"
C="56"
PRINT A+B+C
运行时的输出结果是
A) "123456" B) 123456 C) 102 D) 显示出错信息
(28) 有如下一组程序语句
CONST C=5
C=5
D=C+5
PRINT C+D
运行时的输出结果是
A) 5 B) 10 C) 15 D) 显示出错信息
(29) 有如下程序
FOR i=1 TO 3
FOR j=5 TO i step -1
FOR k=j TO 6
a=a+1
NEXT k
NEXT j
NEXT i
PRINT a
END
在运时输出a的值是
A) 12 B) 14 C) 43 D) 60
(30) 有如下程序
INPUT op$
IF op$="+" THEN a=a+2
IF op$="-" THEN a=a-2
PRINT op$;a
END
运行时从键盘输入-,输出结果是
A) - -2 B) - 0 C) +2 D) +0
(31) 有如下程序
a=5
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;
END IF
PRINT
END
运行后输出结果是
A) 3 4 5 6 B) 4 5 6 C) 5 6 D) 6
(32) 有如下程序
a=1
DO WHILE b<15
SWAP a,b
b=a+b
LOOP
PRINT b
END
运行后输出的结果是
A) 8 B) 13 C) 21 D) 34
(33) 有如下程序
s$="ABCXYZ": t$="123456"
FOR j=1 TO 5 STEP 2
PRINT MID$(s$,j,1)+MID$(t$,(j+1)/2,1);
NEXT j
PRINT
END
运行时输出的结果是
A）ACY246 B）A2B4C6 C）ABC123 D）A1C2Y3
（34）有如下程序
INPUT "Enter a value of a:";a
SELECT CASE a
CASE IS >2
b=a+1
CASE IS>3
b=a+2
CASE IS<5
b=a+3
CASE ELSE
b=a+4
END SELECT
PRINT a;b
END
运行时从键盘输入4 ，输出的结果是
A）4 4 B）4 5 C）4 6 D）4 7
（35）有如下程序，
a$="apple"
m$=MID$(a$,5,1)
FOR j=1 TO 4
READ b$
e=INSTR(b$,m$)
s=s+e
NEXT j
PRINT s
DATA pear,orange,peach,pineapple
END
运行时输出的结果是
A）4 B）8 C）10 D）14
(36) 有如下程序
FOR j=1 TO 30
x=2*j-1
IF x MOD 3=0 OR x MOD 7=0 THEN s=s+1
NEXT j
PRINT "s=";s
END
运行后输出s的值是
A）1 B）13 C）14 D）29
（37）有如下程序，
sum=0
FOR k=1 TO 10
IF k<=5 THEN
sum=sum-k
ELSE
sum=sum+k
END IF
NEXT k
PRINT sum
END
运行时输出的结果是
A）0 B）5 C）25 D）55
（38）有如下程序，
a$="type":b$="mismatch"
PRINT LCASE$(a$)+" "+UCASE$(b$)
END
运行时输出的结果是
A）type mismatch B）Type Mismatch
C）type MISMATCH D）TYPE mismatch
(39) 有如下程序
j$="":n=1
DO WHILE n<7
j$=j$+CHR$(64+n)
n=n+1
LOOP
PRINT j$;n
END
运行时输出的结果是
A）abcdef 6 B）abcdefg 7 C）ABCDEF 7 D）ABCDEFG 7
(40) 有如下程序
FOR j=1 TO 4
GOSUB s:
m=m+1/n
NEXT j
PRINT m;n
END
s:n=j*(j+1)
RETURN
运行后输出的结果是
A）.8 20 B）.75 12 C）1.8 20 D）1.75 12
(41) 有如下程序
DIM a$(5)
FOR j=0 TO 4
READ a$(j)
NEXT j
PRINT a$(1)+a$(2)+a$(3)
DATA "1","2", "3","4","5"
END
运行后输出的是
A）123 B）234 C）1 2 3 D）2 3 4
（42）有如下程序
j=2
FOR k=6 TO 2 STEP -1
READ a(k)
j=j+1
NEXT k
DATA 9,7,5,3,1
DO WHILE j>2
PRINT a(j);
j=j-1
LOOP
END
运行时输出的结果是
A）1 3 5 7 9 B）0 9 7 5 3
C）0 1 3 5 7 D）9 7 5 3 1
（43）有如下程序
DIM a(3,3) AS INTEGER
FOR m=1 TO 3
FOR n=1 TO 3
a(m-1,n-1)=m+n+1
NEXT n
NEXT m
FOR m=0 TO 2
FOR n=0 TO 2
PRINT a(n,m);
NEXT n
PRINT
NEXT m
END
运行时输出的结果是
A）0 1 2 B）1 2 3 C）1 3 5 D）2 4 6
1 2 3 2 3 4 3 5 7 4 6 8
2 3 4 3 4 5 5 7 9 6 8 10
（44）有如下程序
n=3
FOR K=3 TO 1 STEP -1
x$=STRING$(k,"!")
PRINT n; x$;
n=n-1
NEXT K
END
运行时输出的结果是
A）3！！！2！！1! B）1!2!!3!!! C）3!!2! 1 D）2!!!1!!0!
(45) 有如下程序
DECLARE SUB add(x,y)
x=1:y=1
CALL add((x),(y))
PRINT "x=";x;",y=";y
END
SUB add(x,y)
x=x+y
PRINT "x=";x;",y=";y
END SUB
运行后的输出结果是
A）x=1,y=1 B）x=2,y=1 C）x=1,y=1 D）x=2,y=1
x=2,y=2 x=1,y=1 x=1,y=1 x=2,Y=1
(46) 有如下程序
s=0
FOR m=1 TO 3
IF m<=1 THEN
s=s+1
ELSEIF m<=2 THEN
s=s+2
ELSEIF M<=3 THEN
s=s+3
ELSE
s=s+4
END IF
PRINT s;
sum =sum+m
NEXT m
PRINT sum
END
运行时输出的结果是
A) 1 2 3 6 B) 1 3 6 6 C) 3 3 3 9 D) 6 6 6 6
(47) 在文本模式下，把光标移到第x行的第y个字符所用的语句是
A) LOCATE x,y B) PRESET x,y,5
C) PSET(x,y) D) POSITION x,y
(48) 有以下程序
CLS
SCREEN 13
LINE（20，20）-（120，120），5，BF
END
执行的结果，屏幕上显示
A) 一条直线 B) 一个正方形线框
C) 一个填满某种颜色的正方形块 D) 没有显示
(49) 有如下程序
CLS
SCREEN 1，0
PSET （100，100），1
DRAW "u30;r30;g30"
END
运行后屏幕上显示的是
A) 一个空心矩形 B) 一条折线
C) 一个空心三角形 D) 一个填满某种颜色的三角形块
（50）有如下程序
m$="123"
n$="456"
k$=LCASE$(m$)
j$=UCASE$(n$)
PRINT ASC(k$),ASC(j$)
END
运行时输出的结果是
A) 123 456 B) !@# $%^ C) 49 52 D) 33 36
二、填空题
请将每一个空的正确答案写在答题卡【1】至【20】序号的横线上, 答在试卷上不得分.
(1) 为了要将当前盘目录中的可执行程序ABC.EXE的输出结果存放到当前盘当前目录中的文件OUT.TXT中,则应使用的DOS命令为【1】 。
(2) 计算机网络分为广域网和局域网,因特网属于【2】 。
(3) 要想在当前目录下方便地执行C盘\UCDOS目录中的程序,就应该先执行预设搜索路径的命令,该DOS命令为【3】 。
(4) 要查看当前目录中扩展名为.DAT的所有文件目录,应该使用的DOS 命令为【4】 。
(5) 在Windows环境下,当进行复制操作时,其复制的内容将存放在【5】中
(6) 数学式|3ycos(w+p)|的QBASIC表达式为【6】 。
(7) 表达式INT(1.6)=FIX(1.6)的值为【7】 。
(8) 有如下程序
a$="al":b$="b2"
c=VAL(a$)+VAL(b$)
d=VAL(a$+b$)
PRINT c+d
END
运行后,输出的值是【8】 。
(9) 四个字符串"XY"、"XYZ"、"ab"及"abc"中的最大者为【9】 。
(10) 以下程序的功能是将字符串"abcde"转换为字符串"edcba"并打印出来。请在【10】 处将程序补充完整.
DECLARE FUNCTION rev$(a$)
old$="abcde"
PRINT old$
PRINT rev$(old$)
END
FUNCTION rev$(new$)
b$=MID$(new$,1,1)
IF b$="" THEN
rev$=""
ELSE
rev$=rev$【10】+b$
END IF
END FUNCTION
（11）有如下程序
term=1
FOR j=1 TO 5
term=term*j+term
NEXT j
PRINT term
END
运行后的输出是【11】 。
(12) 数组a中有100个小于10000的整数,下标从1到100。下面的程序采用插入排序算 法把a中所有的数按照升序存入数组b。请在【12】 、【13】 、【14】处填入适当内容将程序补充完整。
OPTION BASE 1
DIM a(100),b(100)
FOR i=1 TO 100
a(i)=INT(10000*RND):PRINT a(i);
NEXT i
PRINT
FOR i=【12】
k=1
FOR j=【13】
IF a(i)>a(j) THEN k=k+1
NEXT j
【14】
NEXT i
FOR i=1 TO 100
PRINT b(i);
NEXT i
PRINT
END
(13) 有如下程序
DECLARE SUB ab(x,y)
a=90:b=36
CALL ab(a,b)
END
SUB ab(x,y)
IF y=0 THEN
PRINT x
ELSE
CALL ab(y,x MOD y)
END IF
END SUB
运行后输出的值是【15】 。
(14) 有如下程序
a$="1234567"
FOR m=1 TO 4
PRINT TAB(5-m); 【16】
NEXT m
END
运行后的输出结果如下
4
345
23456
1234567
但程序不完整,请在【16】处补充使之完整。
(15) 有如下程序,计算从1到10的平方和并输出结果,
sum=【17】
FOR j=1 TO 10
sum=【18】
NEXT j
PRINT sum
END
请在【17】, 【18】处补充使程序完整。
(16) 下面程序的功能是产生100个1到10(含1和10)之间的整数,并把数k(1≤k≤10)的 出现次数记入数组元素a(k),请在【19】及【20】处把程序补充完整。
DIM a(10)
FOR j=1 TO 100
k=INT(【19】*RND)+1
a(k)= 【20】
NEXT j
FOR j=1 TO 10
PRINT a(j);
NEXT j
END
参考答案及评分标准
一、选择题（⑴-(40)题每题1分，(41)-(50)题每题2分，其60分）
(1) D (2) B (3) A (4) A (5) B
(6) C (7) B (8) B (9) C (10) C
(11) D (12) D (13) C (14) A (15) B
(16) B (17) D (18) C (19) B (20) C
(21) C (22) A (23) A (24) D (25) A
(26) D (27) B (28) D (29) C (30) A
(31) C (32) C (33) D (34) B (35) D
(36) B (37) C (38) C (39) C (40) A
(41) B (42) B (43) B (44) A (45) B
(46) B (47) A (48) C (49) C (50) C
二、填空题答案（每空2分，共40分）
(1) 【1】ABC >OUT.TXT 或者 ABC.EXE>OUT.TXT
(2) 【2】广域网
(3) 【3】PATH C:\UCDOS 或其它等效命令
(4) 【4】DIR *.DAT 或 DIR *.DAT/P 或 DIR *.DAT/W 或带其它参数也可
(5) 【5】剪贴板
(6) 【6】ABS(3*y*COS(w+p))
(7) 【7】-1
(8) 【8】0
(9) 【9】"abc"
(10) 【10】MID$(new$,2)
(11) 【11】720
(12) 【10】1 TO 100
【13】1 TO 100
【14】b(k)=a(i)
(13) 【15】18
(14) 【16】MID$(a$,5-m,2*m-1)
(15) 【17】0
【18】sum+j*j或j*j+sum或sum+j^2 或j^2+sum
(16) 【19】10
【20】a(k)+1
|