VB01编程题
VB程序设计模拟试题（一）
第一部分计算机基础知识（20分）
1. 微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。在下列有关叙述中，错误的是（1）。
A．目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件
B．Moore定律指出，单块IC的集成度平均每半年翻一番
C．从原料熔炼到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高
D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡
2．在下列有关通信中使用的传输介质的叙述中，错误的是（2）。
A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离约100m
B．同轴电缆可用于传输电视信号
C．光纤价格高，一般不在校园网和企业网中使用
D．微波的波长很短，适合于长距离、大容量无线通信
3．二进制数（1010）2与十六进制数（B2）16 相加，结果为（3）。
A．（273）8 B.(274)8 C.(314)8 D.(313)8
4.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成,其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6,则在这段文本中含有（4）。
A. 1个汉字和9个西文字符
B. 2个汉字和7个西文字符
C. 3个汉字和5个西文字符
D. 4个汉字和3个西文字符
5.在下列有关CPU的叙述中,错误的是（5）。
A.CPU的主要组成部分有运算器、控制器和寄存器组
B．CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所不同
C．为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU）
D．目前PC机所用的CPU芯片均为Intel公司的产品
6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键（通常是Del键），则可以启动CMOS设置程序。这些程序运行的顺序是（6）。
A．POST程序 CMOS设置程序系统自举程序引导程序
B．POST程序引导程序系统自举程序 CMOS设置程序
C．CMOS设置程序系统自举程序引导程序 POST程序
D．POST程序 CMOS设置程序引导程序系统自举程序
7．目前PC机一般都有USB和FireWire接口，用于连接各种外部设置。在下列关于这两种接口的叙述中，错误的是（7）。
A．USB是一种串行接口，可以连接键盘、鼠标器、优盘、数码相机等多种设备B．FireWire是一种并行接口，通常用于连接需要高速传输大量数据的设备（如音视频设备）C．USB2.0的数据传输速率是USB1.0的数十倍
D．一个USB接口上可以连接不同的设备
8．在下列关于PC机外存储器的叙述中，错误的是（8）。
A．1.44MB软盘的每一面有80个磁道，每个磁道分为18个扇区，每个扇区512字节
B．硬盘的主要性能指标之一是平均存取时间，它与硬盘的转速（rpm）有很大关系
C．优秀的缺点是：优盘均无写保护功能，且不能起到引导操作系统的作用
D．CD-R是目前常用的可记录式光盘，但其记刻录的数据不能修改
9．在下列关于Windows98/xp操作系统的存储管理功能的叙述中，错误的是（9）。A．存储管理的功能主要包括内存的分配与回收、共享和保护、自动扩充（虚存的实现）等B．系统将程序（及其数据）划分成固定大小的页面，以页面为单位进行内在孤分配和调度C．虚拟存储器采用的页面调度算法是“先进先出”（FIFO）算法
D．在Windwos98和Windows XP中，虚拟内存其实就是一个磁盘文件，即“交换文件”10．人们常说“软件的主体是程序，程序的核心是算法”。在下列有关程序、算法和数据结构的叙述中，错误的是（10）。
A．程序是用程序设计评议对解题对象和解题步骤进行的一种描述
B．算法和数据结构是设计与编写程序时首先要考虑的两个重要方面
C．算法是问题求解规则的一种过程描述，它必须有输入，但可以没有输出
D．数据结构主要是研究数据的逻辑结构、存储结构以及在这些数据上定义的运算
11．下列关于局域网的叙述中，错误的是（11）。
A．光纤分布式数字接口网(FDDI)常用于构造局域网的主干部分
B．采用红外线或者无线电波进行数据通信，可以构造无线局域网
C．两个或多个局域网可以进行互连
D．所有的局域网均为以太网
12．在下列有关IP地址、域名和URL的叙述中，错误的是（12）。
A．目前互联网中IP地址大多数使用4个字节（32个二进位）表示
B．使用C类IP地址的网络规模最大，一个C类物理网络可以拥有上千万台主机
C．一台主机通常只能有一个IP地址，但可以有多个域名
D．URL用来标识WWW网中的每一个信息资源，不同的信息资源对应不同的URL
13．TCP/IP协议栈的应用层包括了各种高层协议，其中用于实现网络主机域名到IP地址映射的是（13）。
A．DNS B.SMTP C.FTP D.Telnet
14．ADSL是一种宽带接入技术，在线路两端加装ADSL Modem即可实现连网。下面关于ADSL 的叙述中，错误的是（14）。
A．它利用普通铜质电话线作为传输介质，成本较低
B．在上网的同时，还可以接听和拨打电话，几乎互不影响
C．从实现的技术上来看，数据的上传速度比下载速度快
D．利用ADSL技术上网的用户，其PC机必须安装以太网卡
15．目前PC机使用的字符集及其编码标准有我种，20多年来我国也颁布布了多个汉字编码标准。在下列汉字编码标准中，不支持简体汉字的是（15）。
A．GB2312 B.GBK C.BIG5 D.GB18030
16.在下列有关数字图像的压缩编码和图像文件格式的叙述中，错误的是（16）。A．图像压缩的出发点是图像中的数据相关性很强，且人眼的视觉有一定的局限性、
B．压缩编码方法的优劣主要是看压缩倍数、重建图像的誓师和压缩算法的复杂度等C．JPEG图像的压缩们数是可以控制的，且大多为无损压缩
D．GIP格式的图像能够支持透明背景，且具有在屏幕上渐进显示的功能
17．在下列有关MIDI音乐的叙述中，错误的是（17）。
A．MIDI是一种音乐描述语言，它规定了乐谱的数字表示方法
B．MIDI音乐的文件扩展名为“.mid”或“.midi”
C. MIDI音乐可以使用Windows中的媒体播放器等软件进行播放
D．播放MIDI音乐时，声音是通过音箱合成出来的
18．在下列有关中文版Windows98/2000/xp操作系统功能与操作的叙述中，错误的是（18）。
A．“五笔字型”汉字输入法是Windows内置的输入法之一
B．在“画图”软件中画圆和正方形时，可在按Shift键的同时用鼠标拖放操作
C．在“资源管理器”窗口中，按Ctrl键的同时用鼠标单击文件，可以实现该文件的反向选定
D．作为虚拟存储器使用的（页）交换文件可以设置在不同的逻辑硬盘上
19．在下列有关Microsoft Word97/2000/2003功能和操作的叙述中，错误的是（19）。A．Word文档可以分别设置打开文件时的密码和修改文件时的密码
B．页边距的计量单位可以设置为磅、英寸和厘米等
C．可以将选中的英文统一设置为小写，或大写或词首字母大写，或句首字母大写等
D．利用工具栏上的“格式刷”，可以复制字体的格式，但不能复制段落的格式
20．在下列有关Microsoft PowerPoint97/2000/2003功能和操作的叙述中，错误的是（20）。
A．PowerPoint 文件可以另存为网页文件
B．演示文稿可以按讲义方式打印，且一张纸（如A4规格）可以打印多达6或9张投影片C．演示文稿的放映方式可以设置为循环放映
D．演示文稿中可以插入声音文件，但不可以录制旁白
第二部分 VB程序设计
一.选择题（10分）
21.以下所列表示中，不可用作VB合法常量的个数有（21）个。
①vbCrLf ②1# ③л④”XY”⑤1E-5
A．0 B.1 C.2 D.4
22.下列表达式中，运算结果与函数Mid(s,i,i)的返回值相同的是（22）。
A．Left（s,i）& Right(s,Len(s)-i)
B. Left(Right(s,Len(s)-i+1),i)
C. Left(Right(s,i),Len(s)-i+1)
D. Left(s,Len(s)-i) & Right(s,i)
23.下列定义Sub过程的语句中，正确的是（23）。
A．Private Sub Sub1(A())
B. Private Sub Sub1(A As String *5)
C. Private Sub Sub1(ByVal A() As Integer)
D. Private Sub Sub1(A(10) As Integer)
24.以下有关文件的说法中，错误的是（24）。
A．在 Open语句中缺省For子句，则按Random方式打开文件
B.可以用Binary方式打开一个顺序文件
C．在Input方式下，可以使用不同文件号同时打开同一个顺序文件
D.用Binary方式打开一个随机文件，每次读写数据的字节长度取决于随机文件的记录长度25．以下表达式中，能够被正确计算的表达式有（5）个。
①4096*2^3 ②CInt(5.6)*5461+2 ③6553*5+0.5*6 ④32768+12
A.4
B.3
C.2
D.1
26.计算下面的表达式，其值是（26）。
CInt(-3.5)*Fix(-3.81)+ Int(-4.1)*(5 Mod 3)
A.2
B.1
C.-1
D.6
27.下面关于对象作用域的说法中，正确的是 （27） 。
A ．在窗体模块中定义的全局过程，在整个程序中都可以调用它
B ．分配给已打开文件的文件号，仅在打开该文件的过程范围内有效
C ．过程运算结束后，过程的静态变量的值仍然保留，所以静态变量作用域是整个模块
D ．在标准模块中定义的全局变量的作用域比在窗体模块中定义的全局变量的作用域大
28．下面有关数组的说法中， （28） 是错误的。
A ．在模块中由于未使用Option Explicit 语句，所以数组不用先定义就可以使用，只不过是Varant 类型
B ．过程定义中，形参数组可以是定长字符串类型
C ．Erase 语句的作用是对固定大小数组的值重新初始化或收回分配给动态数组的存储空间
D ．定义数组时，数组维界值可以不是整数
29．下列控件中，不具有Change 事件的控件有 （29） 个。
①DriveListBox ②DirListBox ③FileListBox ④ListBox
A.0
B.1
C.2
D.3
30.算术表达式2352cos sin )
2sin(ln x
x x x e x -+-π 的VB 表达式是 （30） 。 A ．（e^(2*л*x-5)*log(x)+(sin(2x))^3）/sqr(abs(sin(x)-cos(x^2)))
B.(exp(2*3.14159*x-5)*log(x)+(sin(2*x))^3/sqr(abs(sin(x)-cos(x^2)))
C.(exp(2*л*x-5)*ln(x)+(sin(2*x))^3)/sqr(abs(sin(x)-cos(x^2)))
D.e^(2*3.14159*x-5)*ln(x)+(sin(2*x))^3)/sqr(abs(sing(x)-cos(x^2)))
二、填空题（30分）
1.下面的事件过程执行结束后，A （2）的值是 （1） 、A （7）的值是 （2） 。程序中第二个循环被执行了 （3） 次。
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim A(10) As Integer
Dim i As Integer, K As Integer
For i=1 to 10
A(i) =1
Next i
K=1
For k=1 to 10 step k
A(k)=0
K=k+2
Next k
End Sub
2.执行下面的程序，当单击Command1时，窗体上显示的内容的第二行是 （4） 、第三行是 （5） 、第四行是（6） 。
Option Explicit
Private Sub Command1_Click( )
Dim a As Integer, b As Integer, z As Integer
A=1:b=1:z=1
Call P1(a,b)
Print a,b,z
Call P1(b,a)
Print a,b,z
End Sub
Private Sub P1(x As Integer, ByVal y As Integer)
Static z As Integer
X=x+z : y=x-z : z=x+y
Print x,y,z
End Sub
3.执行下面程序，单击Command1按钮后，数组元素A(1,1)的值是（7）、A（2，3）的值是（8）、A（3，2）的值是（9）。
Option Explicit
Private Sub Command1_Click( )
Dim A(3,3) As Integer, I As Integer, J As Integer, K As Integer
I=3 :J=1
A(I,J)=1
For K=2 To 9
If i+1>3 Or J+1>3 Then
If J=1 Then
I=I-1
ElseIf A(I-1,J-1)=0 Then
I=i-1：J=J-1
ElseIf J=3 Then
I=I-1
Else
J=J+1
End If
ElseIf J=1 Or I=1 Then
If A(I+1,J+1)=0 Then
I=I+1: J=J+1
Else
J=J+1
End If
Else
If a(I-1,J-1)=0 Then
I=I-1: J=J-1
End If
End If
A(I,J)=K
Next K
End Sub
4．执行下面程序，单击Command1按钮后，变量Fir值是（10）、变量Sec值是（11）、变量Thir值是（12）。
Private Sub Command1_Click()
Dim Fir As Integer, Sec As Integer, Thir As Integer
Fir=96: Sec=421: Thir=3857
Call Look_For(Fir,Sec,Thir)
Print Fir; Sec; Thir
End Sub
Private Sub Look_For(F As Integer, S As Integer, T As Integer)
Dim Tem As String
If 1#*F *s<>T Then
Tem=Left(CStr(F),1)
F=Right(CStr(F),1) & Left(CStr(S),1)
S= Right(CStr(S),2) & Left(CStr(T),1)
T= Right(CStr(T),3) & Tem
Call Look_For(F,S,T)
End If
End Sub
5.执行下面程序，单击Command1按钮后，显示在窗体上的第一行内容是（13）、第二行的内容是（14）、第三行的内容是（15）。
Option Explicit
Dim A As Integer
Private Sub Command1_Click( )
Dim B As Integer
A=1: B=2
Print fun1(fun1(A,B),B)
Print A
Print B
End Sub
Private Function fun1(X As Integer, Y As Integer) As Integer
Dim I As Integer
For I=1 to Y
Y=Y+1
X=X+1
A=X+Y
Next I
Fun1=A+Y
End Function
6.下面是一个求函数f(x)值的程序。
1......,)!1(2!)!12()1(......864531643141)(1221≤++?--+-?????+???-?==+∞
=∑x n x n x x x a x f n n
n n n 基中，（2n-1）！！=1×3×5×……×(2n-1)。计算到第n 项的绝对值610-≤n a 为止。 Option Explicit
Private Sub Command1_Click( )
Dim x As Single, I As Integer, a As Singl, sum As
Single
X=text1
I=1
a=-1
Do
a=（16）
If Abs(a)<=0.000001 Then Exit Do
sum=sum+a
（17）
Loop
Text2=sum
End Sub
7.本程序功能是将文本框中用逗号分隔的数据（文本框中必须要有数据），分别赋值给二维数组B 的各个元素；并将B 数组各个元素分行显示在文本框中。
Private Sub Command1_Click( )
Dim B(3,3) As Single, I As Ingeter , Pos1 As
Integer
Dim Pos2 As Integer, S As String, J As Integer
S=Text1
If S=” “ Then
Text1=” 请输入数据”
（18）
End If
For I=1 to 3
For J=1 to 3
Pos1=（19）
Pos2=InStr(Pos1,S,”,”)
If （ 20） Then
B(I,J)=Val(Mid(S,Pos1,Pos2-Pos1))
Else
B(I,J)=Val(Mid(S,Pos1))
End If
Test2=Text2 & Str(B(I, J))
Next J
（21）
End Sub
8.下面程序的功能是，对N阶方阵A中中与副对角线平行的各条斜线（包括副对角线本身在内，共有2N-1条，如图示）上的元素发别进行累加求和并进行比较，求出累加和的最大值Max。过程Count的功能是计算各条斜线上的元素和；计算分两步进行：先求副对角线和其上方斜线上的元素和，再求副对角线下方斜线上的元素和。（本程序设定N=5，数据从文件data.txt中读取）
Option Base 1
Private Sub Command1_Click( )
Dim I As Integer, A(5,5) As Integer, J As Integer
Dim N As Integer, Max As Integer
Open “data.txt” For Input As #5
Do （22）
For I=1 to 5
For J=1 to 5
Input #5, A(I,J)
Text1=Text1 & Str(A(I,J)) &””
Next J
Text1=Text1 & vbCrLf
Next I
Loop
Call Look_for(A,Max)
Text2=Text2 & “最大和是：” & Max
End Sub
Private Sub Look_for(A( ) As Integer, M As Integer)
Dim Ub As Integer, I As Integer, J As Integer, Sum As Integer
（23）
M=A(1,1)
For I=1 to Ub
Sum= A(1,I)
For J=2 to I
Sum=（24）
Next J
Text2=Test2 & Sum & vbCrLf
If M Next I For I=2 to Ub （25） For J=I+1 To Ub Sum =Sum+A(J,Ub+I-J) Next J Text2=Text2 & Sum & vbCrLf （26） End Sub 9．下面程序的功能是验证一个命题：对任何一个非零的正整数，若为偶数则除以2，若为奇数则乘以3加1，得到一个新的正整数后再按照上面的法则继续演算，经过若干次演算后得到的结果必然为1。 Option Explicit Private Sub Command1_Click( ) Dim X As Integer Cls X=InputBox(“请输入一个正整数”) Print “验证” & X “:” Call YZ(X) End Sub Privat Sub YZ(N As Integer) Dim I As Integer, S As String If N Mod 2 =0 Then S=N & ”/2” N=N/2 Print S & “=” & N ElseIf （27） Then （28） N=N*3+1 Print S & “=” & N Else （29） End If （30） End Sub 三、改错题（14分） 本程序的功能是：输入一个由正整数组成的数字串（各整数由逗号隔开，最后来居上以#号结束），林中找出所有是3的幂的数并显示在列表框中。 要求：改错时，不得增加或删除语句，但可适当调整语句位置。 （上机时要将窗体文件和工程文件分别命名为F1和P1，并保存在D盘的根目录下）Option Explicit Option Base 1 Private Sub Command1_Click() Dim s As String, ch As String, k As Integer Dim a() As Integer, t As Integer, i As Integer s = Text1 For i = 1 To Len(s) ch = Mid(s, i, 1) k = k + 1 If ch <> "," And ch <> "#" Then t = t * 10 + Val(ch) Else ReDim Preserve a(k) a(k) = t t = 0 End If Next i For i = 1 To UBound(a) If judge(a(i)) Then List1.AddItem a(i) Next i End Sub Private Function judge(n As Integer) As Boolean Do While n <> 1 If n Mod 3 <> 0 Then Exit Do End If n = n / 3 Loop judge = True End Function 四、编程题（26分） 编写程序，找出满足下列条件的正整数：（1）该数的位数为N（N=3，4）；（2）该数的数字全部由偶数组成；（3）该数等于另一个由偶数数字组成的数的平方。 要求： （1）程序参考界面如下图所示，编程时不得增加或减少界面对象或改变参象的种类，窗体及界面元素大小适中，且均可见； （2）在文本框中输入n值，按“运行”按钮，在规定范围内查找符合要求的数据并在列表框中显示结果；按“清理”按钮，则将文本框及列表框清空，焦点置于文本框；按“结束”按钮，结束程序运行； （3）程序中应定义一个函数过程，用于判断一个数的各位数字均为偶数 （上机时要将窗体文件和工程文件分别命名为F2和P2，并保存在D盘的根目录下）