第二部分 visual basic 程序设计。
一、 选择题（用答题卡答题，答案依次填在21～30答题号内）
21．以下说法中，错误的是 21 。
a．以。frm为扩展名的文件是窗体模块文件。
b．以。bas为扩展名的文件是标准模块文件。
c．窗体模块文件包含该窗体及其窗体上相关控件的属性信息。
d．标准模块文件由事件过程、通用过程等内容组成。
22．下列语句中，错误的是 22 。
a． =hellob．text1. caption = hello"
c． =hellod． =hello"
23．在一个控件数组中用 23 属性标识不同的控件数组元素。
a．tabindexb．indexc．captiond．left
24．在select case x结构语句中（x为integer类型），能正确描述5≤x≤10的case语句是 24 。
a．case is >=5, is <=10b．case 5 <=x <=10
c．case 5<= x, x <=10d．case 5 to 10
25．分别执行以下语句，输出结果为true的是 25 。
a．print cint(4.5) >int(4.5b．print cint(-4.5) >fix(-4.5)
c．print cint(-4.5) >int(-4.5d．print cint(4.5) >fix(4.5)
26．数学表达式对应的vb表达式是 26 。
a．sqr (x + y) -sin(abs(y ^ 2 * x) /x - y))
b．sqr (x + y) -sin(abs(y ^ 2 * x) /x - y)
c．sqr (x + y) -sin(|y ^ 2 * x| /x - y))
d．sqr (x + y) -sin(|y ^ 2 * x| /x - y)
27．以下关于变量的说法中，正确的是 27 。
a．同一个模块中的模块级变量不能和局部变量同名。
b．同一模块的不同过程中的变量名不能相同。
c．不同模块中的变量名不能相同。
d．不同模块中的全局变量名可以相同。
28. 在窗体的通用声明处有语句dim a() as single，以下重新定义数组的语句中，正确的是 28 。
a．redim a(3,3) :redim a(3,4) as double b．redim a(3,3) :redim preserve a(4,4)
c．redim a(3) :redim a(3,3) as double d．redim a(3,3) :redim preserve a(3,4)
29．以下有关自定义函数过程的说法中，错误的是 29 。
a．在自定义函数过程中可以多次为函数名赋值。
b．如果在函数体内没有给函数名赋值，则该函数无返回值。
c．函数名的命名规则与变量名的命名规则相同。
d．函数定义时如果没有说明函数名的类型，则为变体类型。
30．设x为字符型变量，n为整型变量，以下关于mid函数的说法中，错误的是 30 。
a．mid(x, n)表示从字符串x的第n个位置开始向右取所有字符。
b．若x = xyz "，执行语句mid(x, 1, 2) =ab"后，x的值为"abz"
c．mid(x, n, 1)的取值与left(x, n)的取值相同。
d．使用mid函数可提取字符串中指定位置、指定个数的字符。
二、 填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）
1．执行下面程序，单击命令按钮command1后，a(2, 3)的值为 （1） ，a(3, 4)的值为 （2） ，a(5, 4)的值为 （3） 。
option explicit
private sub command1_click()
dim a(5, 5) as integer, i as integer, j as integer
for i = 1 to 5
for j = 1 to 5
if i = 1 or j = 1 then
a(i, j) =1
elsea(i, j) =a(i - 1, j) +a(i, j - 1)
end if
print a(i, j);
next j
printnext i
end sub
2．执行下面程序，单击命令按钮cmd1后输出的fun函数值是 （4） ，a的值是 （5） ，b的值是 （6） 。
option explicit
private sub cmd1_click()
dim a as integer, b as integer
a = 8b = 12
print fun(a, b); a; b
end sub
private function fun(byval a as integer, b as integer) as integer
a = a mod 5
b = b \ 5
fun = a + b
end function
3．执行下面程序，单击命令按钮cmd1后，a(2)的值是 （7） ，a(3)的值是 （8） ，a(5)的值是 （9） 。
option explicit
option base 1
private sub cmd1_click()
dim a() as integer, i as integer, n as integer
dim k as integer
n = 8redim a(n)
for i = 1 to n
a(i) =2 * i - 1
next i
k = 2do
for i = ubound(a) to 1 step -1
if i mod a(k) =0 then
call delete(a, i)
end if
next i
k = k + 1
loop until a(k) >ubound(a)
for i = 1 to ubound(a)
text1 = text1 & str(a(i))
if i mod 5 = 0 then text1 = text1 & vbcrlf
next i
end sub
private sub delete(a() as integer, i as integer)
dim k as integer
if i <>ubound(a) then
for k = i + 1 to ubound(a)
a(k - 1) =a(k)
next k
end if
redim preserve a(ubound(a) -1)
end sub
4．执行下面程序，单击命令按钮cmdrun后，窗体上显示的第一行内容是 （10） ，第二行内容是 （11） ，最后一行内容是 （12） 。
option explicit
private sub cmdrun_click()
dim n as integer
n = 10
print f1(n)
end sub
private function f1(byval n as integer) as integer
static x as integer
if n > 6 then
f1 = f1(n - 2) +n
elsef1 = n + x + 1
end if
x = 2 * x + 1
print f1, x
end function
5．执行下面程序，单击命令按钮cmd1后，窗体上显示的第一行内容是 （13） ，第二行内容是 （14） ；最后一行内容是 （15） 。
option explicit
private sub cmd1_click()
dim i as integer, c as integer, s as string, t as string * 1
dim a() as string, s1 as string, jg as integer
s = 43x17z23y"
for i = 1 to len(s)
t = mid(s, i, 1)
s1 = s1 & t
if t >=x" and t <=z" then
c = c + 1
redim preserve a(c)
a(c) =s1
s1 = end if
next i
call sub1(a, jg)
print jg
end sub
private sub sub1(a() as string, gj as integer)
2019春VB笔试
第二部分 visual basic 程序设计。一 选择题 用答题卡答题，答案依次填在21 30答题号内 21 以下说法中，正确的是 21 a.属性是对象的特征，所有的对象都有相同的属性。b.属性值只能在属性窗口中设置。c.在程序中可以用赋值语句给对象的任何一个属性赋值。d.对象的运行时属性不出现在对...
2019春VB笔试
第二部分 visual basic 程序设计。一 选择题 用答题卡答题，答案依次填在21 30答题号内 21 以下说法中，正确的是 21 a.属性是对象的特征，所有的对象都有相同的属性。b.属性值只能在属性窗口中设置。c.在程序中可以用赋值语句给对象的任何一个属性赋值。d.对象的运行时属性不出现在对...
2023年 春 VB笔试试卷
第一部分计算机基础知识。1 下面关于通信技术的叙述中，错误的是 1 a 任何一个通信系统都有信源 信道和信宿这三个基本组成部分。b 为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术。c 为了降低传输信息的成本，在通信中广泛采用多路复用技术。d 数字通信系统的一个主要性能参数是信道带宽，它...