2001年4月二级笔试QBASIC试卷及答案

 

（考试时间性120分钟，满分100分）

一、选择题（1）～（40）题每小题1分，（41）～（50）题每小题2分，共60分）

    下列各题A），B），C），D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答卡相应位置上，答在试卷上不能得分。

(1)     计算机的存储器完整的应包括

A) 软盘、硬盘                      B) 磁盘、磁带、光盘

C) 内存储器、外存储器              D) RAM、ROM

(2)     计算机中运算器的作用是

A) 控制数据的输入/输出             B) 控制主存与辅存间的数据交换

C) 完成各种算术运算和逻辑运算      D) 协调和指挥整个计算机系统的操作

(3)     软磁盘处于写保护状态时，其中记录的信息

A) 绝对不会丢失

B) 不能被擦除，但能追加新信息

C) 不能通过写磁盘操作被更新

D) 不能以常规方式被删除，但可以通过操作系统的格式化功能被擦除

(4)     光盘根据其制造材料和记录信息的方式不同，一般可分为

A) CD、VCD

B) CD、VCD、DVD、MP3

C) 只读光盘、可一次性写入光盘、可擦写光盘

D) 数据盘、音频信息盘、视频信息盘

(5)     在计算机系统中，可执行程序是

A) 源代码      B) 汇编语言代码     C) 机器语言代码         D) ASCII码

(6)     计算机软件系统包括

A) 操作系统、网络软件                  B) 系统软件、应用软件

C) 客户端应用软件、服务器端系统软件    D) 操作系统、应用软件和网络软件

(7)     目前，一台计算机要连入Internet，必须安装的硬件是

A) 调制解调器或网卡                        B) 网络操作系统

C) 网络查询工具                            D) WWW浏览器

(8)     在多媒体计算机系统中，不能存储多媒体信息的是

A) 光盘            B) 磁盘             C) 磁带             D) 光缆

(9)     要将当前盘当前目录下一个文本文件内容显示在屏幕上，正确的命令形式是

A) TYPE  a*.*                          B) TYPE  abc.exe

C) TYPE  pro.c>PRN                     D) TYPE  abc.txt

(10)  下列更改文件名的命令中正确的是

A) REN  A:file1  C:F1                  B) RENAME  A:  A:file1  C:F1

C) REN  A:file1  F1                        D) REN  A:file1  \SUB\F1

(11)  已知A盘为DOS系统启动盘，只有A:\DOS下有自动批处理文件，其中内容为：

CD\DOS

MD USER

CD USER

由A盘启动DOS系统后，A盘的当前目录是

A) \DOS            B) \DOS\USER        C) \                D) \USER

(12)  MS-DOS是

A) 分时操作系统                        B) 分布式操作系统

C) 单用户、单任务操作系统              D) 单用户、多任务操作系统

(13)   在Windows操作系统中，不同文档之间互相复制信息需要借助于

A) 剪贴板          B) 记事本           C) 写字板       D) 磁盘缓冲区

(14)   在Windows操作系统中

A) 同一时刻可以有多个活动窗口

B) 同一时刻可以有多个应用程序在运行，但只有一个活动窗口

C) 同一时刻只能有一个打开的窗口

D) DOS应用程序窗口与Windows应用程序窗口不能同时打开着

(15)  下列叙述中正确的是

A) 所有DOS应用程序都可以在Windows操作系统中正确运行

B) 所有DOS应用程序都不能在Windows操作系统中正确运行

C) 大部分DOS应用程序可以在Windows操作系统中正确运行

D) 为DOS5.0以上版本操作系统编写的应用程序可以在Windows操作系统中正确运行

(16)  如果微型计算机在硬盘上安装了QBASIC程序及相应的支持文件,且没有与启动QBASIC相关的.BAT文件,为QBASIC,应输入的命令是

A) QB          B) QBASIC           C) QuickBASC            D) BASICA

(17)  在QBASIC集成开发环境中，功能键F6的功能是

A）进入帮助窗口   B）进入编辑状态  C）进行上下窗口的切换   D）运行程序

(18)  在QBASIC中，常量1234567.1234567# 的数据类型是

A）整型        B）单精度实型       C）双精度型         D）长整型

(19)  在下列四项中，合法的QBASIC字符串常量是

A)  A$             B) “$A”           C) “A$”           D) “A”$

(20)  QBASIC表达式SQR(1)+INT(RND(1))的值是

A) 1              B) -1               C) 0            D) 2

(21)  在QBASIC中，执行下面四个赋值语句，将出错的是

A) x=SGN(0)                            B) x$=CHR$(0)

C) x=ABS(0)                            D) x=COS(0)/SIN(0)

