基础部分和qbasic语言程序设计.docx

基础部分和qbasic语言程序设计.docx

《基础部分和qbasic语言程序设计.docx》由会员分享，可在线阅读，更多相关《基础部分和qbasic语言程序设计.docx（18页珍藏版）》请在冰豆网上搜索。

基础部分和qbasic语言程序设计

全国计算机等级考试二级笔试试卷

基础部分和QBASIC语言程序设计

（考试时间：

120分钟，满分100分）

2003年9月

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

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

（1）在计算机中,一个字节所包含二进制位的个数是

A）2B）4C）8D）16

（2）在多媒体计算机中，CD-ROM属于

A）存储媒体B）传输媒体C）表现媒体D）表示媒体

（3）在DOS系统中，带有通配符的文件名*.*表示

A）硬盘上的全部文件B）当前盘当前目录中的全部文件

C）当前盘上的全部文件D）根目录中的全部文件

（4）十六进制数100转换为十进制数为

A）256B）512C）1024D）64

（5）能将高级语言编写的源程序转换为目标程序的软件是

A）汇编程序B）编辑程序C）解释程序D）编译程序

（6）在Internet中，用于在计算机之间传输文件的协议是

A）TELNETB）BBSC）FTPD）WWW

（7）在Windows环境下，资源管理器左窗口中的某文件夹左边标有“+”标记表示

A）该文件夹为空B）该文件夹中含子文件夹

C）该文件夹中只包含有可执行文件D）该文件夹中包含系统文件

（8）在Windows环境下，下列叙述中正确的是

A）在“开始”菜单中可以增加项目，也可以删除项目

B）在“开始”菜单中不能增加项目，也不能删除项目

C）在“开始”菜单中可以增加项目，但不能删除项目

D）在“开始”菜单中不能增加项目，但可以删除项目

（9）从Windows环境进入DOS方式后，返回Windows环境的命令为

A）QUITB）WINC）EXITD）ESC

（10）下列叙述中正确的是

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

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

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

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

（11）按QBASIC的规定，以下正确的字符型常量是

A）ABCDB）NO（3）C）“SQR

（2）”D）N$

（12）下面表达式中，运算结果与其它三个不同的是

A）EXP（-3.5）B）INT（-3.5）+0.5C）-ABS（-3.5）D）FIX（-3.5）-0.5

（13）在QBASIC语言中，打开一个已有的文件，应使用菜单File下的命令

A）NewB）OpenC）SaveD）Exit

（14）下面各组语句中，非执行语句有

A）LET,INPUTB）PRINT,ENDC）DIM,READD）REM,DATA

（15）语句PRINT“SGN（-26）=”；SGN（-26）的输出结果是

A）SGN（-26）=26B）SGN（-26）=-26C）SGN（-26）=1D）SGN（-26）=-1

（16）下面四个字符串中,哪个可作为QBASIC语言中的变量名

A）fnabcB）abc.defC）gh-klD）123abc

（17）在QBASIC语言中，表达式y1+z2=a*SIN（b*x+c）+k是

A）算术表达式B）关系表达式C）逻辑表达式D）错误表达式

（18）当a=4,b=7时，语句PRINTa-b=-3输出的结果是

A）-1B）0C）-3D）4

（19）下列程序运行后输出的结果是

FORj=1TO20STEP2

a=a+jMOD5

NEXTj

PRINTa

END

A）20B）30C）40D）100

（20）下列程序运行后输出的结果是

a=3:

b=-5

c=a:

a=b:

b=c

PRINTb,a

END

A）-53B）33C）-5-5D）3-5

（21）abc#表示的变量类型是

A）字符型B）整型C）长整型D）双精度型

（22）下面不正确的语句是

A）READa,b,c$B）READa,b,c$

DATA1,2,3DATA1%,2%,3&

C）READa,b,c$D）READa,b,c$

DATA1+2,2,"3"DATA1,2,"a=1b=2",3

（23）下列程序运行后输出的结果是

k=1

IFk<=1THENa=2*k

IFk<=2THENa=2*k+1

IFk<=3THENa=k

PRINTk;a

