03年4月全国计算机二级QBASIC笔试试卷

主题：03年4月全国计算机二级QBASIC笔试试卷

xtitxad [专家分：0] 发布于 2006-05-01 19:47:00

一、选择题（(1)-(40)
每小题1分，(41)-(50)每小题2
分，共60分）
　　下列各题 A) 、B)、C)
答题卡相应位置上，答在试
、D)四个选项中，只有一个选项
卷上不得分。
是正确的，请将正确选项涂写在

　　(1) 用8位无符号二进
制数能表示的最大十进制数为

　　A) 127 B) 128 C) 255 D) 2
56
　　(2) 在64位高档微机中，一个字长所
占的二进制位数为
　　A) 8 B) 16 C) 3
2 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) ABCC
OM C) ECD.BASIC D) XY+Z.T
XT
　　(7) 下列叙述中正确的是

　　A) 在Windows环境下，
最大化的窗口是不能移动的

　　B) 在Windows环境下，
应用程序窗口最小化后，该应用
程序暂停执行
　　C) 在Windows环境下，只有最小化的
窗口才能关闭
　　D) 在Windows环境下，
不能关闭最大化的窗口

　　(8) 在Windows环境下，工具栏中的
复制按钮是
　　A) 打印机图标 B)
剪刀标志 C) 复制标志
D) 粘贴标志
　　(9) 在Windows98环境
下，若要将整个屏幕上显示的内
容存入剪贴板，可以按
　　A) Ctrl+PrintScreen键 B) Alt
+PrintScree键
　　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=abc B) 5>3+3
C) a+b=c D) 5<>5

　　(15) QBASIC表达式3^3/3MOD2的值是

　　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"SI
N(3.14)"+"COS(3.14"
　　C) PRINT TAB(10) "QB
" D) PRINT USING"####",1
234.56
　　(19) 在QBASIC中，下列运算符优先
级最高的是
　　A) MOD B) NOT C) / D) ^

　　(20) 正确的单行自定
义函数语句是

　　A) DEF fn(x)=3.14159*x^2 B) D
EFINE fn(x)=3.14129*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 4 B) 12 1
4.5 C) 12.8 15 D) 13 1
4.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) 实现选择结构"如
果X 确程序段为
　　A) IF x B) 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 STEP3
　　C) FOR x=10 TO-10 ST
EP-10 D) FOR x=10 TO 50 NE
XT
　　(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) 999
9
　　(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

本帖地址： http://bbs.pfan.cn/post/162407.html

回复列表（共2个回复）

沙发

xtitxad [专家分：0] 发布于 2006-05-01 19:48:00

运行后的输出结果是

　　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 su
m=sum+a

　　NEXT j

　　PRINT"sum=";sum

　　DATA 1,3,6,10,15,21,28,36,45,55

　　END

　　运行后的输出结果是

　　A) 55 B) 80 C) 1
40 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 8 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) 49 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

　　SUM 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 CASS 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)Thire 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$)

　　END

　　运行结果是

　　A) a 0 B 0 B) A
0 b0 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"FO
R 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分,共20分)

　　请将每空的正确答案写在答题卡上【
1】-【10】序号的横线上,答在试卷上不得分。
　　(1) 用十六进制给存储
器的容量为【1】KB。
器中的字节地址进行编号，若地
址编号从000到FFFF，则该存诸

　　(2) 假设在当前盘的当前目录下有两
到文件A.TXT的后面。若使用COPY命令，
个文件A.TXT和B.TXT，现要将文件B.TXT合并连接
则完整的命令为【2】。
　　(3) E-mail地址由用户名和域名两部
分组成，这两部分的分隔符为【3】。
　　(4) 假设在当前盘当前目录下有一个
执行过程中将显示输出的结果信息存入当
为【4】。
可执行程序USER.EXT。现要执行该程序，并要求在
前盘当前目录的文件OUT.DAT中，则完整的DOS命令

　　(5) 在DOS环境下，表
示打印机的设备文件名为【5】
。
　　(6) 数据式aeutcos(wt
+v)的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】。

板凳

xtitxad [专家分：0] 发布于 2006-05-01 19:48:00

(12) 设a=2，b=3，c=4
，d=5，表达式3>2*b OR a=c AN
D 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个-5
在【14】、【15】处填入适
00到500间的整数（含-500和500
当内容将程序补充完整。
），并找出其中第k大的数。请

　　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,823
7777
　　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 EL
SE tmp=gcd(b, 【20】)

　　ENDIF

　　gd=tmp

　　END FUNCTION

　　运行后，输出的值是

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：03年4月全国计算机二级QBASIC笔试试卷

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：03年4月全国计算机二级QBASIC笔试试卷

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）