（11）b） （12）c） （13）c） （14）d）（15）c）
11）假定一个 visual basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应。
用程序，下列正确的操作是（ ）
a）只保存窗体模块文件。
b）分别保存窗体模块、标准模块和工程文件。
c）只保存窗体模块和标准模块文件。
d）只保存工程文件。
12）为了消除窗体上的一个控件，下列正确的操作是（ ）
a）按回车键。
b）按键。c）选择（单击）要清除的控件，然后按键。
d）选择（单击）要清除的控件，然后按回车键。
13）下列叙述中错误的是（ ）
a）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件。
b）当程序运行时，双击一个窗体，则触发该窗体的 dblclick 事件。
c）visual basic 应用程序只能以解释方式执行。
d）事件可以由用户引发，也可以由系统引发。
14）设 a=2，b=3，c=4，d=5，下列表达式的值是（ ）
not a<=c or 4*c=b^2 and b<>a+c
a）-1 b）1 c）true d）false
15）设 a=5，b=10，则执行 c=int((b-a)*rnd+a)+1 后，c 值的范围为（ ）
a）5～10 b）6～9 c）6～10 d）5～9
16）c）（17）a） （18）b） （19）b） （20）a）
16）在窗体上画一个命令按钮，名称为 command1，然后编写下列事件过程：
private sub command1_cilck( )
a$ =software and hardware"
b$ =right(a$, 8)
c$ =mid(a$, 1, 8)
msgbox a$, b$, c$, 1
end sub
运行程序后，单击命令按钮，则在弹出的信息框的标题栏中显示的是（ ）
a）software and hardware b）software
c）hardware d）-1
17）在窗体上有一个命令按钮和一个文本框，其名称分别为 command1 和 text1，把文本框的 text 属性设置为空白，然后编写下列事件过程：
private sub command1_click( )
a=inputbox("enter an integer")
b=inputbox("enter an integer")
end sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显。
示的内容是（ ）
a）108 b）18 c）810 d）出错。
18）在窗体上画两个文本框，其名称分别为 text1 和 text2，然后编写下列程序：
private sub form_load( )show
end sub
private sub text1 change( )
end sub
程序运行后，如果在文本框 text1 中输入 beijingchina，则在文本框 text2 中显示的。
内容是（ ）
a）beijingchina b）china
c）beijing d）beijingc
19）在窗体上画一个列表框和一个命令按钮，其名称分别为 list1 和 command1，然后编。
写下列事件过程：
private sub form_load( )
"iterm 1"
"iterm 2"
"iterm 3"
end sub
private sub command1_click( )
aaaa"end sub
程序运行后，单击命令按钮，其结果为（ ）
a）把字符串"aaaa"添加到列表框中，但位置不能确定。
b）把字符串"aaaa"添加到列表框的最后（即“item 3”的后面）
c）把列表框中原有的最后一项改为"aaaa"
d）把字符串"aaaa"插入到列表框的最前面（即“item 1”的前面）
20）有下列事件过程：
private sub form_click( )
dim x as integer, n as integer
x=1n=0
do while x<28
x=x*3n=n+1
loopprint x,n
end sub
程序运行后，单击窗体，输出结果是（ ）
a）81 4 b）56 3 c）28 1 d）243 5
21）d） （22）a）（23）a） （24）d）（25）c）
21）有下列事件过程：
private sub form_click( )
dim check, counter
check=true
counter=(
dodo while counter<20
counter=counter+1
if counter=10 then
check=false
exit do
end if
looploop until check=false
print counter, check
end sub
程序运行后，单击窗体，输出结果为（ ）
a）15 0 b）20 -1 c）10 true d）10 false
22）有下列事件过程：
private sub form_click( )
dim i as integer, sum as integer
sum=0for i=2 to 10
if i mod 2<>0 and i mod 3=0 then
sum=sum+i
end if
next i
print sum
end sub
程序运行后，单击窗体，输出结果为（ ）
a）12 b）30 c）24 d）18
23）在窗体上画一个名称为 text1 的文本框和一个名称为 command1 的命令按钮，然后编写下列事件过程：
private sub command1_click( )
dim array1(10,10)as integer
dim i as integer, j as integer
for i=1 to 3
for j=2 to 4
array1(i,j)=i+j
next j
next i
end sub
程序运行后，单击命令按钮，在文本框中显示的值是（ ）
a）12 b）13 c）14 d）15
24）在窗体上画一个命令按钮，其名称为 command1，然后编写下列事件过程：
private sub command1_click( )
dim a1(4,4),a2(4,4)
for i=1 to 4
for j=1 to 4
a1(i,j)=i+j
a2(i,j)=a1(i,j)+i+j
next j
next i
print a1(3,3);a2(3,3)
end sub
程序运行后，单击命令按钮，在窗体上输出的是（ ）
a）6 6 b）10 5 c）7 21 d）6 12
25）有下列事件过程：
option base 1
private sub form_click( )
dim arr,sum
sum=0arr=array(1,3,5,7,9,11,13,15,17,19)
for i=1 to 10
if arr(i)/3=arr(i)\3 then
sum=sum+arr(i)
end if
next i
print sum
end sub
程序运行后，单击窗体，输出结果为（ ）
a）25 b）26 c）27 d）28
26）a） （27）d） （28）b） （29）a） （30）c）
26）在窗体上有一个命令按钮，然后编写下列事件过程：
private sub command1_click( )
dim a(5) as string
for i=1 to 5
a(i)=chr(asc("a")+i-1))
next i
for each b in a
print b;
nextend sub
程序运行后，单击命令按钮，输出结果是（ ）
a）abcde b）12345 c）abcde d）出错信息。
27）下列关于函数过程的叙述中，正确的是（ ）
a）如果不指明函数过程参数的类型，则该参数没有数据类型。
b）函数过程的返回值可以有多个。
c）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递。
d）函数过程形参的类型与函数返回值的类型没有关系。
28）函数过程 f1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。下列。
能正确实现上述功能的**是（ ）
a）function f1(b as integer) b）function f1(b as integer)
if b mod 2=0 thenif b mod 2=0 then
return0f1=0
elseelse
return1f1=1
end ifend if
end functionend function
c）function f1(b as intger) d）function f1(b as integer)
if b mod 2=0 thenif b mod 2<>0 then
f1=1return 0
elseelse
f1=0return 1
VB历年试题08年9月
11 在设计窗体时双击窗体的任何地方，可以打开的窗口是 a 窗口 b 属性窗口。c 工程资源管理器窗口 d 工具箱窗口。12 若变量 a 未事先定义而直接使用 例如 a 0 则变量 a 的类型是 二级 visual basic 语言程序设计试卷第 3 页 共 10 页 运行程序时，单击 comman...
05机务处2023年月度计划表 9月
常州市公共交通集团公司部门工作月度计划表。部门 机务处2012年9月序。工作内容号。实施标准。责任人备注。九月份一级维护2704辆，其中一 560辆，三 775辆，五 907辆，巴 454辆，旅 8辆。二级维护592辆，其中一 136辆，三 176辆，五 168辆，巴 103辆，旅 9辆。车辆月检2...
05年4月
二级 visual basic 语言程序设计试卷第 3 页 共 10 页 a b 200c d 17 在窗体上画一个文本框，然后编写下列事件过程 private sub form click x inputbox 请输入一个整数 print x end sub 程序运行时，在文本框中输入 456，然...