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

 

 

(考试时间：120分钟，满分100分)

 

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

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

(1)    1MB等于

A) 1000字节                    B) 1024字节

C) 1000×1000字节              D) 1024×1024字节

(2)    与十六进制数200等值的十进制数为

A) 256         B) 512          C) 1024         D) 2048

(3)    所谓“裸机”是指

A) 单片机                       B) 单板机

C) 不装备任何软件的计算机       D) 只装备操作系统的计算机

(4)    能将高级语言编写的源程序转换成目标程序的是

A) 链接程序    B) 解释程序    C) 编译程序     D) 编辑程序

(5)    在64位计算机中，一个字长所占的字节数为

A) 64           B) 8            C) 4            D) 1

(6)    在Windows环境下，当一个应用程序窗口被最小化后，该应用程序

A) 继续在后台运行               B) 继续在前台运行

C) 终止运行                     D) 暂停运行

(7)    在Windows环境下，能实现窗口移动的操作是

A) 用鼠标拖动窗口中的任何部位   B) 用鼠标拖动窗口的边框

C) 用鼠标拖动窗口的控制按钮     D) 用鼠标拖动窗口的标题栏

(8)    在Windows环境下，PrintScreen键的作用是

A) 打印当前窗口的内容           B) 打印屏幕内容

C) 复制屏幕到剪贴板             D) 复制当前窗口到剪贴板

(9)    Internet的通信协议是

A) TCP/IP        B) BBS         C) WWW          D)FTP

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

A) 计算机病毒只感染可执行文件

B) 计算机病毒只感染文本文件

C) 计算机病毒只能通过软件复制的方式进行传播

D) 计算机病毒可以通过网络或读写磁盘等方式进行传播

(11) 在QBASIC集成开发环境中调试程序时，键盘上的F8键是用来

A) 设置循环步长                 B) 单步执行

C) 过程单步执行                 D) 重新执行

(12) 进入QBASIC操作环境后，屏幕上显示的两个窗口是

A) 程序窗口与运行窗口           B) 程序窗口与子程序窗口

C) 命令窗口与运行窗口           D) 程序窗口与命令窗口

(13) 在下列4个选项中，可作为QBASIC合法变量名的是

A) x1/y         B) lxy         C) x1y          D) x1+y

(14) 值666&的数据类型为

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

(15) 在语句IF x=3+y THEN PRINT x中，表达式 x=3+y是

A) 赋值表达式                   B) 关系表达式 

C)算术表达式                    D) 逻辑表达式

(16) 在QBASIC中，表达式 5^2\3 MOD 4的值是

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

(17) 打印语句PRING 1+2；“=”；1+2执行后，输出的结果是

A) 1+2“=”3                    B) 3=3     

C) 3；=3                        D) 1+2=3

(18) 有如下程序，运行后输出的结果是

INPUT “x-y=”;x

INPUT y

PRINT x;“+”;y

END

A) 键盘输入的两数之和               B) 键盘输入的两数之差

C) 键盘输入的两个数相加的表达式     D) 错误信息

(19) 已知x=2，y=9，z=4，逻辑表达式 x>y OR z>x AND x<y AND NOT z>y的值是

A) TRUE          B) -1          C) 0           D) FALSE

(20) 定义一个3行4列的二维数组，正确的语句是

A) DIM（1 TO 3，1 TO 4）        B) DIM a(3,4)

C) DIM a(3 TO 4)                D) DIM a(2,1 TO 4)

(21) 有如下程序，运行后输出的结果是

DIM a(10)

FOR j=20 TO 0 STEP –5

READ a(1)

NEXT j

PRINT a(1)+a(2)+a(3)

DATA 1,2,3,4,5,6,7,8,9,10

END

A) 5            B) 6           C) 7            D) 10

(22) 有如下程序，运行后输出的结果是

x=0

DO WHILE x<20

x=x+1

x=x*x

LOOP

PRINT x

END

A) 16           B) 19           C) 20           D) 25

(23) 有如下程序

 a=-4.5:s=0

 b=SGN(a)+2*ABS(a)

 c=(INT(a)+14)/2

 FOR i=a TO b STEP c

s=s+i

 NEXT i

 PRINT “s=”;s

 END

运行后，输出的结果是

A) s=1          B) s=4.5        C) s=0          D) s=9

(24) 有如下程序段，运行后输出的结果是

CONST s$=“STRING”，c$=“WANG”

c#=1

PRINT c#,c$,s$

A) 1 WANG STRING                B) 1 1 STRING

C) 错误信息                     D) WANG WANG STRING

