(11) visual basic程序设计采用的编程机制是
a) 可视化
b) 面向对象
c) 事件驱动
d) 过程结构化
正确答案: c
(12) visual basic 6.0分为3种版本，不属于这3种版本的是
a) 学习版
b) 专业版
c) 企业版
d) 业余版
正确答案: d
(13) 确定窗体控件启动位置的属性是
a) width和height
b) width或height
c) startuppositon
d) top和left
正确答案: c
(14) 新建一个窗体，其borderstyle属性设置为fixed single，但运行时却没有最大化和最小化按钮，可能的原因是
a) borderstyle的值设为fixed.single，此项设置值的作用即禁止最大化和最小化按钮
b) 窗体的maxbutton和minbutton值设为false
c) 正常情况下新建的窗体都没有最大化和最小化按钮
d) 该窗体可用鼠标拖动边框的方法改变窗体的大小
正确答案: b
(15) 新建一个列表框，要实现对列表项可以复选，应设置的属性是
a) scrollbars
b) multiselect
c) datafield
d) stretch
正确答案: b
(16) 下列叙述中，正确的是
a) 控件数组的每一个成员的caption属性值都必须相同
b) 控件数组的每一个成员的index属性值都必须不相同
c) 控件数组的每一个成员都执行不同的事件过程
d) 对已经建立的多个类型相同的控件，这些控件不能组成控件数组
正确答案: b
(17) 可以在常量的后面加上类型说明符以显示常量的类型，可以表示整型常量的是
a) ％
b) ＃
c) ！
d) $
正确答案: a
(18) 在visual basic中，下列两个变量名相同的是
a) japan和ja_pan
b) english和english
c) english和engl
d) china和chin
正确答案: b
(19) 表达式(7 ＼ 2 + 1) * (8 ＼ 2 + 2) 的值为
a) 4.58
b) 5.69
c) 24
d) 22
正确答案: c
(20) 表达式x=sqr(a^2-5) +sqr(b^2-5) 的类型是
a) 算术表达式
b) 逻辑表达式
c) 关系表达式
d) 字符表达式
正确答案: c
(21) 与list1.text属性值相同的是
a) list1.listcount
b) list1.list(listcount-1)
c) list1.listindex
d) list1.list(list.listindex)
正确答案: d
(22) 当把框架的何属性设置为false时，其标题会变灰，框架中所有的对象均被屏蔽？
a) name
b) enabled
c) caption
d) visible
正确答案: b
(23) 设执行以下程序段时依次输入2，4，6，执行结果为
dim a(4) as integer
dim b(4) as integer
for k=0 to 2
a(k + 1) =val(inputbox("enter data:") )
b(3 - k) =a(k + 1)
next k
print b(k)
a) 2
b) 4
c) 6
d) 0
正确答案: a
(24) 编写如下事件过程：
private sub form_mousedown(button as integer, shift as integer, _
x as single, y as single)
if shift＝6 and button＝2 then
print "pc"
end if
end sub
程序运行后，为了在窗体上输出"pc"，应执行的操作为
a) 同时按下shift键和鼠标左键
b) 同时按下ctrl，alt键和鼠标右键
c) 同时按下shift键和鼠标右键
d) 同时按下ctrl，alt键和鼠标左键
正确答案: b
(25) 如果在窗体上添加一个通用对话框控件dbt，那么语句"dbt.action=4"的作用是
a) 显示"打开文件" 对话框
b) 显示"保存文件"对话框
c) 显示"字体"对话框
d) 显示"打印"对话框
正确答案: c
(26) 下列说明中，不属于随机文件特点的是
a) 可以随意读取随机文件中任一记录的数据
b) 随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写
c) 随机文件的操作是以记录为单位进行的
d) 随机文件的读、写操作语句与顺序文件的读写操作语句一样
正确答案: d
(27) 执行下面的程序后，输出的结果是
x=1
for j=1 to 4
x=x - 1: y=0
for k=1 to 4
x=x + 1: y=y + 1
next k
next j
print x; y
a) 1 4
b) 13 4
c) 12 8
d) 20 6
正确答案: b
(28) 有如下程序段，该程序段执行完后，执行循环的次数是
total=0
counter=1
do
print counter
total=total + counter
print total
counter=counter + 1
if total > 10 then
exit do
end if
loop while counter <=10
a) 5
b) 10
c) 15
d) 20
正确答案: a
(29) 在窗体上画一个命令按钮，然后编写如下事件过程：
private submand _click()
s=0
do
s=(s + 1) (s + 2)
number=number + 1
loop until s >=30
print number, s
end sub
程序运行后，输出的结果是
a) 2 3
b) 3 182
c) 5 12
d) 10 20
正确答案: b
(30) 有如下程序：
private submand1_click()
a$="a worker is here"
x=len(a$)
for i=1 to x - 1
b$=mid$(a$, i, 3)
if b$="wor" then s=s + 1
next
print s
end sub
单击命令按钮，程序运行结果为
a) 1
b) 2
c) 3
d) 5
正确答案: a
(31) 单击命令按钮时，下列程序的执行结果是
private submand1_click()
bt 4
end sub
private sub bt(x as integer)
x=x * 2 + 1
if x < 6 then
call bt(x)
end if
x=x * 2
print x;
end sub
a) 15
b) 16
c) 17
d) 18
正确答案: d
(32) 单击窗体时，下列程序的执行结果是
private sub invert(byval xstr as string, ystr as string)
dim tempstr as string
dim i as integer
i=len(xstr)
do while i >=1
tempstr=tempstr + mid(xstr, i, 1)
i=i - 1
loop
ystr=tempstr
end sub
private sub form_click()
dim s1 as string, s2 as string
s1="abcdef"
invert s1, s2
print s2
end sub
a) abcdef
b) afbecd
c) fedcba
d) defabc
正确答案: c
(33) 在窗体上画一个命令按钮，然后编写下列程序：
private submand1_click()
dim a as single, b as single
a=6: b=2
rc a, b
print a, b
end sub
sub rc(x as single, y as single)
i=x
x=i / y
y=i mod y
end sub
a) 4 3
b) 1 1
c) 3 0
d) 2 6
正确答案: c
(34) 有如下事件过程：
private submand1_click()
dim m as integer, n as integer
m=2: n=1
print "m="; m; "n="; n
call tod(m, n)
print "m="; m; "n="; n
end sub
sub tod(x, y)
x=x ^ 2
y=y ^ 3
end sub
程序运行后，输出的结果为
a) m＝2，n＝1
m＝1，n＝2
b) m＝2，n＝1
m＝4，n＝1
c) m＝1，n＝2
m＝1，n＝4
d) m＝1，n＝2
m＝2，n＝4
考生答案: 正确答案: b
(35) 有如下事件过程：