(22)  在QBASIC中，执行下面四个打印语句，将出错的是

A) PRINT  a=3+5                        B) PRINT’a=”;3+5

C) PRINT  “a=3+5”                    D) PRINT a=;3+5

(23)  在QBASIC中，执行下面四个读数语句，无错误的是

A) READ π/3, π/6, π/4, π/5                 B) READ PI/3,PI/6,PI/4,PI/5

C) READ pi3,pi6,pi4,pi5                D) READ 2.14,.707,.866,1.414

(24)  在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式（无括号）中，其运算顺序为：

A) ①②③          B) ③②①           C) ②③①       D) ②①③

(25)  逻辑与（AND）运算的结果为“真”，与它所连接的两个条件必须是

A）前一个为“真”，后一个为“假”

B）前一个为“假”，后一个也为“假”

C）前一个为“真”，后一个也为“真”

D）前一个为“假”，后一个为“真”

(26)  DIM abc(-2 to 4,0 to 4,5)AS LONG语句定义的三维数组，其数组元素有

A) 96个            B) 112个            C) 140个        D) 210个

(27)  语句DIM  abc&(1 to 20)，bcd#(2,-1 to 1)定义的两个数组，其类型各自为

A）一维单精度实型数组和二维双精度型数组

B）一维整型数组和二维单精度实型数组

C）一维单精度实型数组和二维整型数组

D）一维长整型数组和二维双精度型数组

(28)  RANDOMIZE语句的功能是

A) 产生一个(0,1)之间的随机小数         B) 产生一个[1,10]之间的随机整数

C) 产生一个(-1,1)之间的随机小数            D) 产生新的随机化种子

(29)  有如下程序

DEF fnab(a.,b)=SQR(a*a+b*b)

PRINT fnab(6,8)

END

运行时输出的结果是

A）6               B）8                C）10              D）14

(30)  有如下一组程序语句

DEF fna(x)=x*x+1

FOR i=1 to 3

a=fna(i)

NEXT i

PRINT a

运行时的输出结果是

A）2             B）5                  C）10              D）17

(31)  有如下程序

s=0

i=1

DO  WHILE i<=100

s=s+i

LOOP

PRINT s

END

运行后的输出结果是

A）5050            B）5051         C）死循环，无输出      D）无穷大的数

(32)  语句DIM SHARED cmo(2 TO 6)定义的数组的类型是

A) 全局数组       B) 局部数组           C) 通用数组        D) 公共数组

(33)  有如下程序

FOR j=10 TO 6  STEP  －1

k=i

NEXT j

PRINT  k；j

END

运行时输出的结果是

A) 5  5                B) 5  6                C) 6  5              D) 6  6

(34)  有如下程序

DEFSTR X-Z

x=”X”：y=”Y”：z=”Z”

x$=”a”：y$=”b”：z$=”c”

x=y：y=z：z=x

PRINT x$;y$;z$

END

运行时输出的结果是

A)YZY              B) XYZ                  C) abc             D) bcb

(35)  有如下程序

a=100

DO

  s=s+a

  a=a+1

LOOP WHILE a>120

PRINT a

END

运行时输出的结果是

A) 100            B) 120                  C) 201                  D) 101

(36)  有如下程序

x= －5

INPUT “input value of s：”；s

SELECT CASE  s

CASE IS>0

y=x+1

CASE IS=0

y=x+2

CASE ELSE

y=x+3

END  SELECT

PRINT x；y

END

运行时，从键盘输入－5，输出的结果是

A) –5 -2             B) –5 -4                C) –5 -3             D) –5 -5

(37)  有如下程序

a$=”12345”；b$=”abcde”

FOR j=1 TO 5

C$=c$+LEFT$(a$,1)+RIGHT$(b$,1)

NEXT j

PRINT c$

END

运行时输出的结果是

A) a1b2c3d4e5         B) 1a2b3c4d5e        C) e1d2c3b4a5        D) 1e1e1e1e1e

(38)   有如下程序

FOR j=1 TO 3

PRINT TAB(3* j);(2*j－1)*(2*j－1)

NEXT j

PRINT

END

A) 1               B) 1   9   25        C) 1            D) 1   3   5

9                                    9

25                                25

(39)  有如下程序

CONST c$=”Beijing”

c$=”Shanghai”

c$=”HeBei”

PRINT c$

END

运行后输出结果为

A) Beijing             B) Shanghai          C) HeBei        D) 显示出错信息

(40)  在图形模式下，屏幕上显示的最小单位是

A) 一条直线                                B) 一个小圆

C) 一个字符                            D) 一个显示屏幕的象素点(象元)

(41)   有如下程序