(25) 有如下程序

a$=“ABCDEFGHIJK”

PRINT RIGHT$(a$,2)+STRING$(4,a$)

END

运行后，输出的结果是

A) JKABCD       B) JKAAAA       C) ABHIJK       D) ABEFGH

 

(26) 在下列运算符中，优先级最高的是

A) OR           B)>=            C) AND         D)*

(27) 有如下程序

DIM a(5) AS STRING *5

FOR i= 1 TO 5

   READ a(i)

   sum=sum+LEN(a(i))

NEXT i

PRINT sum

DATA 1,zhangsan,m,90,70

END

运行后，输出的结果是

A) 14           B) 25           C) 错误信息     D) 1zhangsam9070

(28) 在下列单行函数的定义中，正确的是

A) DEF fna(x,y)=3*x+2           B) DEF fn(x,y)=3*x+2*y

C) DEF ff(x,y)=3*x+2            D) DEF fna(x,y)=3*x+2*y  END DEF

(29) 下列程序运行后,输出的结果是

DIM m(10)

      FOR k= 1 TO 10

          m(k)=11-k

      NEXT K

      x=6

      PRINT m(2+m(x))

      END

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

(30) 如有下程序

FOR k= 1 TO 3

        s=0

        IF k<1 THEN

            x=1

        ELSEIF k<2 THEN

            x=2

        ELSEIF k<3 THEN

            x=3

        ELSE

            x=4

 

      END IF

         PRINT x;

         s=s+x

      NEXT k

      PRINT s

      END

      运行后，输出的结果是

A) 2  3  4  9   B) 2  3  4  4   C) 1  2  3  3   D) 1  2  3  6

(31) 有如下程序

a$=“123.0”

b$=“456.0”

c=VAL(a$+b$)

PRINT c

END

运行后，输出的结果是

A) 579          B) 123.0456.0   C) 123.0456         D) 123

(32) 有如下程序

n=5

DIM a(n)

a(1)=1:a(2)=1

FOR M=1 TO n

     a(m+2)=a(m)+a(m+1)

NEXT m

FOR m= 1 TO n

     PRINT a(m);

NEXT m

END

运行后，输出的结果是

A) 1  1  2  3  5                B) 1  1  2  0  0

C) 下标越界错误信息             D) 1  2  2  2  2

(33) 如有下程序

a=0:b=1

DO WHILE b<10

   SWAP a,b

  b=a+b

LOOP

 

PRING b

END

运行后，输出的结果是

A) 8            B)13            C) 21           D) 34

(34) 有如下程序

i=0:n=1

DO

        n=(2*n+3) MOD 7

i=i+1

LOOP UNTIL n=1

PRINT i

END

运行后，输出的结果是

A) 1            B) 3            C) 5            D) 7

(35) 有如下程序

FOR j=1 TO 3

 FOR k= 1 TO 3

             a(j,k)=(j-1)*3+k

        NEXT k

NEXT j

     FOR j= 2 TO 3

         FOR k= 1 TO 2

             PRINT a(k,j);

         NEXT k

     PRINT

     NEXT j

     END

运行后，输出的结果是

A) 2   5        B) 2   3        C) 4   7        D) 4   5

   3   6           5   6           5   8           7   8

(36) 有如下程序段

FOR i= 1 TO 10

   FOR j=i TO 10

      PRINT “*”;

NEXT j,i

运行后，屏幕上输出“*”的个数是

A) 10           B) 100           C) 45         D) 55

(37) 有如下程序

CLS

SCREEN 1，0

PSET （50，50），2

LINE –STEP （100，100），，B

END

运行后，屏幕上显示的是

A) 一个空心正方形               B) 一条折线

C) 一个空心三角形               D) 一个实心正方形

(38) 有如下程序

b$=“”

FOR j= 1 TO 3

   READ a$

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

NEXT j

PRINT b$

DATA  BEER,CASE,TANKS

END

运行后，输出的结果是

A) BASE         B) BANKS        C) BAT           D) BASNKS

(39) 对OPEN“workjobs.dat”FOR INPUT AS #1语句功能描述正确的是

A) 为了向顺序文件workjobs.dat写数据而打开该文件

B) 为了从顺序文件workjobs.dat读入数据而打开该文件

C) 为了向随机文件workjobs.dat写数据而打开该文件

D) 为了从随机文件workjobs.dat读入数据而打开该文件

(40) 有如下程序

DECLARE SUB factorial(k,s)

sum=0

FOR k= 2 TO 4

   CALL factorial(k,s)

sum=sum+s

NEXT k

