2000年9月二级笔试试题BASIC

D) 同一个程序段中，必须统一用行号或标号，不能有的用行号有的用标号

(20) QBASIC表达式COS(0)+ABS(1)+INT(RND(1))的值是
A) 1 B) -1 C) 0 D) 2

(21) 在QBASIC中，下面的四个语句正确的是
A) x=SIN(-1) B) x=CHR$(“1”) C) x=SQR(-1) D) x=COS(0)/SIN(0)

(22) 四个字符“Z”，“d”，“E” ，“9”的ASCII码最大的是
A) “Z” B) “d” C) “E” D) “9”

(23) 下面的四项中叙述错误的是
A) 在READ语句中，有多个变量时逗号“，”可作为变量间分隔符
B) 在PRINT语句中，有多个输出项时逗号“，”可作为输出项间的分隔符
C) 一个DIM语句定义多个数组时，逗号“，”可作为数组间的分隔符
D) 在一行中有多条语句时，逗号“，”可作为语句间的分隔符

(24) 下面逻辑表达式的值为真的是
A) ”A”>”a” B) ”9”>”a” C) ”That”>”Thank” D) 12>12.1

(25) DIM arr(4,-3 to 3,3 to 6)AS STRING 语句定义的数组元素有
A) 96个 B) 112个 C) 140个 D) 210个

(26) 有如下一组程序语句
DEFSTR C-F
d$=”123”
f=”456”
PRINT d+f$
运行时的输出结果是
A) 123456 B)“123456” C) 123+“456” D) 显示出错信息

(27) 有如下一组程序语句
DIM c AS LONG
c=8888888
c&=7777777
PRINT c;c&
运行时的输出结果是
A) 7777777 8888888 B) 8888888 7777777
C) 7777777 7777777 D) 8888888 8888888

(28) 有如下一组程序语句
DEF fna(x)=x+1
x=1
FOR i=1 TO 3
a=fna(x)
NEXT i
Print x
运行时的输出结果是
A) 1 B) 2 C) 3 D) 4

(29) 有如下程序
FOR j=1 TO 20
a=a+j\7
NEXT j
PRINT a
END
在运行时输出a的值是
A) 21 B) 41 C) 63 D) 210

(30) 有如下程序
INPUT a,b
x=a+b
IFa>b THEN x=a-b
PRINT x
END
运行时从键盘输入3和4 ，输出X的值是
A) 3 B) 5 C) 7 D) 9

(31) 有如下程序
DEFSTR X-Z
x=”X”
y=”Y”
z=”Z”
x=y:y=z
z=x:x=y
PRINT x;y;z
END
运行后输出结果是
A) XYZ B) ZZY C) ZZZ D) ZYZ

(32) 有如下程序
b=1
a=2
DO WHILE b<10
b=2*a+b
LOOP
PRINT b
END
运行后输出的结果是
A) 13 B) 17 C) 21 D) 33

(33) 有如下程序
a=70
FOR j=1 TO 4
READ x
If x b=b+x:a=x
ELSE
b=b+a
END IF
NEXT j
PRINT b
DATA 75,55,45,80,30,25,40,15,20,5
END
运行时输出的结果是
A) 215 B) 250 C) 290 D) 285

(34) 有如下程序
INPUT ”input value of s:”;s
SELECT CASE s
CASE IS<6
f=s+1
CASE IS<5
f=s+2
CASE IS<4
f=s+3
CASE ELSE
f=s+4
END SELECT
PRINT s;f
END
运行时从键盘输入6，输出的结果是
A) 6 7 B) 6 8 C) 6 9 D) 6 10

(35) 如下程序
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) eld2c3b4a5 D) 1a2b3c4d5e

(36) 有如下程序
FOR j=1 TO 3
PRINT TAB(3*j);11*(2*j-1);
NEXT j
PRINT
END
运行后输出的结果是
A) 11 B) 11 C) 11 D) 11 33 55
33 33 33
55 55 55