DEF fny(x)

IF x>0 THEN

fny=1

ELSE IF x=0 THEN

fny=0

ELSE

fny= －1

END IF

END DEF

INPUT “x=”; x

PRINT fny(x)

EDN

运行时从键盘为变量x输入数据5，输出的结果是

A) 5              B) 1               C) 0              D) －1

(42)  有如下程序

DECLARE SUB abcd(a%,b%,c%,d%)

a%=40：b%=30

CALL abcd(a%,b%,c%,d%)

PRINT c%；d%

END

SUB abcd(x%,y%,z%,w%)

  z%=x%+y%

  w=x%-y%

END SUB

运行后输出的结果为

A) 0  0            B) 10  70           C) 70  10      D) 显示出错信息

(43)  有如下程序

FOR j=1 TO 3

GOSUB f:

m=m+n

NEXT j

PRINT m

END

f：n=n+2

RETURN

运行后输出结果为

A) 3               B) 12               C) 6                    D) 9

(44)  有如下程序

a=100：c=20：d=20

CLS

SCREEN 1,0

LINE (a,b)-(c,d),1,BF

END

运行时屏幕上得到的是

A) 一个矩形线条框                      B) 一条直线

C) 无任何图形                          D) 一个填满了颜色的矩形框

(45)  有如下程序

DIM  a  AS  STRING：DIM  b  AS  STRING

DIM  c  AS  STRING：DIM  d  AS  STRING

a$=“123”：ｂ=“123”

c$=“123”：d=“123”

PRINT a +b$+c+d$

END

运行时输出的结果是

A) 123123123123     B) 4*123         C) 492           D) 显示出错信息

(46)  有如下程序

DECLARE  FUNCTION  Wei(load)

INPUT load

fee=Wei(load)

PRINT fee

END

FUNCTION  Wei(load)

IF load<20 THEN

Money=load/2

ELSE

money=20+load

END IF

Wei=mondy

END FUNCTION

运行时从键盘为变量load提供的数据为20，输出结果为

A）10               B）20              C）40           D）显示出错信息

(47)  有如下程序

DECLARE SUB mult (x!)

COMMON SHARED b

a=1:b=1

PRINT “A=”;a;”,B=”;b

CALL  mult(a)

RPINT”A=”;a;“,B=”;b

END

SUB mult(x)

x=2*x

b=3*b

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

(48)  (49) 以下程序的功能是由随机函数产生100个在200到700间的整数，然后找出其中最大者，并记下是第几个数。但程序不完整，请选择适当内容在【48】、【49】处将程序补充完整。

DIM a(100)

FOR j=1 TO 100

A(j)=INT(501*RND+200)：PRINT a(j)；

NEXT j：PRINT

p=1：max=【48】

FOR j=2 TO 100

IF a(j)>max THEN max=a(j)：p=【49】

NEXT j

PRINT “The largest number---”；max

PRINT “The position---”；p

END

【48】  A) 0               B) a(1)         C) 1.7E+38          D) 1.7E-38

【49】  A) 1               B) a(1)         C) j                D) max

(50) 有如下程序

OPEN“goods.dat” FOR  OUTPUT  AS#1

READ  no, part$, place$, price

DO  UNTIL  no =0

WRITE #1, no, part$, price

READ no, part$, place$, price

LOOP

DATA 101, pen, B, 20.5, 103, book, A, 98.4

DATA 104, paper, A, 10.3, 105, knife, C, 78.6

DATA 0,,,

CLOSE

END

运行后，在文件goods.dat中写入的记录共有

A) 3个                 B) 4个              C) 5个             D) 6个

 

二、填空题（每空２分，共４０分）

请将每一个空的正确答案写在答题卡【１】至【20】序号的横线上，答在试卷上不得分

(1)  计算机机领域中，通常用英文单词“Byte”表示 【１】 。

(2)  在DOS环境下，自动批处理的文件名为 【２】 。

(3)   要将当前盘当前目录下所有扩展名为.TXT的文件内容在打印机上打印输出，应使用的单条DOS内部命令为 【３】 。

(4)   在Windows环境下，可以利用单击、双击、拖动这三种鼠标操作之一的 【４】 操作实现窗口的移动。

(5)  在Windows环境下，可以将窗口最小化为 【５】 。

(6)  数学式xcos2y+|-ln3z| 的QBASIC表达式为 【6】 。

(7)  QBASIC表达式INT(-4.8)*6\3^2+FIX(-4.8)的值是 【7】 。

(8)  有以下一组QBASIC语句

DIM  S  AS  STRING*5

s=“7654321”

PRINT s

运行时显示的结果是 【8】 。