PRINT sum

END

SUB factorial(k,s)

   s=1

 

FOR j= 1 TO k

   s=s*j

   NEXT j

END SUB

运行后，输出的结果是

A) 32          B) 120          C) 150          D) 152

(41)  有如下程序

s=0

DO

   s=4*(s+1)

   num=num+1

LOOP UNTIL s>=20

PRINT num,s

END

运行后，输出的结果是 【41】

A) 3  84        B) 3  20        C) 2  20       D) 2  84

(42) 下面程序的功能是在不同位置上画五个不同颜色、不同大小的圆。请在【42】处将程序补充完整。

CLS：SCREEN 13：COLOR 3

RANDOMIZE TIMER

x0=160: y0=100

FOR j= 1 TO 5

   x=INT(RND*101)-50:y=INT(RND*91)-45

   r=INT(RND*41)+5:  C=INT(RND*16)+1

   【42】(x0+x,y0+y),r,c

NEXT j

END

A) DRAW         B) LINE          C) PEST        D) CIRCLE

(43)  下面程序的功能是计算矩阵主对角线上元素的和，请在【43】处将程序补充完整。

DIM  a(4,4)

FOR  j= 1  TO  4

  FOR  k= 1  TO  4

     a(j,k)=j+k

  NEXT  k

NEXT  j

FOR  j= 1  TO  4

     【43】

NEXT  j

PRINT  sum

END

A) sum=sum+a(j,j)               B) sum=sum+a(j),(j)

C) sum=sum+a(j-1,j)             D) sum=sum+a(j,5-j)

(44) 有如下函数

FUNCTION myfun(x)

IF x<=1 THEN

tmp=2

ELSE

tmp=myfun(x-1)+2

END IF

myfun=tmp

END FUNCTION

当以参数10调用此函数时，所返回的值是【44】

A) 1024         B) 512          C) 20           D) 不定值

(45)（46）（47）下面程序的功能是将一个数插入到已经从小到大排列的数组中，并使该数组仍保持原来的顺序。请在【45】、【46】、【47】处将程序补充完整｡

DECLARE  FUNCTION  findposition (a(),nr,key1)

DIM  b(20)

n=12

FOR j= 1 TO n

   RDAD b(j)

NEXT j

INPUT “m=”;m

k=findposition(b(),n,m)

FOR  j= n  TO  k  STEP -1

    【45】

NEXT  j

    【46】

DATA 8,10,12,16,17,19,41,47,55,64,87,99

FOR  j= 1  TO  13

   PRINT  b(j);

NEXT  j

END

FUNCTION  findposition(a(),nr,key1)

   FOR  j= 1  TO  nr

 

      IF  key1<=a(j)  THEN 【47】

   NEXT  j

   findposition=j

END  FUNCTION

(45)【45】A) b(j)=b(j+1)            B) b(j)=b(j-1)

C) b(j+1)=b(j)            D) b(j-1)=b(j)

(46)【46】A) b(k-1)=m               B) b(k+1)=m

C) b(j)=m                 D) b(k)=m

(47)【47】A) END FOR                B) EXIT

C) EXIT FUNCTION         D) EXIT FOR

(48) (49) (50) 下列程序的功能是产生100个-300到300（含-300和300）间的不同随机整数，并找出其中最小数所在的位置。请在（48）、（49）、（50）处将程序补充完整。

DIM   a(100)

REM  Generate  the  different  random  numbers

j=1

DO WHILE 【48】

   a(j)=INT(RND*601)-300

   FOR k= 1 TO j-1

     IF a(j)=a(k) THEN EXIT FOR

   NEXT K

   IF k>=j THEN 【49】

LOOP

n=100

REM  Find the sumallest

k=1

FOR m=2 TO n

  IF a(m)<a(k) THEN 【50】

NEXT m

PRINT “k=”;k

END

【48】A) j<=100    B) j>100      C) j>=100      D) j=100

【49】A) j=j-1      B) j=j+1      C) EXIT DO     D) j=k

【50】A) a(k)=a(m)  B) a(m)=a(k)  C) m=k         D) k=m

二、填空题(每空2分,共40分)

请将每空的正确答案写在答题卡上【1】～【20】序号的横线上,答在试卷上不得分｡

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

(2) 计算机网络分为广域网和局域网，因特网属于【2】 。

(3) 从Windows环境进入MS-DOS方式后，返回Windows环境的DOS命令为【3】 。

(4) Windows环境下，只要在“开始”菜单中单击 【4】选项，就可以查况最近打开过的文档清单。

