一、选择题：
11） 以下关于visual basic特点的叙述中，错误的是。
a) visual basic是采用事件驱动编程机制的语言。
b) visual basic程序既可以编译运行，也可以解释运行。
c) 构成visual basic程序的多个过程没有固定的执行顺序。
d) visual basic程序不是结构化程序，不具备结构化的三种基本结构。
12） 以下叙述中，错误的是。
a) 一个visual basic应用程序可以含有多个标准模快文件。
b) 一个visual basic工程可以含有多个窗体文件。
c) 标准模快文件可以属于某个指定的窗体文件。
d) 标准模快文件的扩展名是。bas
13) 以下叙述中，错误的是。
a) 在visual basic中，对象所能响应的事件是有系统定义的。
b) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定。
c) visual basic中允许不同对象使用相同名称的方法。
d) visual basic中的对象具有自己的属性和方法。
14） 设有如下语句：
dim a, b as integer
c = visualbasic"
d = ##
以下关于这段**的叙述中错误的是。
a) a被定义为integer类型变量。
b) b被定义为integer类型变量。
c) c中的数据是字符串。
d) d中的数据是日期类。
15）以下能从字符串“visualbasic”中直接取出子字符串“basic”的函数是。
a) leftb) midc) string d) instr
16）设a=4, b=3, c=2,d=1, 下列表达式的值是。
a >b+1 or ca) trueb) 1c) -1d) 0
17）以下可以作为visual basic变量名的是。
a) a#ab) counsta c) 3ad) ?aa
18）设x=4, y=6, 则以下不能在窗体上显示出“a=10”的语句是。
a) print a=x+yb) print "a= "x+y
c) print "a= "str(x+yd) print "a= "x+y
19）假定有如下的命令按钮（名称为command1）事件过程：
private sub command1_click()
x = inputbox("输入：",输入整数")
msgbox "输入的数据是：",输入数据：" x
end sub
程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是。
a) x的值是数值10
b) 输入对话框的标题是“输入整数”
c) 信息框的标题是“输入数据：10”
d) 信息框中显示的是“输入的数据是：”
20） 在窗体上画1个命令(按钮名称为command1)和1个文本框（名称为text1），然后编写如下事件过程：
private sub command1_click()
x = val(
select case x
case 1, 3
y = x * x
case is >=10, is <=10
y = xcase -10 to 10
y = xend select
end sub
程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。
a) 执行y = x * xb) 执行y = x
c) 先执行y = x * x，再执行y = x d) 程序出错。
21） 设有命令command1的单击事件过程，**如下：
private sub command1_click()
dim a(30) as integer
for i = 1 to 30
a(i) =int(rnd * 100)
nextfor each arritem in a
if arritem mod 7 = 0 then print arritem;
if arritem > 90 then exit for
nextend sub
对于该事件过程，以下叙述中错误的是
a) a数组中的数据是30个100以内的整数。
b) 语句for each arritem in a有语法错误。
c) if arritem mod 7 = 0 ……语句的功能是输出数组中能够被7整除的数。
d) if arritem > 90……语句的功能是当数组元素的值》90时退出for循环。
22） 设有命令按钮command1的单击事件过程，**如下：
private sub command1_click()
dim a(3, 3) as integer
for i = 1 to 3
for j = 1 to 3
a(i, j) =i * j + i
next j
next i
sum = 0
for i = 1 to 3
sum = sum + a(i, 4 - i)
next i
print sum
end sub
运行程序，单击命令按钮，输出结果是。
a) 20b) 7c) 16d)17
23）在窗体上画1个名称为command1的命令按钮，然后编写如下事件过程：
private sub command1_click()
a = 0for i = 1 to 2
for j = 1 to 4
if j mod 2 <>0 then
a = a - 1
end if
a = a + 1
next j
next i
print a
end sub
程序运行后，单击命令按钮，输出结果是。
a） 0b） 2c） 3d）4
24） 窗体上有名称为text1、text2的2个文本框，有一个由3个单选按钮构成的控件数组option1，如图1所示，程序运行后，如果单击某个单按钮，则执行text1中的数值与该单选按钮所对应的运算（乘以或100），并将结果显示在text2中，如图2所示。为了实现上述功能，在程序中的问号（？）处应填入的内容是。
private sub option1_click(index as integer)
if <>then
select case ?
case 0
= val(
case 1
= val( *10
case 2
= val( *100
end select
end if
end sub
a) indexb)
c)option1(indexd) option1(index).value
25）在窗体上画1个命令按钮，其名称为command1，然后编写如下程序：
private sub command1_click()
dim a(10) as integer
dim x as integer
for i = 1 to 10
a(i) =8 + i
nextx = 2
print a(f(x) +x)
end sub
function f(x as integer)
x = x + 3
f = xend function
程序运行后，单击命令按钮，输出结果为。
a) 12b) 15c) 17d) 18
26） 以下关于过程的叙述中，错误的是。
a） 事件过程是由某个事件触发而执行的过程。
b） 函数过程的返回值可以有多个。
c） 可以在事件过程中调用通用过程。
d） 不能在事件过程中定义函数过程。
27）在窗体上画3个文本框（名称分别为text1、text2和 text3）和1个命令按钮（名称为command1），外观如图所示。
编写如下程序：
private sub form_load()
end sub
private sub command1_click()
x = val(
y = val(
= f(x, y)
end sub
function f(byval x as integer, byval y as integer)
do while y <>0
tmp = x mod y
x = yy = tmp
loopf = x
end function
运行程序，在text1文本框中输入36，在text2文本框中输入24，然后单击命令按钮，则在text3文本框中显示的内容是。
a）4b）6c） 8d） 12
2019春VB笔试
第二部分 visual basic 程序设计。一 选择题 用答题卡答题，答案依次填在21 30答题号内 21 以下说法中，正确的是 21 a.属性是对象的特征，所有的对象都有相同的属性。b.属性值只能在属性窗口中设置。c.在程序中可以用赋值语句给对象的任何一个属性赋值。d.对象的运行时属性不出现在对...
2019春VB笔试
第二部分 visual basic 程序设计。一 选择题 用答题卡答题，答案依次填在21 30答题号内 21 以下说法中，正确的是 21 a.属性是对象的特征，所有的对象都有相同的属性。b.属性值只能在属性窗口中设置。c.在程序中可以用赋值语句给对象的任何一个属性赋值。d.对象的运行时属性不出现在对...
2019春VB笔试
第二部分 visual basic 程序设计。一 选择题 用答题卡答题，答案依次填在21 30答题号内 21 以下说法中，错误的是 21 a 以。frm为扩展名的文件是窗体模块文件。b 以。bas为扩展名的文件是标准模块文件。c 窗体模块文件包含该窗体及其窗体上相关控件的属性信息。d 标准模块文件由...