(3) 以下定义数组或给数组元素赋值的语句中，正确的是
a)dim a as variant
a=array(1,2,3,4,5)
b)dim a(10) as integer
a=array(1,2,3,4,5)
c)dim a%(10)
a(1) ="abcde"
d)dim a(3) ,b(3) as integer
a(0) =0
a(1) =1
a(2) =2
b=a
正确答案: a
(4) 在窗体上画一个名称为list1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为
a) for i=0 to list1.listcount-1
……
next
b) for i=0 to list1.count-1
……
next
c)for i=1 to list.listcount
……
next
d)for i=1 to list1.count
……
next
正确答案: a
(5) 以下case语句中错误的是
a) case 0 to 10
b) case is>10
c) case is>10 and is<50
d) case 3, 5, is>10
正确答案: c
(6) 以下关于图片框控件的说法中，错误的是
a) 可以通过print方法在图片框中输出文本
b) 清空图片框控件中图形的方法之一是加载一个空图形
c) 图片框控件可以作为容器使用
d) 用stretch属性可以自动调整图片框中图形的大小
正确答案: d
(7) 执行语句s=len(mid("visualbasic",1,6) ) 后，s的值是
a) visual
b) basic
c) 6
d) 11
正确答案: c
(8) 以下叙述中错误的是
a) 下拉式菜单和弹出式菜单都用菜单编辑器建立
b) 在多窗体程序中，每个窗体都可以建立自己的菜单系统
c) 除分隔线外，所有菜单项都能接收click事件
d) 如果把一个菜单项的enabled属性设置为false，则该菜单项不可见
正确答案: d
(9) 在窗体上画一个命令按钮，其名称mand1,然后编写如下事件过程：
private submand1_click()
a=12345
print format＄(a,"000.00")
end sub
程序运行后，单击命令按钮，窗体上显示的是
a) 123.45
b) 12345.00
c) 12345
d) 00123.45
正确答案: b
(10) 以下叙述中错误的是
a) 一个工程可以包括多种类型的文件
b) visual basic应用程序既能以编译方式执行，也能以解释方式执行
c) 程序运行后，在内存中只能驻留一个窗体
d) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
正确答案: c
(11) 以下关于函数过程的叙述中，正确的是
a) 函数过程形参的类型与函数返回值的类型没有关系
b) 在函数过程中，过程的返回值可以有多个
c) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
d) 如果不指明函数过程参数的类型，则该参数没有数据类型
正确答案: a
(12) 以下关于变量作用域的叙述中，正确的是
a) 窗体中凡被声明为private的变量只能在某个指定的过程中使用
b) 全局变量必须在标准模块中声明
c) 模块级变量只能用private关键字声明
d) static类型变量的作用域是它所在的窗体或模块文件
正确答案: b
(13) 确定一个控件在窗体上的位置的属性是
a) width和height
b) width或height
c) top和left
d) top或left
正确答案: c
(14) 在窗体上画一个名称为text1的文本框和一个名称mand1的命令按钮，然后编写如下事件过程：
private submand1_click()
text1.text="visual"
me.text1="basic"
text1="program"
end sub
程序运行后，如果单击命令按钮，则在文本框中显示的是
a) visual
b) basic
c) program
d) 出错
正确答案: c
(15) 以下关系表达式中，其值为false的是
a) "abc">"abc"
b) "the"<>"they"
c) "visual"=ucase("visual")
d) "integer">"int"
正确答案: a
(16) 语句print 5/4*6＼5 mod 2的输出结果是
a) 0
b) 1
c) 2
d) 3
正确答案: b
(17) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为text1、label1mand1,然后编写如下两个事件过程：
private submand1_click()
strtext=inputbox("请输入")
text1.text=strtext
end sub
private sub text1_change()
label1.caption=right(trim(text1.text) ,3)
end sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef,则在标签中显示的内容是
a) 空
b) abcdef
c) abc
d) def
正确答案: d
(18) 在窗体上画一个名称mand1的命令按钮，然后编写如下事件过程：
private submand1_click()
x=-5
if sgn(x) then
y=sgn(x∧2)
else
y=sgn(x)
end if
print y
end sub
程序运行后，单击命令按钮，窗体上显示的是
a) -5
b) 25
c) 1
d) -1
正确答案: c
(19) 一个工程中含有窗体form1、form2和标准模块model1,如果在form1中有语句public x as integer,在model1中有语句public y as integer。则以下叙述中正确的是
a) 变量x、y的作用域相同
b) y的作用域是model1
c) 在form1中可以直接使用x
d) 在form2中可以直接使用x和y
正确答案: c
(20) 在窗体上画一个名称为drive1的驱动器列表框，一个名称为dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
a) drive1_change
b) drive1_click
c) dir1_click
d) dir1_change
正确答案: a
(21) 在窗体上画一个命令按钮(其name属性mand1) ，然后编写如下代码：
option base 1
private submand1_click()
dim a
s=0
a=array(1,2,3,4) ; j=1
for i=4 to 1 step-1
s=s+a(i) *j
j=j*10
next i
print s
end sub
运行上面的程序，单击命令按钮，其输出结果是
a) 4321
b) 1234
c) 34
d) 12
正确答案: b
(22) 在窗体上画一个名称为text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是a) private sub text1_keypress(keyascii as integer)
if keyascii<65 or keyascii>90 then
msgbox"请输入大写字母"
keyascii=0
end if
end sub
b) private sub text1_keydown(keycode as integer, shift as integer)
if keycode<65 or keycode>90 then
msgbox"请输入大写字母"
keycode=0
end if
end sub
c) private sub text1_mousedown(button as integer,_
shift as integer, x as single, y as single)
if asc(text1.text) <65 or asc(text1.text) >90 then
msgbox"请输入大写字母"
end if
end sub
d) private sub text1_change()
if asc(text1.text) >64 and asc(text1.text) <91 then
msgbox"请输入大写字母"
end if
end sub
正确答案: a
(23) 假定在窗体(名称为form1) 的代码窗口中定义如下记录类型：
private type animal
animalname as string *20
acolor as string *10
end type
在窗体上画一个名称mand1的命令按钮，然后编写如下事件过程：
private submand1_click()
dim rec as animal
open "c:＼vbtest.dat"for random as #1 len=len(rec)
rec.animalname="cat"
rec.acolor="white"
put #1,,rec
close #1
end sub
则以下叙述中正确的是
a) 记录类型animal不能在form1中定义，必须在标准模块中定义
b) 如果文件c:＼vbtest.dat不存在，则open命令执行失败
c) 由于put命令中没有指明记录号，因此每次都把记录写在文件的末尾
d) 语句"put #1,,rec"将animal类型的两个数据元素写到文件中
正确答案: d
(24) 在窗体上画一个名称为text1的文本框，一个名称mand1的命令按钮，然后编写如下事件过程和通用过程：
private submand1_click()
n=val(text1.text)
if n＼2=n/2 then
f=f1(n)
else
f=f2(n)
end if
print f;n
end sub
public function f1(byref x)
x=x*x
f1=x+x
end function
public function f2(byval x)
x=x*x