（2）在64位高档微机中，一个字长所占的二进制位数为
A）8 B）16 C）32 D）64

（3）在Windows环境下，为了复制一个对象，在用鼠标拖动该对象时应同时按住
A）Alt键 B）Esc键 C）Shift键 D）Ctrl键

（4）在Windows菜单中，暗淡（灰色）的命令项表示该命令
A）暂时不能用 B）正在执行 C）包含下一层菜单 D）包含对话框

（5）在DOS环境下，为了得到TYPE命令的帮助信息，正确的DOS命令为
A）TYPE B）TYPE /H C）TYPE /* D）TYPE /?

（6）下列选项中，能作为合法DOS文件名的是
A）ANP/A.DAT B）ABCCOM C）ECD.BASIC D）XY+Z.TXT

（7）下列叙述中正确的是
A）在Windows环境下，最大化的窗口是不能移动的
B）在Windows环境下，应用程序窗口最小化后，该应用程序暂停执行
C）在Windows环境下，只有最小化的窗口才能关闭
D）在Windows环境下，不能关闭最大化的窗口
（8）在Windows环境下，工具栏中的复制按钮是
A） B） C） D）

（9）在Windows环境下，若要将整个屏幕上显示的内容存入剪贴板，可以按
A）Ctrl＋PrintScreen键 B）Alt＋PrintScreen键
C）Shift＋PrintScreen键 D）PrintScreen键

（10）目前，计算机病毒扩散最快的途径是
A）通过软件复制 B）通过网络传播
C）通过磁盘拷贝 D）运行游戏软件

（11）在QBASIC集成开发环境中，在编辑源程序后要运行程序，应按下键盘上的
A）F2键 B）F5键 C）Enter键 D）End键

（12）关于QBASIC 源程序语句中行号的说法正确的是
A）必须有行号 B）不允许有行号 C）根据需要可有可无 D）只允许有标号

（13）在QBASIC中，常量3E1的数据类型是
A）字符串 B）单精度实型 C）双精度实型 D）整型

（14）在下列四个式子中，非法的QBASIC表达式是
A）a=abs B）5>3+3 C）a+b=c D）5<>5

（15）QBASIC表达式3^3/3 MOD 2的值是
A）1 B）-1 C）3 D）0

（16）以下属于合法的QBASIC变量名是
A）X-3 B）4y C） n$1 D）b.1

（17）定义一个3×3的二维数组，正确的语句是
A）DIM a(0 TO 3,0 TO 3) B）DIM a(2000 TO 2002,0 TO 2)
C）DIM a(3), a(3) D）DIM a(1 TO 3)

（18）下列语句中合法的是
A）PRINT a=atn B）PRINT ″SIN(3.14)″+″COS(3.14)″
C）PRINT TAB(10)″QB″ D）PRINT USING″####″,1234.56
（19）在QBASIC中，下列运算符优先级最高的是
A）MOD B）NOT C） / D）＾

（20）正确的单行自定义函数语句是
A）DEF fn(x)=3.14159*x^2 B）DEFINE fn(x)=3.14159*x^2
C）DEF fnn(x)=3.14159*x^2 D）DEF fnn(x)=3.14159*x^2 END

（21）表达式 INT(4*RND+1)*(INT(4*RND－1))值的范围是
A） [0，8] B）[-1，8] C） [-3，8] D）[- 4，8]

（22）有如下程序段
CONST C=″Wang″
C$=″a″
PRINT LEN(C) ;LEN(C$)
其输出结果为
A）Wang a B）4 1 C）1 1 D）重复定义，程序出错

（23）有如下程序段
a%=12.8: b!=14.5
PRINT a%，b！
其输出结果为
A）12.8 14 B）12 14.5 C）12.8 15 D）13 14.5

（24）有如下程序
READ a, b, c
RESTORE k
READ c, c, d
DATA 1, 2
k: DATA 3, 4, 5
PRINT a; b; c; d
END
其输出结果为
A）1 2 3 4 B）1 2 3 5 C）3 4 5 4 D）1 2 4 5

（25）以下语句中错误的是
A）INPUT ″x,y=″; a,b B）INPUT ″x,y=″, c,d
C）INPUT, ″x,y=″, e,f D）INPUT; ″x,y=″,g,h

（26）实现选择结构"如果xA）IF x=y THEN
a = -15 a = -15
PRINT a ELSE a = 15
END IF END IF
PRINT a
C）IF x>y THEN a = - 15 D）IF x>=y THEN GO TO d
a = 15 a = 15
PRINT a d：a = - 15
END PRINT a
END

（27）以下语句中正确的是
A）FOR 1 TO 10 STEP 2 B）FOR x=1, 9 STEP 3
C）FOR x = 10 TO -10 STEP -10 D）FOR x = 10 TO 50 NEXT

（28）有如下程序
DIM k AS INTEGER， y AS INTEGER
LET y=3
FOR k=1 TO 5 STEP -1
y=y+k
NEXT k
PRINT y；k
END
其输出结果为
A）3 1 B）4 0 C）-1 6 D）4 1

（29）有如下程序
DIM x AS INTEGER， y AS INTEGER
FOR x=1 TO 2
FOR y=0 TO x-1
PRINT x*y
NEXT y
NEXT x
END
内层循环的循环体的总执行次数是
A）1 B）2 C）3 D）4

（30）有如下程序
DIM x AS INTEGER， y AS INTEGER
x=0
READ y
WHILE y<>-9999 AND x<>3
IF y>x THEN x=y
READ y
WEND
DATA -9999,9,8,3, 9999
PRINT ABS(y)
END
运行后的输出结果为
A）9 B）- 9999 C）3 D）9999

（31）有如下程序
a$ = ″12″
b$ = ″24″
c$ = b$ + a$
d = VAL ( c$ )
PRINT d \ 100
END
运行后的输出结果是
A）12 B）36 C）34 D）24

（32）有如下程序
FOR j = 1 TO 5
a = (a + j ) MOD 5
NEXT j
PRINT a
END
运行后的输出结果是
A）0 B）5 C）25 D）50

（33）当EOF()函数返回的值为-1时，表示文件指针指向文件的
A）开头 B）第一个记录 C）末尾 D）最后一个记录

（34）有如下程序
FOR x = 1 TO 4
z = 0
FOR y = 1 TO x + 2
z = z + 1
NEXT y
PRINT z;
NEXT x
END
运行后的输出结果是
A）3 4 5 6 B）4 5 6 7 C）5 6 7 8 D）6 7 8 9

（35）有如下程序
DEF fna ( x , y ) = x ^ 2 + y ^ 2
x=4
y=3
PRINT fna ( x , y )
END
运行后的输出结果是
A）5 B）7 C）25 D）49

（36）有如下程序
m$ = ″ABCDE″
MID$ ( m$ , 1 , 5 ) = ″abcde″
PRINT m$
END
运行后的输出结果是
A）abcdeABCDE B）ABCDEabcde C）abcde D）ABCDE

（37）有如下程序
FOR j=1 TO 10
READ a
IF a MOD 2 = 0 THEN sum = sum + a
NEXT j
PRINT ″sum = ″ ; sum
DATA 1,3,6,10,15,21,28,36,45,55
END
运行后的输出结果是
A）55 B）80 C）140 D）220

（38）有如下程序
x = 1
DO
x = 2 * x + 1
num = num + 1
LOOP UNTIL x > 100
PRINT num , x
END
运行后的输出结果是
A）6 127 B）8 127 C）127 7 D）127 8

（39）有如下程序
sum = 0
FOR i = 1 TO 9
IF i <> 10 THEN
sum = sum + 1
ELSE
sum = sum + 2
END IF
NEXT i
PRINT sum
END
运行后输出结果是
A）1 B）9 C）45 D）55

（40）有如下程序
m$ = "*"
i = 1
FOR k = 3 TO 1 STEP -1
x$ = STRING$ ( k + i, m$ )
PRINT x$
m$ = m$ + "*"
i = - i
NEXT k
END
运行后的输出结果是

A)**
***
**** B)****
***
** C)****
*
** D)****
**
******

（41）有如下程序
DECLARE SUB f(m%,n%,g%)
CALL f(87,69,g%)
PRINT g%
END
SUB f(m%,n%,g%)
a = m%
b = n%
DO
c = a MOD b
a = b
b = c
LOOP WHILE c <> 0
g% = a
END SUB
运行后的输出结果是
A）3 B）18 C）69 D）87
（42）有如下程序
INPUT n
i = 2
t = -1
DO WHILE i * i <= n
IF n MOD i = 0 THEN
t = 0
END IF
i = i + 1
LOOP
PRINT t
END
运行时输入 257，输出结果是
A）0 B）1 C）-1 D）257

（43）有如下程序
month = INT( RND * 3 + 1 ) + 6
SELECT CASE month
CASE 1 TO 3
season$=″First″
CASE 4 TO 6
season$=″Second″
CASE 7 TO 9
season$=″Third″
CASE ELSE
season$=″Fourth″
END SELECT
PRINT season$
END
运行后的输出结果是
A）First B）Second C）Third D）不能确定

（44）有如下程序
DECLARE FUNCTION f(n)
INPUT n
PRINT f( n )
END
FUNCTION f(n)
IF n = 0 THEN f = 0 ELSE f = n + f(n-1)
END FUNCTION
键盘输入 n 运行后的输出结果是 78, 则 n 的值是
A）10 B）11 C）12 D）13

（45）有如下程序
CLS: SCREEN 13: COLOR 2
x = 180 : y = 100 : r = 50
CIRCLE ( x ,y ),50
CIRCLE (180,100),r
END
该程序在屏幕上显示的是
A）一个圆 B）两个同心圆 C）两个不同心的圆 D）没有显示

（46）有如下程序
SCREEN 13
COLOR 2
LINE (10,10) - (50,50)
LINE (50,50) - (10,90)
END
程序所画两条线段
A）关于一点对称 B）关于一条垂直的直线对称
C）关于一条水平的直线对称 D）重合

（47）有如下程序
FOR m = 3 TO 5
FOR j = 1 TO m - 2
FOR k = j TO 3
n = n + k
NEXT k
NEXT j
NEXT m
END
运行后n的值为
A）21 B）25 C）31 D）42

（48）有如下程序
m$ = "a"
n$ = "b"
o$ = LCASE$(m$)
p$ = UCASE$(n$)
PRINT o$; VAL(o$), p$; VAL(p$)
END
运行结果是
A）a 0 B 0 B）A 0 b 0 C）a 97 B 66 D）A 65 b 98

（49）语句OPEN ″A.DAT″ FOR RANDOM AS #1 LEN=30 表示此文件每个记录
A）长度等于30个字符 B）长度等于30个字节
C）长度小于或等于30个字节 D）长度小于或等于30个字符

（50）有如下程序
DIM x(3, 3)
FOR k = 1 TO 2
FOR j = 1 TO 2
IF k = j THEN
x(k, j) = 1
ELSE
x(k, j) = 0
END IF
NEXT j：NEXT k
OPEN "diagonal.dat" FOR OUTPUT AS #1
FOR k = 1 TO 2
PRINT #1, x(k, 1); x(k, 2)
NEXT k
CLOSE #1
END
执行程序，屏幕上显示的结果是
A) 0 1 B) 1 0 C) 0 0 D) 没有任何显示
　 1 0 　0 1 　　1 1

二、填空题（每空2分，共40分）
（1）用十六进制给存储器中的字节地址进行编号，若地址编号从0000到FFFF，则该存储器的容量为 【1】 KB。

（2）假设在当前盘的当前目录下有两个文件A.TXT和B.TXT，现要将文件B.TXT合并连接到文件A.TXT的后面。若使用COPY命令，则完整的命令为 【2】 。

（3）E-mail地址由用户名和域名两部分组成，这两部分的分隔符为 【3】 。

（4）假设在当前盘当前目录下有一个可执行程序USER.EXE。现要执行该程序，并要求在执行过程中将显示输出的结果信息存入当前盘当前目录的文件OUT.DAT中，则完整的DOS命令为 【4】 。

（5）在DOS环境下，表示打印机的设备文件名为 【5】 。

（6）数学式 的QBASIC表达式为 【6】 。

（7）常数 -0.00013579的标准化的指数形式是 【7】 。

（8）有如下程序
a=1357 : b=246
c=LEN(str$(a)+str$(b))
PRINT c
END
运行后, 输出的值是 【8】 。

(9) 四个字符串"Xab"、"XYZ"、"def"及"dE"中最大者为 【9】 。

（10）有如下程序
FOR j=1 TO 11
j=j+1
IF j MOD 4=0 THEN n=n+1
NEXT j
PRINT ″n=″;n
END
运行后, 输出的值是 【10】 。

（11）有如下程序
x=5：y= -20
IF NOT x>0 THEN
x=y-3
ELSE
y=y+3
END IF
PRINT x－y；y－x
END
运行后的输出结果是 【11】 。

（12）设a=2，b=3，c=4，d=5，表达式 3>2*b OR a=c AND b<>c OR c>d的值是 【12】 。

（13）有如下程序
FOR i=1 TO 5
FOR x=i TO 5 STEP 1
IF i=2 AND x<5 THEN PRINT ″*″;
NEXT x
NEXT i
END
运行后的输出结果是 【13】 。

（14）随机生成100个-500至500间的整数（含-500和500），并找出其中第k大的数。请在【14】、【15】处填入适当内容将程序补充完整。
DIM a(100)
INPUT k
FOR i = 1 TO 100
a(i)=INT( 【14】 *RND) - 500: PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO k
FOR j =i+1 TO 100
IF 【15】 THEN SWAP a(i),a(j)
NEXT j
NEXT i
PRINT ″a(″;k;″)=″;a(k);
END

（15）有如下程序
DIM i AS INTEGER，x AS INTEGER
x=1: y=1: i=1
DO WHILE i<4
f=x+y
x=y
y=f
PRINT f;
i=i+1
LOOP
END
运行后的输出结果是 【16】 。

（16）有如下程序
DIM tel(10) AS STRING * 8
FOR i = 1 TO 4
READ tel(i)
NEXT i
FOR i = 1 TO 4
IF LEFT$(tel(i), 1) = "2" THEN
tel(i) = "6" + tel(i)
ELSE
tel(i) = tel(i) +"9"
END IF
NEXT i
PRINT tel(1),tel(2)
DATA 6543210,2345678,2457788,8237777
END
运行后的输出结果是 【17】 。

（17）下面的程序从键盘输入一个正整数n，计算并输出比n小，并且与n互素的数的个数。（两个数互素是指它们的最大公约数等于1）
DECLARE FUNCTION gcd(a,b)
INPUT n
Phi = 1
FOR i = 2 TO n - 1
IF gcd(n,i)=1 THEN phi = 【18】
NEXT i
END
FUNCTION gcd(a,b)
IF b = 0 THEN
tmp = 【19】
ELSE
IF b = 1 THEN tmp = 1 ELSE tmp = gcd(b, 【20】 )
ENDIF
gcd = tmp
END FUNCTION=c AND b<>c OR c>d的值是 【12】 。

（13）有如下程序
FOR i=1 TO 5
FOR x=i TO 5 STEP 1
IF i=2 AND x<5 THEN PRINT ″*″;
NEXT x
NEXT i
END
运行后的输出结果是 【13】 。

（14）随机生成100个-500至500间的整数（含-500和500），并找出其中第k大的数。请在【14】、【15】处填入适当内容将程序补充完整。
DIM a(100)
INPUT k
FOR i = 1 TO 100
a(i)=INT( 【14】 *RND) - 500: PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO k
FOR j =i+1 TO 100
IF 【15】 THEN SWAP a(i),a(j)
NEXT j
NEXT i
PRINT ″a(″;k;″)=″;a(k);
END

（15）有如下程序
DIM i AS INTEGER，x AS INTEGER
x=1: y=1: i=1
DO WHILE i<4
f=x+y
x=y
y=f
PRINT f;
i=i+1
LOOP
END
运行后的输出结果是 【16】 。

（16）有如下程序
DIM tel(10) AS STRING * 8
FOR i = 1 TO 4
READ tel(i)
NEXT i
FOR i = 1 TO 4
IF LEFT$(tel(i), 1) = "2" THEN
tel(i) = "6" + tel(i)
ELSE
tel(i) = tel(i) +"9"
END IF
NEXT i
PRINT tel(1),tel(2)
DATA 6543210,2345678,2457788,8237777
END
运行后的输出结果是 【17】 。

（17）下面的程序从键盘输入一个正整数n，计算并输出比n小，并且与n互素的数的个数。（两个数互素是指它们的最大公约数等于1）
DECLARE FUNCTION gcd(a,b)
INPUT n
Phi = 1
FOR i = 2 TO n - 1
IF gcd(n,i)=1 THEN phi = 【18】
NEXT i
END
FUNCTION gcd(a,b)
IF b = 0 THEN
tmp = 【19】
ELSE
IF b = 1 THEN tmp = 1 ELSE tmp = gcd(b, 【20】 )
ENDIF
gcd = tmp
END FUNCTION