(46) 有如下程序
sum=0
for m=1 to 3
if m<=1 then
a=1
elseif m<=2 then
a=2
elseif m<=3 then
a=3
else
a=4
end if
print a;
sum=sum+a
next m
print sum
end
运行后输出的结果是
a) 3 3 3 9 b) 3 2 1 6 c) 1 1 1 3 d) 1 2 3 6
(47) 在图形模式下,点亮坐标为x,y的象素所用的语句是
a) locate x,y
b) preset x,y,5
c) pset(x,y)
d) position x,y
(48) 画一条长度为20个单位的水平直线, 下面四个程序中哪个是正确的
a) screen 2,0 b) screen 1,0
draw (0,0)-(20,0) line (0,0)-(0,20)
end end
c) screen 1,0, d) screen 2,0
line (0,0)-(20,0) draw (0,0)-(0,20)
end end
(49) 有如下程序
a=10:b=10:c=120:d=120
cls
line (a,b)-(c,d),1,b
end
运行后屏幕上显示的是
a) 一个矩形 b) 一条直线
c) 两条直线 d) 屏幕上无图形
(50) 有如下程序
m$="abc"
n$="abc"
k$=lcase$(m$)
j$=ucase$(n$)
print chr$(asc(ks+js))
end
运行后输出的结果是
a) abcabc b) abcabc c) a d) a
二)填空题(每空2分，共40分)
请将每空的正确答案写在答题卡上[1]￣[20]序号的横线上，答在试卷上不得分。
(1) 计算机网络按通信距离来划分,可分为局域网和广域网。因特网属于 [1] 。
-----
(2) 当前盘是c,确保在d盘的根目录下建立一个子目录user的一条dos命令是 [2] 。
-----
(3) 要将当前盘当前目录中所有扩展名为.txt的文件内容显示在屏幕上的dos命令是 [3] 。
-----
(4) dos命令分为内部命令和外部命令,chkdsk命令是 [4] 命令。
-----
(5) 在windows中,为了终止一个应用程序的运行,首先单击该应用程序窗口中的控制菜单框,然后在控制菜单中单击 [5] 命令。
-----
(6) 数学式2cos2y+e(2x)的qbasic表达式为 [6] 。(注：e(2x)中的(2x)为上标）
-----
(7) 执行语句 print-71\9/3 mod(1-2*3^2)的结果为 [7] 。
-----
(8) 有如下程序
a$="1": b$="2"
c=val(a$)+val(b$)
d=val(a$+b$)
print c+d
end
运行后,输出的值是 [8] 。
-----
(9) 四个字符串"abc"、"abcd"、"abcde"及"af"中的最大者为 [9] 。
-----
(10) 以下程序的功能是将字符串"12345"逆序打印出来。请在 [10] 处将程序补充------完整。
declare function rev$(a$)
old$="12345"
print old$
print rev$(old$)
end
function rev$(new$)
b$=mid$(new$, 1, 1)
if b$="" then
rev$=""
else
rev$=rev$(mid$(new$, 2))+ [10]
------
end if
end function
(11) 有如下程序
multi=1
for j=1 to 6
multi=multi*j
next j
print multi+j
end
运行后的输出是 [11] 。
------
(12) 下面的程序是用选择交换法将n(n小于等于10)个数排为降序，请在 [12] 、[13] 、 [14] 处将程序补充完整。
------ ------
option base 1
input "enter a number: "; n
dim a(n)
print "data before sorting:"
for i=1 to n
read a(i): print a(i);
next i
data 96,123,-7,39,0.14,4,7,22,42
print
for i= [12]
------
for j= [13]
------
if a(k)<a(j) then [14]
------
next j
if k<>i then swap a(k),a(i)
next i
print "data after sorting:"
for i=1 to n
print a(i)
next i
print
end
(13) 有如下程序
declare sub ab(x%, y%)
call ab(7.7, 3.3)
end
sub ab(x%, y%)
x%=x%*2: y%=y%*2
print x%; y%
end sub
运行后的输出结果是 [15] 。
------
(14) 有如下程序
a$="abcd"
for m=1 to 4
print tab(5-m); [16]
------
next m
end
运行后的输出结果如下
d
cd
bcd
abcd
但程序不完整,请在 [16] 处补充使之完整。
------
(15) 有如下程序
declare sub p(k,s)
sum=0
for j=1 to 3
call p(j,s)
sum=sum+5
next j
print sum
end
sub p(k,s)
s=1
for m=1 to k
s=s*m
next m
end sub
运行后输出sum的值是 [17] 。
------
(16) 有如下程序
abc$="the peoples democratic republic of yemen"
m=len(abc$)
for j=1 to m
b$=mid$(abc$, j, 1)
if b$="e" or b$="o" then x=x+1
next j
print x
end
运行后输出x的值是 [18] 。
------
(17) 下面程序的功能是产生100个不同的在-300到300(含-300和300)之间的随机整数,但程序不完整,请在 [19] 和 [20] 处把程序补充完整。
------ ------
dim b(100)
for j=1 to 100
do
if rnd<.5 then a=-1 else a=1
b(j)=[19]* int(301 * rnd)
flag=1
for k=1 to [20]
if b(j)=b(k) then flag=0
next k
loop until flag=1
print b(j);
next j
end