(9)  有如下程序

READ  a, b, c, d, e, n

t=a-b-c-d-e

u=t/n

PRINT  USING “+# #.# #”；u

DATA  8, 4, 6, 15, 4, 5

END

运行后输出的结果是 【9】 。

(10) 有如下程序

FOR a=1 TO 5

y=1

FOR b=1 TO 10

FOR c=1 TO 6

y=y+1

NEXT c

NEXT b

NEXT a

PRINT y

END

运行时输出的结果是 【10】 。

(11) 有如下程序

a$=”This  is  Miss  Louis  Morris”.

x=LEN(a$)

FOR j=1 TO x-1

b$=MID$(a$, j, 2)

IF b$=LCASE$(“IS”) THEN s=s+1

NEXT j

PRINT s

END

运行后的输出结果是 【11】 。

(12) 有如下程序

CALL  test(4.6, 4.1)

END

SUB test(x%, y%)

PRINT x%; y%

END  SUB

运行后输出的结果是 【12】 。

(13) 下面程序是用比较交换法将10个数排为降序，请在【13】、【14】、【15】处将程序补充完整。

OPTION  BASE  1

DIM  a(10)

FOR i=1 TO 10

INPUT a(i)： PRINT (i);

NEXT  i

PRINT

FOR i= 【13】

   FOR j= 【14】

   IF a(i),a(j)  THEN  【15】

  NEXT j

NEXT i

FOR i=1 TO 10

PRINT a(i);

NEXT i

PRINT

END

(14) 下面的程序是对一维数组的10个元素中的前5个元素与后5个元素对换，即a(1) 与a(10)互换，a(2)与a(9)互换，…，a(5)与a(6)互换。请在程序【16】、【17】处将程序补充完整。

FOR i=1 TO 10

READ a(i)

PRINT a(i);

NEXT i

PRINT

DATA  3, 5, 9, 14, 21, 7, 15, 97, 142, 65

FOR i=10  【16】

SWAP 【17】

NEXT i

FOR i=1 TO 10

PRINT a(i);

NEXT i;

PRINT

END

(15) 下列程序用来画一个椭圆和它的两条对称轴，请在【18】处将程序补充完整。

CLS：SCREEN 1：COLOR 7

LINE(155,0)-(155,190)：LINE(0,95)-(315,95)

X0=155：y0=95

 【18】  (x0,y0), 90, , , , 0.5

END

(16) 有如下程序，其功能是先读入5个职工的序号、姓名、工资、生成5个记录。然后将其存放在A盘当前目录的一个顺序文件中，文件名为income.txt。请根据程序的需要在[19]、[20]处填上所需的内容，将程序补充完整。

DIM  no(5), num$(5), s(5)

FOR  m=1 TO 5

READ  no(m), num$(m), s(m)

NEXT m

FOR m=1 TO 5

WRITE #2, no(m), num$(m), s(m)

NEXT m

DATA 123, WANG, 395, 103, LI, 492, 110, LANG, 290

DATA 107, FUN, 689, 125, LING, 878

(1)       C	(2)       C	(3)       C	(4)       C	(5)       C
(6)       B	(7)       A	(8)       D	(9)       D	(10)   C
(11)   C	(12)   C	(13)   A	(14)   B	(15)   C
(16)   B	(17)   C	(18)   C	(19)   C	(20)   A
(21)   D	(22)   D	(23)   C	(24)   C	(25)   C
(26)   D	(27)   D	(28)   D	(29)   C	(30)   C
(31)   C	(32)   A	(33)   C	(34)   D	(35)   D
(36)   A	(37)   D	(38)   A	(39)   D	(40)   D
(41)   B	(42)   C	(43)   B	(44)   D	(45)   A
(46)   C	(47)   B	(48)   B	(49)   C	(50)   B

(1)  【1】字节

(2)  【2】AUTOEXEC.BAT

(3)  【3】COPY *.TXT PRN

(4)  【4】拖动

(5)  【5】图标 或 按钮

(6)  【6】x*COS(2*y)+ABS(-LOG(3*z))

(7)  【7】-7

(8)  【8】76543

(9)  【9】-4.20

(10)     【10】61

(11)     【11】5

(12)     【12】5   4

(13)     【13】1 TO 9 或 1 TO 10

【14】i+1 TO 10 或 i TO 10

【15】SWAP a(j),a(i) 或 SWAP a(i),a(j)

(14)     【16】TO 6  STEP  -1

【17】a(i),a(11-i) 或 a(11-i), a(i)

(15)     【18】CIRCLE

(16)     【19】OPEN “a:income.txt”FOR OUTPUT AS#2

 

 www.4juan.com 收集整理