(37) 有如下程序
c=4
READ d
DO WHILE d>0
IF d>c THEN c=c+1
READ d
LOOP
DATA 9,8,7,6,5,4,3,2,1,0
PRINT c+d
END
运行时输出的结果是
A) 5 B) 6 C) 7 D) 8

(38) 有如下程序
a$=”China
b$=RIGHT$(a$,3):c$=STRING$(3,b$)
PRINT c$
END
运行时输出的结果是
A) Chi B) aaa C) iii D) ina

(39) 有如下程序
n=-5:m=6
DIM a(n TO m)
FOR i=LBOUND(a,1) TO UBOUND(a,1)
a(i)=i
NEXT i
PRINT a(LBOUND(a,1));a(UBOUND(a,1))
END
运行后输出的结果为
A) 0 0 B) -5 0 C) -5 6 D) 0 6

(40) 有如下程序
DECLARE SUB acerr(a%,b%,c%,d%)
a%=30: b%=40
CALL acerr(a%,b%,c%,d%)
PRINT c%;d%
END
SUB acerr(x%,y%,z%)
z%=x%+y%
END SUB
运行后输出结果为
A) 70 B) 70.00000 C) 7.0E+1 D) 显示出错信息

(41) COMMON SHARED x!,y#语句定义的变量x!及y#分别是
A) 普通型和特别型的通用变量
B) 单精度实型和双精度实型的全局变量
C) 单精度实型和双精度实型的局部变量
D) 变通型和特别型的全局变量

(42) 有如下程序
m$=”ABC”
n$=”abc”
k$=LCASE$(m$)
j$=UCASE$(n$)
PRINT ASC(k$+j$)
END
运行时输出的结果是
A) abcabc B) ABCABC C) 65 D) 97

(43) CIRCLE语句的功能是
A) 用来绘制圆 B) 用来绘制圆、椭圆
C) 用来绘制圆弧 D) 用来绘制圆、椭圆和圆弧

(44) 有如下程序
DECLARE FUNCTION Fee(x)
INPUT x
pay=Fee(x)
PRINT pay
END
FUNCTION Fee(x)
IF x<20 THEN
y=x
ELSE
y=20+x
ENDIF
Fee=y
END FUNCTION
运行时从键盘输入变量X的值为20，输出结果为
A) 0 B) 20 C) 40 D) 显示出错信息

(45) 有如下程序
DECLARE SUB mult(x!,y!)
a=1:b=1
PRINT ”A=”;a;”,B=”;b
CALL mult((a),b)
PRINT ”A=”;a;”,B=”;b
END
SUB mult(x,y)
x=2*x
y=3*y
END SUB
运行后的输出结果是
A) A=1，B=1 B) A=1，B=1 C) A=1，B=1 D) A=1，B=1
A=1，B=1 A=2，B=3 A=1，B=3 A=2，B=1

(46) 有如下程序
READ x,x,y,z$
a=x+y+VAL(z$)
RESTORE 10
READ x,y,z$
a=a+x+y+VAL(z$)
PRINT a
DATA 1,2
10 DATA 3,4
DATA A,B
END
运行后输出结果为
A) 15 B) 16 C) 18 D) 显示错误信息

(47) 有如下程序
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个

(48) LINE语句和DRAW语句的功能主要不同处为
A） LINE语句只能画直线，DRAW可以画直线和矩形
B） LINE语句可以画直线和矩形，而DRAW只能画直线
C）一个LINE语句只能画一条直线或一个矩形，DRAW可连续画若干条直线
D） LINE语句只能画直线，DRAW只能画矩形

(49) PAINT语句的功能是
A) 在任何封闭的图形内填充颜色 B) 为一条直线着色
C) 为一个矩形边框着色 D) 为一个圆着色

(50) 有如下程序
TYPE goods
num AS INTEGER
nam AS STRING *13
END TYPE
DIM cloth AS goods
该程序段定义了两个程序成分，它们分别是
A) 记录类型和记录变量 B) 记录类型和数组
C) 显示类型和数组 D) 记录变量和数组