END

A）12B）13C）11D）31

（24）下列程序运行后输出的结果是

aa$="11.1”:

bb$="22.2":

cc$="C"

dd=VAL（aa$）+VAL（bb$）

ee$=STR$（dd）

PRINTcc$+ee$

END

A）C11.1B）C33.3C）C11.122D）C11.1+22.2

（25）下列程序运行后输出的结果是

FORj=1TO10

READx

IFx<0THENa=a+ABS（x）

NEXTj

PRINTa

DATA1,-2,3,-4,5,-6,7,-8,9,-10

END

A）-25B）25C）-30D）30

（26）下列程序运行后输出的结果是

a$="A":

b=12.89:

c$="C"

d$=a$+STR$（b）+c$

PRINTLEN（d$）

END

A）6B）7C）8D）9

（27）以下正确的变量类型说明语句是

A）DIMxASINTB）DIMa$ASSTRING

C）DEFLONGxD）DEFINTa,s-y

（28）下列程序运行后输出的结果是

sum=0

FORj=1TO10

IFj=10THEN

EXITFOR

ELSE

sum=sum+j

ENDIF

NEXTj

PRINTsum

END

A）45B）55C）10D）36

（29）下列程序运行后的输出结果是

DO

READa,b,c

a=a-b

LOOPUNTILa=-1ANDc=1

PRINTa;b;c

DATA9,2,3,8,9,1,1,5,1,7,1,1

END

A）891B）411C）-191D）923

（30）下列程序运行后的输出结果是

FORx=1TO2

a=0

FORy=1TOx+1

a=a+1

NEXTy

PRINTa;

NEXTx

END

A）11B）00C）12D）23

（31）有如下程序

INPUT“Enteravalueofa:

”;a

SELECTCASEb

CASEIS>2

b=a+1

CASEIS>3

b=a+2

CASEIS<5

b=b+3

CASEELSE

b=b+4

ENDSELECT

PRINTa;b

END

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

A）45B）46C）43D）44

（32）语句DIMb（-2TO4,3TO7）ASINTEGER定义的数组元素个数为

A）8B）24C）35D）28

（33）分别对四个字符串赋值:

a$=MI$（"12345",2,4）:

b$=SPACE$（3）:

c$=UCASE$（"ChiNa"）:

d$=STRING$（3,"="）其中变量值最小的为:

A）a$B）b$C）c$D）d$

（34）下列程序运行后输出的结果是

FORj=1TO3

FORk=1TO3

arr（j,k）=（j–1）*3+k

NEXTk

NEXTj

FORj=1TO3

FORk=jTO3

PRINTTAB（k*3）;arr（j,k）;

NEXTk:

PRINT

NEXTj

END

A）123B）147C）1D）123

456584556

78997899

（35）程序是计算1*3+5*7+9*11+13*15+……+97*99，请在【35】处将程序补充完整。

FORj=1TO99STEP4

sum=sum+j*（【35】）

NEXTj

PRINT"sum=";sum

END

A）j+1B）j+2C）j+3D）j+4

（36）程序是打印出1000以内的所有素数，并统计它们的个数。

请在【36】处将程序补充完整｡

FORj=2TO1000

x=0:

k=2

DOWHILEk<=SQR（j）ANDx=0

IFjMODk=0THENx=1

k=k+1

LOOP

IFx=【36】THENy=y+1:

PRINTj;

NEXTj

PRINTy

END

A）0B）1C）kD）j

（37）下列程序运行后输出的结果是【37】

FORj=2TO15STEP3

k=k+j

NEXTj

PRINTk+j

END

A）16B）40C）55D）57

（38）下列程序计算sum=1+（1+3）+（1+3+5）+…+（1+3+5+7+…+39），请在【38】处将程序补充完整｡

m=1:

sum=0:

t=0

DOWHILEm<=39

t=t+m

sum=sum+【38】

m=m+2

LOOP

PRINT"sum=";sum

END

A）1B）mC）tD）m+2

（39）下列程序运行后输出的结果是

a$=""

FORj=1TO3

READb$

a$=a$=RIGHT$（b$,j）

