第二部分 visual basic 程序设计。
一、 选择题（用答题卡答题，答案依次填在21～30答题号内）
21．可以设置为vb程序运行启动对象的是 21 。
工程文件任意一个窗体。
窗体模块中的main()过程标准模块中的main()过程。
abcd. ②
22．若要引用列表框list1中最后一个数据项的内容，应使用 22 。
a． -1)
c．23．以下关于变量的说法中，错误的是 23 。
a. 在不同窗体中用public语句定义的变量可以同名。
b. 在过程中用dim语句声明的变量都是局部变量，过程运行结束它们将不再存在。
c. 静态变量在过程结束时其值仍保留，以供再次调用该过程时使用，因此它不是局部变量。
d. 在窗体通用声明部分声明的模块级变量，可以在本窗体内的所有过程中使用。
24．对应数学表达式的vb表达式是 24 。
a．sin(30 * 3.14159 / 180) +abs(x ^ 2 + sqr(y)) exp(x) -log(n) /log(10)
b．sin(30) +abs(x ^ 2 + sqr(y)) e ^ x - log(n) /log(10)
c．sin(30 * 3.14159 / 180) +abs(x ^ 2 + sqr(y)) exp(x) -log(n)
d．sin(30) +abs(x ^ 2 + sqr(y)) e ^ x - log(n)
25．以下关于if分支结构语句的说法中，正确的是 25 。
a．有if一定有与之配对的elseb．有if一定有与之配对的elseif
c．有if一定有与之配对的end ifd．有end if一定有与之配对的if
26．设有字符串变量s，其值为"abcd"，可将s的值替换为"aabcd"的语句是 26 。
a. left(s, 1) =aa"
b. mid(s, 1, 2) =aa"
c. s = aa" &mid(s, instr(s, "a"))
d. s = aa" &right(s, len(s) -instr(s, "a"))
27．下列表达式中，不能将一个4位整数n的百位数字提取出来的是 27 。
a．n \ 100 mod 10b．mid(cstr(n), 2, 1)
c．(n mod 1000) \100d．n \ 10 mod 100
28．下列有关转换函数的说法中，正确的是 28 。
a. int和cint函数的区别仅在于结果的数据类型不同。
b. int和fix函数将非整数数据转换成整数，转换后的结果类型是long
c. cint 函数的功能是将其他类型的数据转换成integer类型。
d. 在处理负数时，int和fix函数的结果是相同的。
29．以下有关数组的说法中，错误的是 29 。
a．用redim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量。
b．定义数组时，数组维界值可以不是整数。
c．定义数组时，数组每一维的上界值必须大于下界值。
d．定义数组时，数组维界值可以是负数。
30．以下有关自定义函数过程的说法中，错误的是 30 。
a．在自定义函数过程中可以多次为函数名赋值。
b．如果在函数体内没有给函数名赋值，则该函数无返回值。
c．函数定义时如果没有说明函数名的类型，则该函数的返回值为变体类型。
d．若用call语句调用函数，则将丢弃函数的返回值。
二、 填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）
1. 执行下面程序，单击窗体后，窗体上显示的第一行内容是 （1） ，第三行内容是。
（2） ，最后一行内容是 （3） 。
option explicit
private sub form_click()
dim x as integer, y as integer, sum as integer
for x = 1 to 3
for y = 1 to 2
sum = sum + y
if sum > 2 then exit for
next y
print sum; x
next x
print x; y
end sub
2. 执行下面程序，单击command1按钮，则窗体上显示的a(1, 3)的值为 （4） ，a(2, 1)的值为 （5） ，a(2, 2)的值为 （6） 。
option explicit
option base 1
private sub command1_click()
dim a(3, 3) as integer, i as integer, j as integer
for i = 1 to 3
for j = 1 to 3
a(i, j) =i * 10 + j
next j
next i
call jh(a)
end sub
private sub jh(x() as integer)
dim i as integer, j as integer, t as integer
for i = 1 to 2
for j = 1 to 4 - i
t = x(i, j)
x(i, j) =x(4 - i, 4 - j)
x(4 - i, 4 - j) =t
next j
next i
for i = 1 to 3
for j = 1 to 3
print x(i, j);
next j
printnext i
printend sub
3. 执行下面程序，单击command1按钮，在text1中输入“12123152”，则在窗体上显示的第一行内容是 （7） ，第二行内容是 （8） ，最后一行内容是 （9） 。
option explicit
option base 1
private sub command1_click()
dim s as string, i as integer, a() as integer
s = for i = 1 to len(s)
redim preserve a(i)
a(i) =val(mid(s, i, 1))
next i
call sub1(a)
end sub
private sub sub1(a() as integer)
dim i as integer, j as integer, k as integer
i = 2do until i >=ubound(a)
k = i - 1
do until a(i - 1) >a(i)
i = i + 1
loopfor j = k to i - 1
print a(j);
next j
printi = i + 1
loopend sub
4. 执行下面程序，单击command1按钮，则在窗体上显示的第一行内容是 （10） ，最后一行内容是 （11） ，共显示了 （12） 行。
option explicit
private sub command1_click()
dim i as integer
for i = 1 to 6 step 2
call sub1(i)
next i
end sub
private sub sub1(a as integer)
static b as integer
b = b + 1
if (a + b) mod 4 = 0 then
print a; b
elsecall sub1(a + 1)
end if
end sub
5. 执行下面程序，单击command1按钮，则在窗体上显示的第一行内容是 （13） ，第二行内容是 （14） ，最后一行内容是 （15） 。
option explicit
private sub command1_click()
dim i as integer
for i = 4 to 7
print gray_code(i)
next i
end sub
private function gray_code(byval x as integer) as string
dim i as integer, d2b as string
dod2b = x mod 2 & d2b
x = x \ 2
loop until x = 0
d2b = right("000" &d2b, 4)
for i = 4 to 2 step -1
if mid(d2b, i, 1) =mid(d2b, i - 1, 1) then
mid(d2b, i, 1) =0"
2023年 春 VB笔试试卷
第一部分计算机基础知识。1 下面关于通信技术的叙述中，错误的是 1 a 任何一个通信系统都有信源 信道和信宿这三个基本组成部分。b 为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术。c 为了降低传输信息的成本，在通信中广泛采用多路复用技术。d 数字通信系统的一个主要性能参数是信道带宽，它...
2023年 秋 笔试试卷
第一部分计算机基础知识。1 信息技术是用来扩展人们信息器官功能 协助人们进行信息处理的一类技术。在下面关于信息技术的叙述中，错误的是 d a 现代信息技术的主要特征之一是以数字技术和电子技术为基础。b 遥感遥测技术 自动控制技术等均属于现代信息技术。c 微电子技术是信息技术领域的关键技术，它以集成电...
2023年 秋 笔试试卷
第一部分计算机基础知识。1 信息技术是用来扩展人们信息器官功能 协助人们进行信息处理的一类技术。在下面关于信息技术的叙述中，错误的是 d a 现代信息技术的主要特征之一是以数字技术和电子技术为基础。b 遥感遥测技术 自动控制技术等均属于现代信息技术。c 微电子技术是信息技术领域的关键技术，它以集成电...