第二部分 visual basic 程序设计。
一、 选择题（用答题卡答题，答案依次填在21～30答题号内）
21．以下说法中，正确的是 21 。
a. 属性是对象的特征，所有的对象都有相同的属性。
b. 属性值只能在属性窗口中设置。
c. 在程序中可以用赋值语句给对象的任何一个属性赋值。
d. 对象的运行时属性不出现在对象属性窗口中。
22．下面4个语句中，错误的是 22 。
a．n = inputbox("输入n：",5b．inputbox ("输入n：",5)
c．msgbox "请回答d．k = msgbox("请回答")
23．若设x=1，y=2，则不能在窗体上显示出“a= 3”的语句是 23 。
a．print a = x + yb．print "a=";x + y
c．print "a=" str(x + yd．print "a= "x + y
24．表达式instr(4, "abcabca", c") int(2.5)的值为 24 。
a. 7b. 8c. 5d. 9
25．以下有关数组的说法中，错误的是 25 。
a. 用redim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量。
b. 用redim语句重新定义动态数组时，不能改变已经说明过的数组的数据类型。
c. 使用redim语句一定可以改变动态数组的上下界。
d. 定义数组时，数组维界值可以不是整数。
26．以下有关过程的说法中，错误的是 26 。
a．不论在function过程中是否给函数名赋过值，都会返回一个值。
b．不能在function与sub过程内部，再定义function或sub过程。
c．function过程与sub过程，都可以是无参过程。
d．过程名可以和主调过程的局部变量同名。
27．下列关于菜单的说法中，错误的是 27 。
a. 除了click事件之外，菜单项不能响应其他事件。
b. 菜单的名称项（name属性）不可缺省。
c. 只有当**窗口为当前活动窗口时，才能打开菜单编辑器。
d. 菜单项的快捷键不能任意设置。
28. 设a=1，b=2，c=3，逻辑表达式a < b and not c > b xor c < a的值是 28 。
a. falseb. -1c. trued. 1
29．在窗体form1中用“public sub fun(x as integer, y as single)”定义过程fun，在窗体form2的某事件过程中定义了变量i和j均为integer，若要在此过程中调用form1中的fun过程，则下列语句中正确的是 29 。
a．call fun(i, jb．call j)
c．fun i, (jd． i, (j)
30．以下有关文件操作的说法中，正确的是 30 。
a．在某过程中用open 语句打开的文件，只能在这个过程中使用。
b．不能用output、append 方式打开一个不存在的顺序文件。
c．在input方式下，可以使用不同的文件号同时打开同一个文件。
d．在不同的过程中，可以同时用同一个文件号打开不同的文件。
二、 填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）
1．执行下列程序，单击按钮command1，窗体上显示的第一行内容是 （1） ，第二行内容是。
（2） ，第三行内容是 （3） 。
option explicit
private sub command1_click()
dim a as integer, b as integer
a = 4b = 3
do until a > 10
b = b / 2
do until b > 10
a = a + b) \2 + b
b = b + 5
print a, b
loopa = a - 3
loopend sub
2．执行下面程序，当单击cmd1时，在窗体上显示的第一行内容是 （4） ，第二行的内容是。
（5） ，第四行的内容是 （6） 。
option explicit
private sub cmd1_click()
dim a as integer, b as integer
a = 1b = 2
print fun(2 * b, fun(a, (b)))
print a; b
end sub
private function fun(x as integer, y as integer) as integer
x = x + 2
y = x - y + 3
fun = x + y
print fun
end function
3．执行下面的程序，单击cmdrun后，数组元素a(1, 2)的值是 （7） ，a(2, 1)的值是。
（8） ，a(3, 2)的值是 （9） 。
option explicit
option base 1
private sub cmdrun_click()
dim a(3, 3) as integer, i as integer, j as integer, k as integer, n as integer
n = 3i = 1 : j = n
a(i, j) =1
for k = 2 to n * n
if i + 1 > n then
i = n - j + 2 : j = 1
elseif i + 1 <=n and j + 1 > n then
j = j – i : i = 1
elsei = i + 1 : j = j + 1
end if
a(i, j) =k
next k
for i = 1 to n
for j = 1 to n
print a(i, j);
next j
printnext i
end sub
4．运行程序，在文本框text1中输入用空格分隔的4位二进制数和0110。单击“处理”按钮，在多行文本框text2中第一行显示 （10） ，第二行显示 （11） ，第三行显示。
private sub cmd1_click()
dim s(3) as string, n as integer
dim i as integer, k as integer
k = 1for i = 1 to 3
s(i) =mid(text1, k, 4)
k = k + 5
call transform(n, s(i))
text2 = text2 & n & vbcrlf
next i
end sub
private sub transform(n as integer, s as string)
dim k as integer, i as integer, l as integer
l = len(s)
if val(mid(s, 1, 1)) 1 then
n = 2 ^ l - 1))
elsen = 0
end if
for i = 2 to l
k = mid(s, i, 1)
n = n + k * 2 ^ l - i)
next i
end sub
5．执行下列程序，单击cmdrun按钮，则窗体上显示的第一行是 （13） ，第二行是 （14） ，最后一行是 （15） 。
option explicit
private sub cmdrun_click()
dim n as integer
for n = 4 to 7
if fun1(n, sqr(n)) then
print n; "ss"
elseprint n; "hs"
end if
next n
end sub
private function fun1(n as integer, i as integer) as boolean
if i = 1 then
fun1 = true
elseif n mod i <>0 then
fun1 = fun1(n, i - 1)
elsefun1 = false
end if
end function
6．下面程序的功能是：求s的值。
（x>1）
计算到第k项的值小于等于10-6为止。请完善本程序。
option explicit
private sub cmdsum_click()
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 标准模块文件由...
2023年 春 VB笔试试卷
第一部分计算机基础知识。1 下面关于通信技术的叙述中，错误的是 1 a 任何一个通信系统都有信源 信道和信宿这三个基本组成部分。b 为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术。c 为了降低传输信息的成本，在通信中广泛采用多路复用技术。d 数字通信系统的一个主要性能参数是信道带宽，它...