NEXTj

PRINTa$

DATAam,set,meter

END

A）asmB）mtrC）metterD）amsetmetter

（40）下列程序运行后输出的结果是

a$="AB":

b$="BC":

c$="CA"

FORj=1TO2

a$=b$:

b$=c$:

c$=a$

NEXTj

PRINTa$+b$+c$

END

A）BCCAABB）CAABBCC）BCCABCD）CABCCA

（41）下列程序是从键盘上输入二个数,输出它们的最大公约数,请在【41】处将程序补充完整｡

INPUT"X,Y=";x,y

DOWHILEx【41】y

IFx>yTHENx=x-yELSEy=y-x

LOOP

PRINT"H.C.F.—";x

END

A）>B）=C）<>D）<

（42）程序的功能是:

从键盘输入一个数,输出这个数的平方根,请在【42】处将程序补充完整｡

INPUT"n=";n

m=1:

x=1

DOWHILEABS（n-x*x）>.001

IFx*x>nTHENx=x【42】:

m=m*.1

x=x+m

LOOP

PRINTx;"isthesquarerootofnumber";n;"."

END

A）+1B）-1C）+mD）-m

（43）下列程序从键盘输入4后，运行输出的结果是

DECLAREFUNCTIONyy（y）

INPUT"n=";n

ee=yy（yy（n））

PRINTee

END

FUNCTIONyy（y）

IFy<20THENy=y+20

yy=y

ENDFUNCTION

A）16B）17C）36D）24

（44）有如下程序段

FUNCTIONmyfun（x）

IFx<=1THEN

tmp=1

ELSE

tmp=myfun（x-1）*2

ENDIF

myfun=tmp

ENDFUNCTION

以参数10调用此函数的返回的值为

A）1024B）512C）20D）不停止

（45）输入一个字符串,删去第三､第六､第九､…位置上的字符,得到一个新字符串,请在【45】处将程序补充完整｡

INPUT“Inputastring”;aa$

FORj=1TOLEN（aa$）STEP【45】

bb$=MID$（aa$,j,2）

cc$=cc$+bb$

NEXTj

PRINT“Theoldstringis”;aa$

PRINT“Thenewstringis”;cc$

END

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

（46）下列程序运行后输出的结果是

DEFSTRx-z

xx="12":

yy="34"

zz=STR$（ASC（xx））+STR$（ASC（yy））

ww=VAL（zz）

PRINTww

END

A）120B）241C）361D）4951

（47）下列程序运行后，显示在屏幕上的是

CLS

SCREEN9:

COLOR3

LINE（50,20）-（500,300）,4,B

LINE（500,20）-（50,300）,0,B

END

A）一个矩形B）二个不同颜色的矩形

C）无任何显示D）显示错误信息

（48）下列程序运行后输出的结果是

WHILEj<30

j=j*j+1

n=n+1

WEND

PRINTn

END

A）0B）5C）30D）4

（49）（50）下列程序的功能是：

随机产生100个1到100之间的整数，在其中查找某个数，并输出其所在位置｡请在【49】【50】处将程序补充完整。

DECLAREFUNCTIONsearch（a（）,n,x）

DIMa（100）

FORj=0TO99

a（j）=【49】

NEXTj

INPUTx

k=search（a（）,100,x）

IFk<>-1THEN

PRINT“found”;x;“atfirstposition”;k

ELSE

PRINT“Notfound”;x

ENDIF

END

FUNCTIONsearch（a（）,n,x）

j=0

DOWHILE【50】

j=j+1

LOOP

IFj>=nTHENj=-1

search=j

ENDFUNCTION

（49）A）INT（1+RND*100）B）INT（RND*100）

C）1+RND*100D）RND*99+1

（50）A）a（j）=xANDjxANDj

C）a（j）>xANDj

二、填空题（每空2分,共20分）

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

（1）计算机软件分为系统软件与应用软件，UNIX属于【1】。

（2）假设在当前盘的当前目录下有两个文件A.TXT和B.TXT，现要将文件B.TXT合并连接到文件A.TXT后面。

若使用TYPE命令，则完整的命令为【2】。

