2023年（春）二级考试笔试卷（vb）
第二部分 visual basic 程序设计
一、选择题。
21．在vb中，下列关于控件的属性或方法中，搭配错误的有___个。
a. 0 b. 1 c. 2 d. 3
22.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是___
c. 23.下面___语句，可以将列表框list1中的当前选定的列表项的值替换成”abc”。
d.前三项均可。
24．函数cint(-3.5),int(-3,5),fix(-3,5)的值分别是___
a.-3 ,-4 , 3 b.-4 , 4 ,-4 c.-3 , 4 , 4 d.-4, -3 , 3
25.设整形变量a、b 的当前取值分别为200与20，以下赋值与句中不能正确执行的是___
text1 = a*a/b
c. text1 = 200”*a/b d. text1 = a & b & a
26.对正实数x 的第四位小数四舍五入的vb表达式是___
a．0.001*int(x+0.005) b.0.001*(1000*x+0.5)
c.0.001*int(1000*x+5) d.0.001*int(1000*(x+0.0005))
27.下列有关数组的说法中，不正确的是___
a. 在窗体模块中不可以定义全局数组。
b. 可以使用erase语句释放所有数组所占据的存储空间。
c. 语句dim x(3.6+2)as integer定义了一个维上界是6的一维整型数组。
d. 形参数组的类型可以是定长字符串类型。
28．根据控件有下列___属性，就能判断该控件是否可以和数据控件绑定。
1) recordsource 2)datasource 3)datafield 4)databasename
a. 1) 3) b. 2) 3) c. 3) 4) d. 1) 4)
29.窗体上放置有名为drive1与dir1的驱动器列表框与文件夹列表框，需要在选定驱动器列表框中的列表项时，文件夹列表框中的内容随之改变，正确的语句及语句的位置是___
a. =位于drive1_change()过程。
b. =位于dir1_change()过程。
c. =位于drive1_change()过程。
d. =位于dir1_change()过程。
30.执行下面的程序段，结果是。
x = width/2:y = height/2
+ 2000)-(x,y)
–(x – 2000,y)
a. 在**框中画形如┫的交叉直线。
b. 在**框中画形如┣的交叉直线。
c. 在**框中画形如┳的交叉直线。
d. 在**框中画形如┻的交叉直线。
二、填空题。
1．执行command1_click实践过程后，显示在窗体上的第一行内容是 ，第二行内容是 ，第三行内容是 。
private sub command1_click()
s = tupmoc”:k = len(s)
for i = 1 to k/2
mid(s,i, k-2*(i–1))=mid(s, i+1, k–2*i) &mid(s,i,1)
print s
next i
end sub
2．运行下面的程序，当单击窗体时，窗体上第一行内容是 ，第三行内容是 ，第四行内容是 。
option explicit
dim x as integer, y as integer
private sub form_click()
dim a as integer ,b as integer
a = 5: b = 3
call sub1(a,b)
print a,b
print x,y
end sub
private sub sub1(byval m as integer ,n as integer)
dim x as integer , y as integer
x = m + n; y = m-n
m = fun1(x,y)
n = fun1(y,x)
end sub
private function fun1(a as integer , b as integer )as integer
x = a + b: y = a – b
print x,y
fun1 = x+y
end function
3.执行command1_click事件过程时，共输出行数据，其中第三行输出结果为 。
private sub command1_click()
dunno 3
end sub
public function dunno(m as integer)
dim value as integer
if m = 0 then
value = 3
elsevalue = dunno(m–1)+5
end if
dunno = value
print m, value
end function
4．执行下面程序，单击命令按钮 command1 后，窗体上显示的第一行内容是 ，第二行内容是 , 最后一行内容是___
private sub command1_click()
dim a as integer, b as integer, k as integer
a = 2: b =4
k = fun((a), b)+fun(a,b)
print k
end sub
private function fun( n as integer , m as integer ) as integer
static k as integer
n = n + m
k = k + n
m = m + k
fun = n + m
print fun; n; m
end function
5．执行下面程序，单击命令按钮command1 后，a(1,3)值是 ，a(2,2)值是 ，a(3,2)值是 。
private sub command1_click()
dim i as integer , j as integer, k as integer
dim a(1 to 3, 1 to 3) as integer ,n as integer
n = 3for i = 1 to 3
for j = 1 to 3
k = k + 1
a(i,j) =k + 10
next j
next i
call sub1(a,n)
end sub
private sub sub1(a() as integer, n as integer)
dim i as integer, j as integer , t as integer, k as integer
k = n + 1
for i = int(n/2) to 1 step – 1
for j = n – i to i step – 1
t = a(k –j,i)
a(k – j, i ) a(i,j)
a(i,j) =a(j, k-i)
a(j,k – i)=a(k – i, n + 1 –j)
a(k – i,n + 1 –j)=t
next j
next i
end sub
6．下面程序是求出所有的幸运数显示在列表框中，并将幸运数的个数显示到文本框中。凡前两位数字之和等于后两位数字之和的四位数称为幸运数。
private sub command1_click()
dim i as integer ,n as integer, n1 as integer , n2 as integer
for i = 1000 to 9999
n2 = i mod 100
if sum(n1) =sum(n2) then
cstr(i)
end if
next i
text1 = n
end sub
private function sum( s as integer ) as integer
dim p as integer , q as integer
p = s\10
sum = p+q
end function
7. 若一个等比数列的首项为2，公比为3，其第n项到第m 项之和为720。下面是求出符合上述要求的n 和m 的程序。
private sub commadn1_click()
dim num() as integer, q as integer, a as integer
dim i as integer, n as integer , m as integer
const k as integer = 720
redim num(1)
a = 2: q=3
num(1)=a
do a = a * q
i = i+1
num(i) =a
loop until num(i) >720
call sum1(num, n, m , k)
label1 = 第” +str(n) &项~第” &str(m) &项的和是720”
end sub
private sub sum1(num() as integer, n as integer, m as integer, byval k as integer)
dim ub as integer, s as integer, i as integer, idx as integer
for i = 1 to ub
n = ido until s >=k
s = s + num ( idx )
idx = idx + 1
loopif s = k then
m = idx – 1
exit for
end if
next i
end sub
8. 以下是一个加密程序，其中r1与r2是两个密钥表，分别对应字母a~z及空格。加密方法是从原文的字符串中取一个字符，再根据该字符在原文中的排位次序是奇数还是偶数，分别从r1或r2密钥表中查出相应的替代字符。
如原文为“meet me at sunset”，其首字符为m，排位为1，则使用密钥表r1，由于在字母表中m为第13个字符，而r1中对应字符为t，故将m替换成t。其余类推。原文中如包含大写字母，则应先全部转换为小写字母。
const r1 as string * 27 = qzawsxedcrfvtgbyhnujm ikolp”
const r2 as string * 27 = poi uytrewqasdfghjklmnbvcxz”
private sub command1_click()
dim i as intrger, ,code as string , s as string * 1
dim n as intrger, ,decode as string
codefor i = 1 to len ( code )
s = mid ( code , i , 1 )
if s<>”then
if i mod 2<>0 then
decode = decode & mid ( r1,n,1 )
elseend if
elseif i mod 2<>0 then
elsedecode = decode & mid ( r2, 27, 1 )
end if
end if
next i
text2 = decode
end sub
9. 下面程序的功能是通过键盘输入一个正整数 n ，找出所有分母为n ，找出所有分母为 n ，且数值介于 1/3 和1/4 之间的最简分数 （即分子、分母除1外无公因子）。
private sub command1_click()
dim i as integer, j as integer
dim n as integer, flag as boolean
n = val(inputbox(“输入分母 n ：”11))
for i = 1 to n – 1
2023年春笔试试卷
优化bios的设计。a 和 b 和 c 和 d 和 4 下面是pc机常用的4种外设接口，其中键盘 鼠标 数码相机和移动硬盘均能连接的接口是。a rs 232 b ieee 1394 c usb d ide 5 下列有关pc机外部设备的叙述中，错误的是。a 扫描仪的工作过程主要基于光电转换原理，分辨率...
2023年 春 笔试试卷
第一部分计算机基础知识。1 在下列有关现代信息技术的一些叙述中，正确的是 d a 集成电路是20世纪90年代初出现的，它的出现直接导致了微型计算机的诞生。b 集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件。c 目前所有数字通信均不再需要使用调制解调技术和载波技术。d 光纤主要用于数字...
2023年 春 笔试试卷
第一部分计算机基础知识。1 下面关于通信技术的叙述中，错误的是 1 a 任何一个通信系统都有信源 信道和信宿这三个基本组成部分。b 为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术。c 为了降低传输信息的成本，在通信中广泛采用多路复用技术。d 数字通信系统的一个主要性能参数是信道带宽，它...