2004年9月二级VB技术笔试试卷及答案(1)
(14) 表达式 5 mod 3+3\5*2的值是
a) 0 b) 2 c) 4 d) 6
(15) 设x=4,y=8,z=7，以下表达式的值是
x z) or z
a) 1 b) -1 c) true d) false
(16) 在窗体上画一个名称mand1的命令按钮，然后编写如下事件过程：
private submand1_click()
a$="visualbasic"
print string(3,a$)
end sub
程序运行后，单击命令按钮，在窗体上显示的内容是
a) vvv b) vis c) sic d) 11
(17) 设有如下程序段：
x=2
for i=1 to 10 step 2
x=x+i
next
运行以上程序后，x的值是
a) 26 b) 27 c) 38 d) 57
(18) 以下叙述中错误的是
a) 在keypress事件过程中不能识别键盘的按下与释放
b) 在keypress事件过程中不能识别回车键
c) 在keydown和keyup事件过程中,将键盘输入的"a"和"a"视作相同的字母
d) 在keydown和keyup事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
(19) 执行如下两条语句，窗体上显示的是
a=9.8596
print format(a,"$00,00.00")
a) 0,009.86 b) $9.86 c) 9.86 d) $0,009.86
(20) 在窗体上画一个名称manddialog1的通用对话框，一个名称mand1的命令按钮。然后编写如下事件过程：
private submand1_click()
mondialog1.filename =""
mondialog1.filter="all file|*.*|(*.doc)|*.doc|(*.txt)|*.txt"
mondialog1.filterindex=2
mondialog1.dialogtitle="vbtest"
mondialog1.action=1
end sub
对于这个程序，以下叙述中错误的是
a) 该对话框被设置为“打开”对话框
b) 在该对话框中指定的默认文件名为空
c) 该对话框的标题为vbtest |]bqao XJ [ it认证全国计算机等级考试 ] |]bqao XJ
d) 在该对话框中指定的默认文件类型为文本文件(*.txt)
www.59wj.com
end if
next i
print sum
end sub
程序运行后，单击窗体，输出结果为
a) 13 b) 14 c) 27 d) 15
(26) 在窗体上画一个名称为file1的文件列表框，并编写如下程序：
private sub file1_dblclick()
x=shell(file1.filename,1)
end sub
以下关于该程序的叙述中，错误的是
a) x没有实际作用，因此可以将该语句写为：call shell(file1,filename,1)
b) 双击文件列表框中的文件，将触发该事件过程
c) 要执行的文件的名字通过file1.filename指定
d) file1中显示的是当前 驱动 器、当前目录下的文件
(27) 在窗体上画一个名称为label1、标题为“visualbasic考试”的标签，两个名称分别mand1mand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为timer1的计时器控件，并把其interval属性设置为500，如图所示。
编写如下程序：
private sub form_load()
timer1.enabled=false
end sub
private submand1_click()
timer1.enabled=true
end sub
private submand2_click()
timer1.enabled=false
end sub
private sub timer1_timer()
if label1.left
label1.left = label1.left + 20
else
label1.left=0
end if
end sub
程序运行后单击“开始”按钮，标签在窗体中移动。
对于这个程序，以下叙述中错误的是
a) 标签的移动方向为自右向左
b) 单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
c) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动
d) 标签按指定的时间间隔移动
(28) 执行以下程序段 it认证全国计算机等级考试
a$="abbacddcba"
for i=6 to 2 step -2
x=mid(a,i,i)
y=left(a,i)
z=right(a,i)
z=ucase(x %26 y %26 z)
next i
print z
输出结果为
a) aba b) bbabba c) abbaba d) aabaab
(29) 在窗体上画一个名称mand1的命令按钮，然后编写如下程序：
option base 1
private submand1_click()
dim a as variant
a=array(1,2,3,4,5)
sum=0
for i=1 to 5
sum = sum+a(i)
next i
x=sum/5
for i =1 to 5
if a(i)>x then print a(i);
next i
end sub
程序运行后，单击命令按钮，在窗体上显示的内容是
a) 1 2 b) 1 2 3 c) 3 4 5 d) 4 5
(30) 假定一个工程由一个窗体文件form1和两个标准模块文件model1及model2组成。
model1代码如下：
public x as integer
public y as integer
sub s1()
x =1
s2
end sub
sub s2()
y=10
form1.show
end show
model2的代码如下：
sub main()
�]7?;e[ it认证全国计算机等级考试 )�]7?;e
s1
end sub
其中sub main被设置为启动过程。程序运行后，各模块的执行顺序是
a) form1→model1→model2 b) model1→model2→form1
c) model2→model1→form1 d) model2→form1→model1
www.59wj.com
if r = then
n1 = n1 + 1
else
n2 = n2 + 1
end if
next
text2.text = n1
text3.text = n2
end sub
(5) 阅读程序：
option base 1
private sub form_click()
dim a(3) as integer
print "输入的数据是：";
for i = 1 to 3
a(i)=inputbox("输入数据")
print a(i);
next
print
if a(1)
t = a(1)
a(1) = a(2)
a(2) =
end if
if a(2)>a(3) then
m = a(2)
elseif a(1)>a(3) then
m =
else
m =
end if
print "中间数是：";m
end sub
程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
(6) 在窗体上画一个名称为mand1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为label1的控件数组;名称为label2的标签用于显示计算结果，其caption属性的初始值为空；标签label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在label2。请填空。
private submand1_click()
sum = 0
for i = 0 to 4
sum = sum +
next
= sum
end sub
(7) 在窗体上画两个名称分别mand1mand2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。
option base 1
dim a(3,2) as integer
private submand1_click()
for i = 1 to 3
for j = 1 to 2
= i + j
next j
next i
end sub
private submand2_click()
for j = 1 to 3
for i = 1 to 2
s = s +
next i
next j
text1.text =
end sub 本文共4页：
www.59wj.com
label2.caption
a(i,j)
a(j,i)
s
如果觉得
《2004年9月二级VB技术笔试试卷及答案(1)》计算机二级考试,计算机二级考试真题,国家计算机二级考试,计算机二级考试试题,计算机二级考试大纲不错，可以推荐给好友哦。