二、填空题(每空2分，共40分)
请将每空的正确答案写在答题卡上[1]至[20]序号的横线上，答在试卷上不得分。

(1) 在DOS状态下,当执行当前盘目录中的程序A.EXE时,为了将本该在屏幕上显示的运行结果输出到文件A.DAT中,应使用的DOS命令为 [1] 。
(2) 在XCOPY、PATH、TREE三个DOS命令中，属于内部命令的是令是 [2] 。
(3) 设当前盘为C盘，为了将当前盘当前目录中第三个字符为X的所有文件同名复制到A盘的当前目录中，应使用的DOS命令为 [3] 。
(4) 要将当前盘的目录A\B\C设置为当前目录,应使用的DOS命令为 [4]。
(5) 计算机网络按通信距离划分为局域网与广域网,NOVELL网属于 [5] 。
(6) 数学式∣2x+3y sin z∣的QBASIC表达式为 [6] 。
(7) 表达式-67\9/3 MOD(5∧ 2/3-3∧ 3/2)之值为 [7] 。
(8) 产生一个在[-50，-5]范围内的随机负整数(包含-50和-5)的表达式是 [8] 。
(9) 以下程序的功能是将26个小写字母逆序打出来。请将程序补充完整。
FOR j=122 TO [9]
PRINT CHR$(j);
NEXT j
END

(10) 有如下程序
FOR j=1 TO 5
a(j)=j*j
NEXT j
PRINT a(a(2)*a(3)-a(4)*2)+a(5)
END
运行后输出的结果是 [10]

(11) 有如下程序
a$=”A WORKER IS OVER THERE”
x=LEN(a$)
FOR i=1 TO x-1
b$=MID$(a$,i,2)
IF b$=”ER” THEN s=s+1
NEXT i
PRINT s
END
运行后的输出结果是 [11]

(12) 以下程序是在键盘上输入月份的数值，即1～12之间的一个整数，计算机即打印出该月份的季节(12，1，2为冬季，其余类推)。比如输入7，则打印出Summer,但程序不完整，请在 [12] 处补充完整。
DO
INPUT”The number of month --“;n
LOOP UNTIL n>0 AND n<13
m= [12]
SELECT CASE m
CASE 1
PRINT”Spring”
CASE 2
PRINT “Summer”
CASE 3
PRINT”Autumn”
CASE ELSE
PRINT”Winter”
END SELECT
END

(13) 下面的程序是用选择交换法将n个数排为升序，请在 [13] 、 [14] 、 [15] 处将程序补充完整。(6分)
INPUT”Enter a number:”;n
DIM a(n)
FOR i=1 TO n
INPUT a(i)
PRINT a(i);
NEXT i
PRINT
FOR i= [13]
k=i
FOR j= [14]
IF a(k)>a(j) THEN k=j
NEXT j
IF k<>i THEN [15]
NEXT i
FOR i=1 TO n
PRINT a(i);
NEXT i
PRINT
END

(14) 下面程序的功能是从一个顺序文件”emp.txt”中读入员工姓名、年龄及工资，然后将各员工的工资按400元以下、1000元以下及更高分为低、中、高分别统计三类工资的员工人数。请在程序的[16]、[17]、[18]三处补充所需内容使之完整。
OPEN”emp.txt” FOR [16] AS#1
DO WHILE NOT EOF(1)
[17] name$,age,wage
SELECT CASE wage
CASE<400
low=low+1
CASE<1000
middle=middle+1
[18]
high=high+1
END SELECT
LOOP
CLOSE #1
PRINT”low=”;low;”Middle=”;middle;”High=”;high
END

(15) 下面程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请在 [19] 及 [20] 处把程序补充完整。
DIM a(100)
FOR j=1 TO 100
a(j)=INT( [19] )
IF a(j) [20] 5=0 THEN k=k+1
PRINT a(j);
NEXT j
PRINT
PRINT k/100
END