2003年4月全国计算机等级考试一级笔试试卷Windows_2003年4月全国计算机等级考试二级QBASIC语言程序设计

【shitiku.jxxyjl.com--试题集锦】

一、选择题（(1)-(40)每小题1分，(41)-(50)每小题2 分，共60分）
下列各题 a) 、b)、c) 、d)四个选项中，只有一个选项是正确的，请将正确选项涂写在
答题卡相应位置上，答在试卷上不得分。
(1) 用8位无符号二进制数能表示的最大十进制数为
a) 127 b) 128 c) 255 d) 256

(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) 在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"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.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 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 d100
　　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 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

(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"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
1 0
b) 1 0
0 1
c) 0 0
1 1
d) 没有任何显示

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

(2) 假设在当前盘的当前目录下有两个文件a.txt和b.txt，现要将文件b.txt合并连接到文件a.txt的后面。若使用copy命令，则完整的命令为【2】。

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

(4) 假设在当前盘当前目录下有一个可执行程序user.ext。现要执行该程序，并要求在执行过程中将显示输出的结果信息存入当为【4】。

(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】。

(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
　　gd=tmp
　　end function
　　运行后，输出的值是

本文来源：https://shitiku.jxxyjl.com/shitijijin2/27183.html