（3）Internet的信息服务方式分为基本服务和扩展服务，电子邮件属于【3】。

（4）在Windows环境下，利用菜单命令删除固定硬盘上的文件与文件夹，实际上是将需要删除的文件与文件夹移动到【4】文件夹中。

（5）在Windows环境下,为了进行“添加/删除程序”操作，首先打开【5】，然后双击其中的相应图标。

（6）计算43\6MOD（1-3^2）的值是【6】｡

（7）在A驱动器磁盘当前目录中有一通讯录文件a.dat（内容为姓名na$､地址add$），程序功能是为每个记录加上电话号码,请在【7】处将程序补充完整。

OPEN"a:

a.dat"FORINPUTAS#1

OPEN"a:

b.dat"FOROUTPUTAS#2

WHILENOT【7】

INPUT#1,na$,add$

INPUT"Inputthetelephonenumber--";tel$

WRITE#2,na$,add$,tel$

WEND

CLOSE

KILL"a:

a.dat"

NAME"a:

b.dat”AS“a:

a.dat"

END

（8）下列程序运行后输出的结果是【8】｡

DEFfnabc（x）=x*x+1

y=fnabc（fnabc

（2））

PRINTy

END

（9）下列程序运行后的输出结果是【9】。

DECLARESUBadd（x,y）

x=1:

y=1

CALLadd（（x）,y）

PRINTx,y

END

SUBadd（x,y）

x=x+y

y=2*x

ENDSUB

（10）下列程序的功能是画一条正弦曲线，请在【10】处将程序补充完整。

DEFfncsin（z）=180*SIN（z）+200

SCREEN12

LINE（0,200）-（628,200）,13

FORj=1TO628

【10】（j,fncsin（j/50））,13

NEXT

END

（11）下列程序运行后输出的结果是【11】

k=5

FORj=3TO7STEP-1

k=k+j

NEXTj

PRINTk+j

END

（12）下列程序运行后输出是:

1234

8765

9101112

16151413

请在【12】处将程序补充完整｡

FORa=1TO4

FORb=1TO4

IFa/2=a\2THEN

PRINTTAB（4*b）;4*a+1-b;

ELSE

PRINTTAB（4*b）;4*（【12】）+b;

ENDIF

NEXT

PRINT

NEXT

END

（13）从键盘上输入一个数n，插入到已经从小到大排列的有序数组中，使该数组仍有序｡请在【13】处将程序补充完整｡

DIMaa（13）

FORj=1TO12:

READaa（j）:

PRINTaa（j）;:

NEXTj:

PRINT

INPUT"n=";aa（13）

j=12

DOWHILEaa（j）>aa（j+1）ANDj>0

【13】:

j=j-1

LOOP

FORk=1TO13:

PRINTaa（k）;:

NEXT:

PRINT

DATA8,25,46,61,89,96,113,132,147,199,201,267

END

（14）下列程序的功能是:

随机生成10个整数，分别计算其中偶数的和及奇数的和。

请在【14】、【15】处将程序补充完整（程序中evensum代表偶数之和，oddsum代表奇数之和）。

evensum=0:

oddsum=0

FORj=1TO10

x=INT（RND*100）

IFxmod【14】THEN

【15】

ELSE

oddsum=oddsum+x

ENDIF

NEXTj

PRINTevensum,oddsum

END

（15）从键盘上读入三个整数，判断是否为勾股数（即其中一个数的平方等于另外两个数平方的和）。

INPUTa,b,c

IFa>cTHENSWAPa,c

IFb>cTHEN【16】

IF【17】THENPRINT"YES"ELSEPRINT"NO"

END

（16）下列程序的功能是：

输入若干个学生成绩（成绩为负数时结束），统计平均成绩,并将低于平均成绩的成绩输出。

DIMa（20）

n=0

DO

INPUTa（n）

n=n+1

LOOPWHILE【18】

n=n-1:

sum=0

FORj=0TOn-1

sum=sum+a（j）

NEXTj

avg=sum/【19】

FORj=0TOn-1

IF【20】THENPRINTa（j）

NEXT

END