(5) 计算机的运算速度可以用MIPS来描述，1MIPS是指每秒执行【5】 条指令。

(6) 数学式（ax²+bx+c）e^-2.5t的QBASIC表达式是【6】｡

(7) 有如下程序【7】

Str1$=“TCGIGE”

   FOR i= 1 TO LEN(str1$)

     IF MID$(str1$,i,2)=“GT” THEN

        MID$(str1$,i)=“！”

      END IF

   NEXT I

   PRINT str1$

   END

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

 (8) 有如下程序

DELARE SUB test(x%,y%)

     CALL test(4,y%)

     PRINT x%,y%

END

     SUB test(x%,y%)

     SWAP x%,y%

     END SUB

运行后，输出的结果是【8】 ｡

(9) 对变量x的值进行四舍五入（保留小数点后两位）的表达式是 【9】 /100 。

(10) 下列程序定义一个名为“student”的记录类型，基域名、数据类型及数据长度如下：

域名       数据类型      数据长度

名字       字符型         20

年龄       整形           2

体重       单精度实型     4

    请在【10】处填入适当内容将程序补充完整。

TYPE student

name AS string *20

age AS INTEGER

weight  AS 【10】

END TYPE

(11) 下面程序的功能是输入n，并在n以内找出全部勾股数（勾股数：如果 a、b、c均为自然数，且a²+b²=c² ,那么就称a、b、c为一级勾股数）。请在【11】、【12】处将程序补充完整。

INPUT n

n2=n*n

FOR i= 1 to n

    j=i+1:tmp=i*i+j*j

    DO WHILE 【11】

       root=SQR(tmp)

       IF root=INT(root)  THEN PRINT I,j,root

       tmp=tmp+2*j+1

       j=【12】

     LOOP

     NEXT i

     END

 (12) 有如下程序

a$=“ABCDE”

FOR k= 1 TO 4

   PRINT TAB(6-k); 【13】

NEXT K

END

运行后，输出的结果如下：

             DE

            CDE

           BCDE

          ABCED

但程序不完整，请在【13】处补充使之完整。

(13) 下面程序的功能是计算1～100之间所有或的倍数之和n ,并输出到文件a1.out中，然后重新从该文件中读取n的值，并在屏幕上输出。请在【14】【15】处填入适当的内容，将程序补充完整｡

n=0:i=1

WHILE i<=100

    IF i MOD 5 =0 OR i MOD 7 =0 THEN 【14】

    i=i+1

WEND

OPEN “a1.out” FOR OUTPUT AS #1

PRINT #1,n

CLOST #1

OPEN 【15】 FOR INPUT AS #1

INPUT #1,n

PRINT “n=”;n

CLOSE #1

END

(14) 下列程序的功能是以数组中第一个数为标准，将数组分成两个部分（ 小于等于该数的部分及大于该数的部分），并把结果连续存入在另一个数组中。在结果数组中放先入小的部分，再放原数组中的第一个数，最后放大的部分。请在【16】、【17】【18】处将程序补充完整。

DIM  a(10),b(10)

FOR  i = 1  TO  10

   INPUT  a(i)

NEXT  i

    【16】   :j=10

FOR k=2 TO 10

IF a(k)<=a(1) THEN

    b(i)=a(k)

    i=i+1

  ELSE

    b(j)=a(k)

    【17】

  END IF

NEXT K

b(j)=【18】

END

(15) 设有数列 x­n = xn-1 + 2xn-2  (n=2,3, 4, … , x0 = x1 =1)。下面程序的功能是打印该数列中小于5000的数，并对基记数（含第0项）。请在【19】、【20】处将程序补充完整。

X0=1:x1=1

     PRINT x0;x1;

     k=2

     x=x1+2*x0  

DO WHILE 【19】

        PRINT x;

        x0=x1: 【20】

x=x1 + 2 * x0

        k=k+1

     LOOP

     PRINT k

END

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

(1)  【1】@   

(2)  【2】广域网

(3)  【3】EXIT

(4)  【4】文档

(5)  【5】1百万

(6)  【6】（a*x^2+b*x+c）*exp((-2.5)*t)

(7)  【7】TC!T!T

(8)  【8】0  4

(9)  【9】(X*100+0.5)

(10)     【10】SINGLE

(11)     【11】root<=n

(12)     【12】j=j+1

【13】right$(a$,k+1)

【14】n=n+i

(13)     【15】 “a1.out”

(14)     【16】 for i=1 to j

(15)     【17】j=j+1

【18】a(i):next i

(16)     【19】x<5000

(17)     【20】x1=x

 www.4juan.com 收集整理