江苏省计算机二级VB2009到2011秋真题

2009秋季

第一部分 计算机基础知识

1．下列关于个人移动通信的叙述中，错误的是 1 。

A．第1代个人移动通信(简称1G)采用的通信技术是数字通信技术

B．目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术(简称2G) C．第3代移动通信技术(简称3G)将无线通信与互联网、多媒体通信相结合 D．3G有多个国际技术标准，其中也有我国自主制定的3G技术标准。 2．在下列有关集成电路的叙述中，正确的是 2 。 A．现代集成电路所使用的半导体材料都是硅 B．所有的集成电路都是数字集成电路

C．Moore定律认为单块集成电路的集成度平均每年翻一番

D．Intel公司微处理器产品Core 2 Duo，其集成度已高达数千万个电子元件 3．与十六进制数AB等值的八进制数是 3 。 A．253 B．254 C．171 D．172 4．在下列有关PC机CPU的叙述中，错误的是 4 。

A．CPU中包含几十个甚至上百个寄存器，用来临时存放数据、指令和控制信息 B．所有PC机的CPU都具有相同的指令系统，因而PC机可使用相同的软件 C．一台计算机至少包含1个CPU，也可以包含2个、4个、8个甚至更多个CPU D．Intel公司是国际上研制和生产CPU的主要公司，我国也能生产CPU 5．在下列有关PC机主板上部件的叙述中，错误的是 5 。

A．BIOS保存在主板上的一个闪存中，其内容在关机后通常不会改变

B．CMOS中保存有用户设置的开机口令，关机后主板上的电池继续给CMOS供电 C．启动CMOS设置程序可以重新设置CMOS中的数据，该程序是BIOS的组成部分 D．网卡通常集成在主板上，由主板上独立的IC实现其功能，与芯片组无关 6．从PC机存储器的层次结构来看，下列存储器中存取速度最快的是 6 。 A．Cache存储器 B．RAM和ROM C．寄存器 D．硬盘和优盘 7．在下列4种PC机常用I/O接口中，数据传输速率最高的是 7 。 A．PS/2 B．SATA C．IEEE-1394b D．USB 2．0 8．在下列有关I/O操作、I/O总线和I/O接口的叙述中，错误的是 8 。 A．I/O操作的任务是在I/O设备与内存的指定区域之间传送信息

B．I/O总线传送的只能是数据信号，它不能传送控制信号和地址信号

C．不同类型的I/O接口，其插头/插座以及相应的通信规程和电气特性通常各不相同 D．并行总线的数据传输速率不一定比串行总线高

9．在下列有关PC机I/0设备的叙述中，错误的是 9 。

A．数码相机的成像芯片可以为CCD器件或CMOS芯片，目前大多数用CCD器件 B．平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚筒式扫描仪 C．常见的宽屏液晶显示器的宽度与高度之比为16:9(或16:10)

D．目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据 10．在下列有关计算机软件的叙述中，错误的是10 。

A．程序设计语言处理系统和数据库管理系统被归类为系统软件 B．共享软件是一种具有版权的软件，它允许用户买前免费试用 C．机器语言和汇编语言与特定的计算机类型有关，取决于CPU

D．目前PC机只能使用Windows系列操作系统，均不能使用UNIX和Linux操作系统 11．在下列常用的PC机软件中，编辑的文档(内容)能直接保存为图片类型(例如JPEG文件类型)的是11 。

A．Microsoft Word B．Microsoft Excel C．Microsoft PowerPoint D．Microsoft FrontPage 12．在下列关于以太网(局域网)的叙述中，错误的是 12 。 A．在共享式以太网中，任何时间只允许一对计算机进行通信

B．在交换式以太网中，每台计算机均独享相同的带宽，其带宽仅由交换机决定

C．无论是共享式以太网还是交换式以太网，网络中的所有计算机都要安装以太网网卡 D．无论是共享式以太网还是交换式以太网，它们的数据帧和MAC地址格式均相同 13．连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是13 。 A．211．256．49．68 B．21．18．33．48 C．120．34．0．18 D．37．251．68．0

14．为了将异构的计算机网络互相连接起来，必须使用的网络设备是14 。 A．调制解调器 B．以太网集线器 C．以太网交换机 D．路由器 15．下列网络协议中，与发送电子邮件有关的是15 。 A．Http B．FTP C．SMTP D．TELNET 16．在下列有关字符集及其编码的叙述中，错误的是16 。

A．基本的ASCII字符集共有128个字符，每个字符使用7个二进位进行编码 B．GB2312字符集中收录了6千多个汉字，每个字符在机内通常使用双字节编码 C．GBK字符集中的字符也采用双字节编码，且该字符集收录了部分繁体汉字

D．GB18030字符集中所有的字符均采用4字节编码，因此该字符集的代码空间很大 17．目前数码相机拍摄的照片在保存时通常采用的文件类型是17 。 A．BMP B．GIF C．JPEG D．TIF

18．MP3是数字波形声音的一种压缩编码文件格式，它采用的压缩编码标准属于18 。 A．MPEG-1 B．MPEG-2 C．MPEG-4 D．Dolby AC-3

19．使用Macromedia公司的Flash软件制作的动画是一种矢量图形，在保存为动画文件 时其文件扩展名通常为 19 。 A．GIF B．SWF C．AVI D．MPG 20．在计算机应用中，CAD和CAM是典型的信息系统。它们属于20 。 A．管理业务系统 B．辅助技术系统 C．信息检索系统 D．信息分析系统

第二部分 VB程序设计

21．要将焦点设置在某个控件上，以下四个选项中正确的是 21 。 A．只能使用鼠标直接点击该控件 B．只能使用Tab键将焦点移到该控件

C．只能在程序中调用该控件的setfocus方法 D．A、B、C三选项中涉及的方法均可用

22．在下列属性中，属于CommandButton控件、ListBox控件共有的是 22 。

A．Caption、Text B．Visible、Font C．Caption、Visible D．List、Visible

sin（30。）+lnx+y23．数学表达式对应的visual Basic表达式是 23 。

2?+ex+yA．Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y) B．(Sin(30*?/180)+sqr(Ln(x)+y))/(2*?+Exp(x+y))

C．Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y)) D．(Sin(30*3.14159/180)+Sqr(Log(x)+Y))/(2*3.14159+Exp(x+y)) 24．下列的关系表达式中，运算结果为True的是 24 。 A．CInt(1.5)=Int(1.5) B．Fix(1.5)=Int(1.5) C．Fix(-1.5)=CInt(-1.5) D．Fix(-1.5)=Int(-1.5)

25．下列有关数组的叙述中，不正确的是25 。

①在过程中用ReDim语句定义的动态数组，其下标的上下界可以是变量 ②数组作为形式参数时，传递的是每个数组元素的值

③在窗体模块的通用声明处可以用Public说明一个全局数组

④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A．②③ B．①③④ C．①②③④ D．③④ 26．以下关于文件的叙述中，错误的是26 。

A．用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B．可以用Print#语句或Write#语句将数据写到顺序文件中

C．若以Output、Append、Random、Binary方式打开一个不存在的文件，系统会出错 D．顺序文件或随机文件都可以用二进制访问模式打开 27．下列有关控件数组的说法中，错误的是27 。

A．控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组 B．控件数组中的所有控件不得具有各自不同的属性设置值 C．控件数组中的所有控件共享同一个事件过程

D．控件数组中每个元素的下标由控件的Index属性指定

28．以下Case语句中，能正确描述Y的绝对值大于6的是 28 。 A．Case Abs(Y)>6 B．Case -6 To 6 C．Case Not (-6 To 6) D．Case Is<-6，Is>6

29．若在模块中用Private Function Fun(A As Single，B As Integer)As Integer定义了函数Fun。调用函数Fun的过程中定义了I、J和K三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是 29 。 A．Fun 3．14，J B．Call Fun(I，365) C．Fun (I)，(J) D．K=Fun(\，”35”)

30．若需要在同一窗体内安排两组相互独立的单选按钮(OptionButt．Dn)，可使用 30控件做容器将它们分开。

①TextBox ②PictureBox ③Image ④Frame A．①或② B．②或③ C．②或④ D．③或④ 二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)

1．执行下面程序，单击Commandl，则数组元素a(1，2)的数值是 (1) ，a(2，3)的数值是 (2) ，a(4，3)的数值是 (3) 。 Option Explicit

Private Sub Commandl_Click()

Dim a(4, 4) As Integer, i As Integer

Dim j As Integer, k As Integer, n As Integer n = 16: k = 2 Do

For i = 1 To 4 For j = 1 To 4

If i + j = k Then a(i, j) = n n = n - 1 End If Next j Next i k = k + 1 Loop Until k > 8

For i = 1 To 4 For j = 1 To 4

Print Right(\ \ Next j Print Next i End Sub

2．执行下面程序，单击Commandl，窗体上显示的第一行是( 4 ) ，第三行是(5 ) ，最后一行是(6) 。 Option Explicit

Private Sub Commandl_Click() Dim i As Integer, s As Integer For i = 1 To 9 Step 3 s = fun((i)) + fun(i) Print s Next i End Sub

Private Function fun(m As Integer) As Integer Static a As Integer If m Mod 2 = 0 Then a = a + 1 m = m + 1 Else

a = a + 2 m = m + 2 End If

fun = a + m Print fun End Function

3．运行下面的程序，单击Commandl，窗体上显示的第一行是 ( 7 ) ，第二行( 8 ) ，最后一行是( 9 ) 。 Option Explicit

Private Sub Commandl_Click() Dim a As Integer Dim b As Integer a = 1 b = 2

Print fun((a + 2), fun(2 * a, b)) Print a; b End Sub

Private Function fun(x As Integer, ByVal y As Integer) As Integer x = x + 2 y = x - y + 3 fun = x + y Print x; y; fun End Function

4．执行下面的程序，单击Commandl，窗体上显示的第二行是 (10) ，第三行(11) ，第四行是(12) 。 Option Explicit

Private Sub Command1_Click() Dim N As Integer, K As Integer N = 36: K = 5 Print Trans(N, K) End Sub

Private Function Trans(N As Integer, K As Integer) As String Dim R As Integer If N <> 0 Then R = N Mod K If R < 10 Then

Trans = Trans(N \\ K, K) & R Print N Else

Trans = Trans(N \\ K, K) & Chr(55 + R) End If End If End Function

5．运行下列程序，单击Commandl，窗体上显示的第一行内容是(13) ，第二行的内容是(14) ，第三行的内容是(15) 。 Option Explicit

Private Sub Commandl_Click() Dim s As String, k As Integer Dim key As String s = \ key = \ k = 1 Do

Call encrypt(s, key) Print s

s = Right(s, k) & Left(s, 4 - k) & Mid(s, 4, 2) k = k + 1 Loop Until k > 3 End Sub

Private Sub encrypt(a As String, b As String) Dim sp As String, n As Integer, i As Integer sp = \

n = Len(b) - Len(a)

If n > 0 Then a = Right(sp & a, Len(b)) For i = 1 To Len(b)

If Mid(a, i, 1) = Mid(b, i, 1) Then Mid(a, i, 1) = \ Else

Mid(a, i, 1) = \ End If Next i End Sub

6．下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、13/21、??前若干项的和，项数由文本框输入。试完善程序使其达到功能要求。 Option Explicit

Private Sub Calculate_Click()

Dim n As Integer，al As Integer，a2 As Integer Dim i As Integer，t As Single，S As Single n=Val(Textl．Text) al=1 a2=2

For i=1 To n (16) s=s+t a2=al+a2 ( 17 ) Next i Text2=S End Sub

7．下面程序的功能是：从一组以16进制数形式表示的若干个字节数据中，找出其中的汉字代码(若相邻的两个字节中，每个字节的最高一位的数值都大于或等于8，则这两个字节为一个汉字的代码)。试完善程序使其达到功能要求。

Private Sub Commandl_Click()

Dim st()As String，P As String，k As Integer Dim n As Integer，i As Integer P=Trim(Textl) Do

n=InStr(P，” ”) If (18) Then k=k+1

ReDim Preserve st(k) st(k)=Left(p，n-1) p=Right(p，Len(p)-n) Else

ReDim Preserve st(k+1) ( 19 ) End If

Loop Until n=0

For i=1 To UBound(st)-1

If chinese(st(i)，st(i+1)) Then

Listl．AddItem st(i) & ”，” & st(i+1) ( 20 ) End If Next i End Sub

Private Function chinese(p As String，q As String)As Boolean Dim st As String，k As Integer，n As Integer Dim i As Integer

st=”0123456789ABCDEF” For i=1 To Len(st)

If Left(p，1)=Mid(st，i，1) Then k=i-1 (21) Next i

If k>=8 And n>=8 Then chinese=True End Functinn

8．本程序的功能是求出n～m之间所有的可分解整数。所谓可分解整数是指具有以下性质的数，它的各位数字之和等于其所有质因子各位数字之和(注意：素数不是可分解整数)。例如整数121，各位数字之和是4，其质因子是11、11，质因子的各位数字之和也是4(1+1+1+1=4)，所以121是可分解整数。试完善程序使其达到功能要求。 Option Explicit

Private Sub Commandl_Click()

Dim n As Integer，m As Integer，k As Integer n=Textl nl=Text2 For k=n To m

If sum1(k)=sum2(k)Then Listl．AddItem k End If Next k End Sub

Private Function suml( 22 ) As Integer ?求一个数的各位数字之和 Do

suml= (23) n=n\\10 Loop Until n=0 End Function

Private Function sum2 (ByVal n As Integer) As Integer ?求质因子及其各位数字之和 Dim k As Integer，an As Integer (24) an=n Do

If n Mod k=0 Then

sum2=sum2+suml(k) n=n\\k Else (25) End If

Loop Until k>an/2 End Function

9．下面程序的功能是：将a、b两个数组的数据按从大到小的顺序合并到数组c中。a，b两个数组的数据分别从文本框A和文本框B输入，数据以空格分隔。合并结果在文本框C中输出。试完善程序使其达到功能要求。 Option Explicit Option Base 1

Private Sub Commandl_Click()

Dim a()As Integer，b()As Integer，c()As Integer Dim i As Integer，st As String st=Trim(Textl) Call load_a(st，a) st=Trim(Text2) Call load_a(st，b) ReDim c(1) (26) for i=2 To UBound(a) Call change(a(i)，c) Next i

For i=1 To UBound(b) Call change(b(i)，c) Next i

For i=1 To UBound(C)

Text3=Text3 & Str(c(i)) Next i End Sub

Private Sub load_a(s As String，a()As Integer) ?将文本框中数据存入数组 Dim i As Integer，k As Integer，P As String，q As String*1 For i=1 To Len(s) q=Mid(s，i，1)

If q>=”0” And q<=”9” Or q=”-” Then (27) Else If p<>”” Then k=k+1

ReDim Preserve a(k) a(k)=Val(p) (28) End If Next i

If p<>”” Then

ReDim Preserve a(k+1) a(k+1)=P End If End Sub

Private Sub change(n As Integer，c()As Integer) ?插入排序 Dim i As Integer，j As Integer ReDim Preserve C(UBound(c)+1) For i=1 To UBound(c)-1 If n>c(i)Then

For j=UBound(c) to i+1 Step -1 c(j)=c(j-1) Next j (29) End If Next i (30) End Sub

2010年春季

第一部分 计算机基础知识

1．下面关于通信技术的叙述中，错误的是__________。

A．任何一个通信系统都有信源、信道和信宿这三个基本组成部分

B．为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术 C．为了降低传输信息的成本，在通信中广泛采用多路复用技术

D．数字通信系统的一个主要性能参数是信道带宽，它指实际进行数据传输时单位时间内传输的二进位数目

2．在下列有关集成电路及其应用的叙述中，错误的是__________。 A．集成电路的制造工艺繁多，工艺复杂且技术难度高

B．经过抛光后的硅片称为晶圆，每个晶圆最多可以制成一个合格的集成电路芯片 C．IC卡分为接触式IC卡和非接触式IC卡，后者通常又称为射频卡或感应卡 D．集成电路应用十分广泛，目前我国第2代居民身份证中就有集成电路芯片 3．下列有关数字技术的一些叙述中，错误的是__________。 A．数字技术是采用有限个状态（例如“0”和“1”）来表示、处理、存储和传输信息的 B．在逻辑代数中，1与1进行逻辑加（∨）和逻辑乘（∧）的结果相同 C．任何一个十进制数，均可精确地转换成等值的二进制数 D．在PC机中，通常用原码表示正整数、用补码表示负整数 4．在下列有关PC机主机的叙述中，错误的是__________。

A．BIOS和CMOS存储器安装在主板上，普通用户一般不能自己更换 B．由于PC机主板的物理尺寸等没有标准化，所以不同PC机均不能互换

C．芯片组是PC机各组成部分相互连接和通信的枢纽，一般由2块VLSI芯片组成 D．芯片组决定了主板上所能安装的内存最大容量、速度及可使用的内存条类型 5．在下列4个Intel微处理器产品中，采用双核结构的是__________。 A．Core2 Duo B．Pentium Pro C．Pentium Ⅲ D．Pentium 4 6．在下列四种PC机主存储器类型中，目前常用的是__________。 A．EDO DRAM B．SDRAM C．RDRAM D．DDR SDRAM 7．在下列有关PC机常用I/O接口的叙述中，错误的是__________。 A．目前显卡与显示器的接口大多采用VGA接口

B．可用于连接鼠标器的USB接口和PS/2接口的数据传输方式均是串行传输方式 C．USB接口连接器有4个引脚，其中1个引脚可获得由主机提供的+1.5V电源 D．IEEE-1394b接口也是PC机常用的一种高速接口

8．在下列有关PC机外存储器的叙述中，错误的是__________。 A．由于数据存取速度慢、容量小等原因，软盘存储器已逐渐被淘汰

B．所有的硬盘都是由2个或2个以上盘片组成的，硬盘中的盘面数为盘片数的2倍 C．目前有些优盘产品可以模拟软盘和硬盘启动操作系统 D．目前常见的组合光驱（“康宝”）既有DVD只读光驱功能，又有CD光盘刻录机功能

9．在下列有关光盘存储容量的叙述中，错误的是__________。 A．80mmCD存储容量大约为200多兆字节 B．120mmCD存储容量大约为600多兆字节

C．单面单层的120mmDVD存储容量大约为4.7GB D．单面单层的120mm蓝光光盘存储容量大约为17GB

10．在下列有关Windows系统操作系统及其功能的叙述中，错误的是__________。 A．Windows操作系统采用并发多任务方式支持系统中多个任务的执行 B．Windows XP分为多个版本，它们可用于不同计算机和不同的应用

C．与Windows XP相比，Windows Vista做了许多改进，但其硬件运行环境要求较高 D．无论是硬盘还是关盘，它们均采用相同的文件系统，即FAT文件系统 11．在下列常用应用软件中，不能对编辑的文档设置密码的是__________。 A．Microsoft Word B．Microsoft Excel C．Microsoft PowerPoint D．Microsoft FrontPage 12．在下列关于无线局域网的叙述中，错误的是__________。

A．在无线局域网中，无线接入点实际上是一种无线交换机，在室内覆盖距离可达几十米 B．目前无线局域网可采用的协议有Wi-Fi和蓝牙等，后者的数据传输速率比前者更高 C．若某电脑贴有Intel公司的“Centrino” （迅驰）标记，则该电脑应有集成的无线网卡 D．无线网卡有多种类型，例如PCI无线网卡、USB无线网卡等

13．IP地址分为A、B、C、D、E五类。下列4个IP地址中，属于C类地址的是__________。 A．1.110.24.2 B．202.119.23.12 C．130.24.35.68 D．26.10.35.48

14．因特网上有许多不同结构的局域网和广域网互相连接在一起，它们能相互通信并协调工作的基础是因为都采用了__________。 A．ATM协议 B．TCP/IP协议 C．X.25协议 D．NetBIOS协议 15．下列有关因特网接入的叙述中，错误的是__________。 A．采用电话拨号接入时，数据传输速率只能达几十kbps

B．采用ADSL接入时，网络的下行数据传输速率高于上行数据传输速率 C．采用ADSL接入时，只需要ADSL调制解调器，不需要使用网卡 D．采用有线电视接入时，多个终端用户将共享连接段线路的带宽 16．在下列有关字符集及其编码的叙述中，错误的是__________。

A．在我国台湾地区使用的汉字编码标准只要是GBK，该标准中收录了大量的繁体汉字 B．GB18030标准中收录的汉字数目超过2万，Windows XP操作系统支持该标准 C．Unicode字符集中既收录了大量的简体汉字，也收录了大量繁体汉字

D．GB2312是我国颁布的第一个汉字编码标准，该字符集还收录了俄文、希腊字母等

17．若一幅图像的大小为1024×768，颜色深度为16位，则该图像在不进行数据压缩时，其数据量大约为__________。 A．768KB B．1.5MB C．3MB D．12.3MB

18．在下列4中类型的数字化声音文件中，不能拿包含人的说话声音的是__________。 A．WAV B．MP3 C．MID D．WMA 19．在下列有关数字视频的叙述中，错误的是__________。 A．PC机所使用的视频卡能将输入的模拟视频信号进行数字化 B．目前使用摄像头获取视频信息时，不需要使用专门的视频卡

C．数字视频在数据压缩时只能使用MPEG标准，DVD就是采用MPEG-4标准压缩的 D．计算机动画是一种合成视频，这种技术是发展动漫产业的基础 20．下列是几种常见的电子商务的分类方法。若将电子商务分为B-C、B-B等类型，则该分类是__________。 A．按交易的双方进行分类 B．按使用的网络类型分类 C．按交易商品性质分类 D．按交易商品规模分类

第二部分 Visual Basic程序设计

21．关于窗体，以下叙述中正确的是__________。

A．仅当窗体上没有可以获取焦点的控件时，窗体才获得焦点 B．一个VB工程只能从某个指定的窗体开始启动 C．只有窗体可以作为控件的容器

D．Unload Me和End语句的效果是等同的

22．若a为长整型变量，则执行a=12: print len(a); len(str(a)); len(cstr(a))后，在窗体上看到的是__________。 A．4 2 3 B．2 3 2 C．4 3 2 D．2 2 3

cos30?23．数学表达式?e2对应的Visual Basic表达式是__________。

4y?lnxA．cos(30*3.14159/180)/(4*y+ln(x))+exp(2) B．cos(30*3.14159/180)/(4*y+log(x))+exp(2) C．cos(30*3.14159/180)/(4*y+ln(x))+e^2 D．cos(30)/(4*y+log(x))+ e^2

24．表达式fix(-2.5)+int(-3.5)+cint(-2.5)的值是__________。 A．-8 B．-7 C．-6 D．-5 25．以下说法中，错误的是__________。

A．使用缺省Preserve关键字的Redim语句可以改变数组的维数和大小 B．Redim语句只能出现在过程中

C．使用Redim语句重新定义的动态数组，只能比原数组大 D．使用Redim语句可以对动态数组的所有元素进行初始化 26．下列关于菜单的说法中，错误的是__________。 A．可以为菜单选定快捷键

B．若在“标题”文本框中键入连字符（-），则可在菜单的两个命令项之间加一条分隔线 C．除了Click事件之外，菜单项还可以响应其他事件 D．菜单编辑器的“名称”文本框用于输入菜单项的名称

27．以下有关过程中形式参数的描述中，错误的是__________。 A．函数过程可以没有形式参数 B．事件过程一定没有形式参数 C．形参数组只能按地址与实参数组结合 D．窗体与控件也可以作为过程的参数 28．以下表达式中，可以表示“A和B之一大于0”的是__________。

①A*B<=0 ②A>0 Xor B>0 ③A>0 Or B>0 ④A>0 And B<=0 Or B>0 And A<=0 A．①③ B．③④ C．②④ D．①②④ 29．设变量A为长整型，则下面不能正常执行的语句是__________。 A．A=32768*2 B．A=2*1.5*16384 C．A=16384*2 D．A=190^2

30．以下有关滚动条控件（ScrollBar）的说法中错误的是__________。 A．只能在设计时设置Max与Min属性值

B．Value属性返回滚动条内滑块当前所处位置的值 C．拖动滚动条内滑块时，将触发滚动条的Scroll事件 D．单击滚动箭头时，将触发滚动条的Change事件 二、填空题

1．执行下面程序，单击Command1后，A(1,4)的值是________，A(2,3)的值是________，A(3,2)的值是________。 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim a(4, 4) As Integer, ub As Integer

Dim i As Integer, j As Integer, n As Integer ub = UBound(a, 1) n = 0

For i = ub To 1 Step -1 For j = 1 To ub + 1 - i n = n + 1

a(j, j + i - 1) = n Next j Next i

For i = ub To 2 Step -1 For j = ub To i Step -1

a(j, j - i + 1) = a(5 - j, 4 - j + i) Next j Next i

For i = 1 To ub For j = 1 To ub

Picture1.Print a(i, j); Next j

Picture1.Print Next i End Sub

2．执行下面程序，单击Command1后，在Inputbox函数对话框中输入4（或直接单击“确定”按钮），窗体第一行显示的内容是______，第二行显示的内容是________，第四行显示的内容是__________。 Option Explicit

Private Sub Command1_Click() Dim days As Integer

days = InputBox(\输入正整数\ Print fun(days) End Sub

Private Function fun(d As Integer) As Integer If d = 1 Then fun = 1 Else

fun = 2 * fun(d - 1) + 1 Print d; fun End If End Function

3．执行下面程序，单击Command1后，窗体第一行显示的内容是_________，第三行显示的内容是___________，最后一行显示的内容是_____________。 Option Explicit

Private Sub Command1_Click() Dim i As Integer, k As Integer For i = 1 To 5 k = fun(i) + i

Print k Next i Print i End Sub

Function fun(n As Integer) As Integer Static m As Integer Dim j As Integer m = m + n n = n + 1

For j = 1 To m j = j + 2 fun = fun + j Next j

fun = fun + n End Function

4．执行下面程序，单击Command1后，则在窗体上显示的第一行内容是_______，第三行内容是________，最后一行的内容是__________。 Option Explicit

Private Sub Command1_Click() Dim s As String, n As Integer s = \ n = 14

Print convert(s, n) End Sub

Private Function convert(s As String, n As Integer) As Long Dim st As String, L As Integer, i As Integer L = Len(s)

Do While L >= 1 st = Left(s, 1) If st > \

st = Asc(st) - 55 '\的ASCII码为65 End If

convert = convert + Val(st) * n ^ (L - 1) Print Val(st) * n ^ (L - 1) L = L - 1

s = Right(s, L) Loop End Function

5．执行下面程序，单击Command1后，则在窗体上显示的第一行内容是_______，第二行内容是________，最后一行的内容是__________。 Option Explicit

Private Sub Command1_Click()

Dim s As String, k As Integer, ch() As String Dim p As String, i As Integer

s = UCase(\ For i = 1 To Len(s)

If Mid(s, i, 1) <= \ p = p & Mid(s, i, 1) ElseIf p <> \ k = k + 1

ReDim Preserve ch(k) ch(k) = p p = \ End If Next i

For i = 1 To UBound(ch) If Len(ch(i)) <= 2 Then Call move_c(ch(i), 1) Else

Call move_c(ch(i), 2) End If Print ch(i) Next i End Sub

Private Sub move_c(s As String, k As Integer) Dim i As Integer, j As Integer, p As String * 1 For i = 1 To k

p = Right(s, 1)

For j = Len(s) - 1 To 1 Step -1 Mid(s, j + 1, 1) = Mid(s, j, 1) Next j

s = p & Right(s, Len(s) - 1) Next i End Sub

-5

6．下面程序的功能是求π的近似值，当第n项的绝对值小于10时终止计算。

?1111?1??????(?1)n?1?? 43572n?1Option Explicit

Private Sub Command1_Click()

Dim n As Long, s As Single, t As Single, pi As Single Const eps = 0.00001 n = 1 t = 1 s = 0 Do

s = s + t n = n + 1

t=__________ loop until __________ pi = s * 4

label1.Caption = \π的近似值为：\ text1 = pi

End Sub

7．下面程序的功能是：找出满足以下条件的三位整数，不含数字0；且任意交换数字位置所得到的数，均能被6整除。 Option Explicit

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, st As String Dim a(6) As Integer For i = 100 To 999

If ___________________Then For j = 1 To 6

If a(j) Mod 6 <> 0 Then Exit For Next j

If___________ Then st = st & Str(i) k = k + 1

If k Mod 3 = 0 Then st = st & vbCrLf End If End If Next i Text1 = st End Sub

Private Function fj(a() As Integer, s As String) As Boolean Dim n As Integer, i As Integer, j As Integer If InStr(s, \ ________________ End If

For i = 1 To 3 For j = 1 To 2 n = n + 1

_____________________

s = Left(s, 1) & Right(s, 1) & Mid(s, 2, 1) Next j

s = Right(s, 1) & Left(s, 2) Next i fj = True End Function

8．下面程序的功能是求两个特大整数之和，由于VB中能够表示的整数大小有一定的限制，所以必须用新的方法求特大整数之和。本程序将特大整数使用字符类型进行处理，其中函数add由于求两个1位整数之和，参数c用于保存进位。注意：求和前需先将两个整数按位对齐。 Option Explicit

Private Sub Command1_Click()

Dim s1 As String, s2 As String, s3 As String Dim i As Integer, n1 As Integer, n2 As Integer Dim c As Integer, n As Integer s1 = Text1: s2 = Text2

n = ____________________

If Sgn(n) > 0 Then

s2 = ________________________ ElseIf Sgn(n) < 0 Then

s1 = String(Abs(n), \ End If

For i = Len(s1) To 1 Step -1 n1 = Val(Mid(s1, i, 1)) n2 = Val(Mid(s2, i, 1)) s3 =__________________ Next i

If c <> 0 Then s3 = ___________ Text3 = s3 End Sub

Private Function add(x As Integer, y As Integer, c As Integer) As String add = CStr((x + y + c) Mod 10) ______________________ End Function

9．下面程序的功能是：找出各位数字互不相同，且其6倍数仍由不组成该数的数字构成的六位整数。例如：126873的6倍数是761238，就是符合条件的数。

提示：程序中用a、b数组来标示数组元素下标值对应的数字是否出现在六位整数中。例如2出现在某六位整数中，则a(2)的值为1。 Option Explicit

Private Sub Command1_Click()

Dim i As Long, i2 As Long, flag As Boolean Dim a(0 To 9) As Integer, b(0 To 9) As Integer For i = 100000 To 160000 Call validate(i, a, flag) If flag Then i2 = i * 6

Call validate(i2, b, flag)

If flag And compare(a, b) Then

List1.AddItem i & \ \ End If End If Next i End Sub

'验证一个数是否由不同数字组成

Private Sub validate(n As Long, a() As Integer, f As Boolean) Dim p As Integer, i As Integer Erase a f = False

For i = 1 To Len(CStr(n)) p = _______________ If a(p) = 1 Then Exit Sub Else

______________ End If Next i

__________________ End Sub

'判断两个数是否由相同数字组成

Private Function compare(a() As Integer, b() As Integer) As Boolean Dim j As Integer compare = False

For j = 1 To UBound(a) If a(j) <> b(j) Then

______________________ End If Next j

compare = True End Function

2010年秋

第一部分 计算机基础知识

1.微电子技术是信息技术领域中的关键技术,它以集成电路为核心.下列有关集成电路的叙述中,错误的是 ___(1)___

A. 现代集成电路使用的半导体材料只能是硅(Si),不能使用其它任何半导体材料 B. 集成度是指集成电路包含的电子元件数目,可分为SSI、MSI、VLSI等 C. Moore定律指出,单块集成电路的集成度平均18--24个月翻一番

D. 我国第二代身份证中嵌入了集成电路芯片,可以实现电子防伪和数字管理功能

2. 数据传输速率是数据通信中重要的性能指标。Gb/s是数据传输速率的计量单位之一,其正确含义是 ___(2)___ 。

A.每秒兆位 B.每秒千兆位 C.每秒百兆位 D.每秒百万位

3.所谓\变号操作\是指将一个整数变成绝对值相同但符号相反的另一个整数。假设使用补码表示的8位整数x=10010101,则经过变号操作后结果为___(3)___.

A.01101010 B.00010101 C.11101010 D.01101011 4.下列有关PC机主板的叙述中,错误的是 ___(4)___ 。 A. 主板的物理尺寸没有标准,各厂家均可自行定义

B. 主板上包含芯片组,它是PC机各组成部分相互连接和通信的枢纽 C. 主板上包含BIOS和CMOS芯片

D. 主板上包含CPU插座、内存条插槽及其它类型的插槽

5. 下列有关PC机中央处理器(CPU)和内存(内存条)的叙述中,正确的是 __(5)____ .

A.PC机所采用的CPU都是Intel公司生产的Pentium系列芯片,其它厂商生产的CPU都与之不兼容 B.目前已有双核的微处理器(例如Core 2 Duo),但还没有四核的微处理器 C. 通常来说,DRAM的速度比SRAM的存取速度慢

D. 一般来说,一个内存条上仅有一个DRAM或SRAM芯片

6. 下列有关PC机I/O总线与I/O接口的叙述中,错误的是 __(6)____ . A. 目前PC机中协调与管理总线操作的总线控制器包含在主板上的芯片组中 B. 总线最重要的性能是数据传输速率,其单位通常为MB/s或GB/s

C. SATA接口的数据传输速率通常低于USB 2.0的数据传输速率 D. USB连接器有4个引脚,其中一个引脚连接+5V电源

7. 下列有关PC机常用I/O设备的叙述中,错误的是__(7)____。

A. 目前台式机键盘通常有一百零几个按键,笔记本电脑的键盘有八十几个按键 B. 目前流行的鼠标是光电鼠标,其与主机的接口有PS/2与USB两种 C. 宽屏LCD显示器的宽高比为16：9或16：10

D. 打印速度是打印机的重要性能指标,速度单位通常为dpi

8. 下列有关PC机外存储器的叙述中,错误的是___(8)___ 。

A. 目前硬盘的盘片大多为3.5、2.5或1.8英寸,一个硬盘中可有一个或多个盘片 B. 目前有些u盘可以模拟硬盘和光盘存储器启动操作系统

C. 目前光盘存储器主要分为CD、DVD和BD三种,它们均采用红外激光进行读写 D. 目前光驱的速率通常用多少倍速表示

9. 下列有关计算机软件的叙述中,错误的是___(9)___. A. 软件一般是指程序及其相关的数据和文档资料

B. 从软件的用途考虑,软件可以分为系统软件和应用软件,主要的系统软件有操作系统、语言处理系统和数据库管理系统等。

C. 从软件的权益来考虑,软件可以分为商品软件、共享软件和自由软件,共享软件和自由软件均为无版权的免费软件

D.Linux是一种系统软件、自由软件

10.到目前以止,Windows系列操作系统已推出多个版本。在下列版本中,最新的Windows版本是___(10)___ A. Windows7 B. Windows Me C. Windows XP D. Windows Vista 11.下列有关Windows XP操作系统功能的叙述中,错误的是___(11)___. A. 系统通过\时间片”轮转策略支持多任务处理 B. 系统利用SPOOLing技术进行存储管理

C. 在设备管理中引入了缓冲技术,以减少I/O操作的等待时间 D. 系统支持PnP功能,并按ACPI标准进行电源管理

12.在因特网中某台主机的IP地址为20.25.30.8,子网掩码为255.255.255.0,那么该主机的主机号为 ___(12)___ 。

A. 20 B. 25 C. 30 D. 8

13.局域网中需要传输的数据必须预先组织成若干数据帧,每一数据帧的格式如下图所示：上图中最末部分\”表示的是___(13)___ 。

? 发送计算机地址 目的计算机地址 编号 有效载荷

A.协议信息 B.校验信息 C.冗余信息 D.结束标志

14.目前网络用户接入因特网有多种方式,例如ADSL、HFC等。通过HFC接入因特网时采用的网络是___(14)____。

A. 有线电话网 B. 有线电视网 C. 无线局域网 D. 移动电话网 15.下列网络协议中,直接与电子邮件传输相关的网络协议是___(15)___。 A.FTP B.SMTP C.TELNET D.NNTP

16.下列有关计算机中文本与文本处理的叙述中,错误的是 ___(16)____ A. 西文字符主要是采用ASCII字符集,基本ASCII字符集共有256个字符

B. 我国最早采用的汉字字符集是GB2312,包含6000多个汉字和若干个非汉字字符 C. 无论采用何种方式输入汉字,在计算机中保存时均采用统一的汉字内码

D. 简单文本和丰富格式文本中字符信息的表示相同,区别在于格式信息的表示 17.彩色图像所使用的颜色描述方法称为颜色模型(即颜色空间)。下列四种颜色模型中,彩色喷墨打印机使用的是___(17)___.

A. RGB B. HSB C. YUV D. CMYK

18.文件的扩展名用于标记文件的类型,用户应该尽可能多地知晓各类文件的扩展名,下列文件中,属于数字声音的文件是______ A. ABC.RM B. ABC.WMA C. ABC.MKV D. ABC.SWF

19.信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、系统实施和系统维护等几个阶段。下面各项工作中,属于系统实施阶段的是___(19)___ A.问题定义 B.可行性研究 C.系统测试 D.绘制E-R图

20.下列有关Micmsoft Word 2003和Microsoft Excel 2003软件的叙述中,错误的是___(20)___ A. 利用Word软件编辑文档,可以将其保存为TXT、DOC、RTF和HTM格式文件 B. 利用Word软件编辑文档时,可以统计选定文本的字符数

C. 在Excel软件中,可以打开(导入)TXT、DBF、HTML格式的文件(数据) D. Excel文件可以设置打开权限密码,但不可以单独设置修改权限密码

第二部分Visual Basic程序设计

一、选择题(用答题卡答题,答案依次填在21--30答题号内) 21.以下有关事件过程的说法中,正确的是___(21)___ A.所有的事件过程都是Sub子过程 B.所有的事件过程都没有参数

C.所有的事件都是由用户的操作直接引发的 D.事件过程不能使用Call语句调用执行 22.以下语句中,正确的是___(22)___ 。 A.List1.AddItem x,\ B.Picture1.Print x,\C.Text1.Text=x,\ D.Label1.Caption=x,\23.以下有关VB程序书写规则的说法中,错误的是___(23)_____ A.一行可以书写多条语句,语句间用\分隔

B.使用注释时,\可与注释语句定义符\互换使用 C.过长的语句,可使用续行标志\分写在多行上

D.代码输入时,可不用区分字母大小写,系统会将\保留字\首字母自动改为大写

24.设变量I和J是整型变量,K是长整型变量。I已赋值32763,J和K分别赋值5,若接着执行以下语句,可正确执行的是___(24)___。 A.I=I+K B.J=I+K C.K=I+J+K D.K=K+I+J 25.以下关系表达式中,运算结果为False的是 ___(25)___ A.CInt(3.5)-Fix(3.5)>=0 B.CInt(3.5)-Int(3.5)>=0 C.int(3.5)+int(-3.5)>=0 D.int(3.5)+fix(-3.5)>=0 26.以下字符运算表达式中,其功能与函数Mid(s,i,i)相同的是___(26)___ 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)

ex?sin3x27.数学表达式xy?的VB算术表达式为____(27)____

x?y3A.Sqr(x*y^3)+Abs(Exp(x)+Sin(x)^3/(x-y)) B.Sqr(x*y^3)+Abs((Exp(x)+Sin(x)^3)/(x-y)) C.Sqr(x*y^3)+Abs(Exp(x)+Sin(x)^3/x-y)

D.Sqr((x*y)^3)+Abs((Exp(x)+Sin(x)^3)/(x-y))

28.以下有关数组的说法中,错误的是___(28)___。 A.使用ReDim语句,可以改变任何数组的大小与维数 B.使用ReDim语句,可以定义一个新数组

C.使用ReDim语句重新定义动态数组时,维界表达式中可以采用变量 D.使用ReDim语句重新定义的新数组,既可比原数组大,也可比原数组小 29.以下有关Function过程的说法中,正确的是___(29)___。 A.函数名在过程中只能被赋值一次

B.如果在函数体内没有给函数名赋值,则该函数无返回值

C.如果在定义函数时没有说明函数的类型,则该函数是无类型的

D.执行函数过程中的Exit Function语句,将退出该函数,返回到调用点 30.以下有关文件用法的描述中,正确的是___(30)___ A.只有顺序文件在读写前需要使用Open语句打开 B.使用同一个文件号,可同时打开多个不同的文件

C.如果以Input方式试图打开一个不存在的顺序文件,则会出错

D.如果程序中缺少Close语句,即使程序运行结束,打开的文件也不会自动关闭 二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)

1.运行下面程序,单击CmdRun,在窗体上显示a的值是___(1)___;b的值是___(2)___;i的值是___(3)___ 。 Option Explicit

Private Sub CmdRun_Click()

Dim i As Integer,a As Integer,b As Integer a=1:b=10

For i=a To b Step a+1 a=a+1 b=b+1 i=i+1 Next i Print a,b,i End Sub

2.执行下面程序,单击Command1,数组元素a(3,2)的值是___(4)___,a(1,2)的值是___(5)___,a(2,3)的值是___(6)___。

Option Explicit Option Base 1

Private Sub Commandl_Click()

Dim n As Integer,i As Integer,j As Integer Dim a(3,3)As Integer,k As Integer n=3:k=1

i=n:j=(n+1)/2 a(i,j)=k

For k=2 To n*n i=i+1:j=j+1

If i>n And j<=n Then i=1

ElseIf i<=n And j>n Then j=1

ElseIf i>n And j>n Then i=i-2:j=j-1

ElseIf i<=n And j<=n And a(i,j)<>0 Then i=i-2:j=j-1

End If a(i,j)=k Next k For i=1 To n For j=1 To n

Pic1.Print Right(\ \ Next j Pic1.Print Next i End Sub

3.运行下面的程序,单击Cmd1,窗体上显示的第一行是___(7)___,第二行是___(8)___ ,最后一行是___(9)___。 Option Explicit

Private Sub Cmd1_Click() Dim A As Integer A=3

Call Sub1(A) Print A End Sub

Private Sub Sub1(X As Integer) X=X*2+1 If X<10 Then Call Sub1(X) End If X=X*2+1 Print X End Sub

4.执行下面程序,单击按钮CmdRun,窗体上显示的第一行结果是___(10)___,UBound(a)的值是___(11)___,其中a(1)的值为___(12)___。 Option Explicit

Private Sub CmdRun_Click() Dim St As String,i As Integer

Dim a() As String,j As Integer,k As Integer St=\ Call Sub1(St) Print St

For i=1 To Len(St)

For j=i+1 To Len(St)

If Mid(St,i,1)=Mid(St,j,1) Then Exit For Next j

If j>Len(St) Then k=k+1

ReDim Preserve a(k) a(k)=Mid(St,i,1) Print \ End If Next i

End Sub

Private Sub Sub1(S As String) Dim i As Integer For i=1 To Len(S)\\2

Mid(S,i,1)=Mid(S,Len(S)-i+1,1) Next i End Sub

5.执行下面程序,在文本框Text1中输入\23 2 3 5 17 54#\后,单击命令按钮Cmdl,数组元素A(1)的值是___(13)___,A(3)的值是___(14)___,A(5)的值是___(15)___。 Option Explicit

Private Sub Cmd1_Click()

Dim A() As Integer,K As Integer Dim L As Integer,S As String S=Text1 Do

K=K+1

ReDim Preserve A(K) L=InStr(S,\ If L<>0 Then

A(K)=Val(Left(S,L-1)) S=Right(S,Len(S)-L) Else

A(K)=Val(S) End If

Loop Until L=0 Call Exchang(A) For K=1 To 7

Text2=Text2 & A(K) & \ Next K End Sub

Private Sub Exchang(A() As Integer) Dim i As Integer,Tem As Integer Dim Point1 As Integer Point1=1

For i=1 To UBound(A) If A(i) Mod 3 =0Then Tem=A(i)

A(i)=A(Point1) A(Point1)=Tem Point1=Point1+1 End If Next i End Sub

6.本程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10^-6时结束计算。请完善本程序。

x2x4x6cos(x)?1???????ak

2!4!6!k?0?1,k?0?通用公式可知： a?? x2a?(?1),k?1?k?1(2k?1)(2k)? Option Explicit

Private Sub Command1_Ciick()

Dim S As Single,T As Single,K As Integer,x As Single Const eps As Single=0.000001 x=Val(Text1) ___(16)___ S=1 T=1 Do

T= ___(17)___ S=S+T K=K+1

Loop While ___(18)___ Text2=S EndSub

7.本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。 Option Explicit

Private Sub CmdRun_Click()

Dim m As Integer,sum As Integer,st As String Dim i As Integer,j As Integer,k As Integer m=Text1

For i=1 To m-1 ___(19)___ For j=i To m

sum=___(20)___ If sum=m Then

st=\ 'st赋以空值 For k=i To j

st= ___(21)___ Next k

List1.AddItem Left(st,Len(st)-1) End If Next j Next i End Sub

8.本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字\中\的区位码是5448,即\中\的区号是54,位号是48。将区号与位号分别加上160,再转换成十六进制数形式,就是\中\

的机内码。请完善本程序。 Option Explicit

Private Sub CmdChange_Click() Dim qw As String,jn As String qw=Text1

Text2=qw2jn(qw) End Sub

Private Function qw2jn(st As String) As String Dim n1 As Integer,n2 As Integer n1=Val(Left(st,2))+160 n2=___(22)___

qw2jn=d2h(n1) & d2h(n2) End Function

Private Function d2h(d As Integer) As String Dim p As Integer,q As String*1 Do

p= ___(23)___ If p>9 Then q=Chr(55+p) Else

q=CStr(p) EndIf

___(24)___ d=d\\16

Loop Until ___(25)___ End Function

9.本程序的功能是查找一组数据中的众数。所谓众数,就是在这组数据中出现次数最多的数.注意:一组数据中的众数可能有多个.(即有多个数据的出现次数相同)。事件过程Cmdfind主要功能是生成n个随机整数存入数组,再调用Freq过程,求出数组中每个不相同的数据出现的次数:再求出其中最大的出现次数值,最后,将求出相应的众数输出。请完善本程序。 Option Explicit Option Base 1

Private Sub Cmdfind_Click()

Dim a() As Integer,n As Integer,i As Integer

Dim Shu() As Integer,Cs() As Integer,Max As Integer n=InputBox(\输入数据个数:\查找众数\ ReDim a(n) Randomize For i=1 To n

a(i)=Int(Rnd*5)+5

Text1=Text1 & Str(a(i))

If i Mod 10=0 Then Text1=Text1 & vbCrLf Next i

Call Freq(a,Shu,Cs) Max=Cs(1)

For i=2 To UBound(Cs)

If Cs(i)>Max Then ___(26)___ End If Next i

For i=1 To UBound(Cs)

If ___(27)___ Then Text2=Text2 & Shu(i) & \ Next i End Sub

Private Sub Freq(a() As Integer,Shu() As Integer,Cs() As Integer) 'shu数组用于存放A数组中不相同数据的值 'Cs数组用于存放对应不相同数据出现的次数

Dim i As Integer,j As Integer,js As Integer,n As Integer For i=1 To UBound(a) js=1

For j=1 To n '搜索数组a中不相同的数据 If Shu(j)=a(i) Then Exit For Next j

If ___(28)___ Then n=n+1

ReDim ___(29)___ Shu(n)=a(i)

For j=i+1 To UBound(a)

If a(j)=a(i) Then ___(30)___ Next j Cs(n)=js

List1.AddItem a(i) & \ End If Next i End Sub

2011年春

第一部分 计算机基础知识

1．下列有关通信技术的叙述中，错误的是___(1)___ 。

A．无论是模拟通信还是数字通信，目前都是通过载波技术实现远距离的信息传输 B．多路复用技术可以降低信息传输的成本，常用的多路复用技术有TDM和FDM C．卫星通信属于微波通信，它是微波接力通信技术和空间技术相结合的产物 D．目前3G移动通信有多种技术标准，我国三大电信运营商均采用同一标准

2．使用存储器存储二进位信息时，存储容量是一项很重要的性能指标。存储容量的单位有多种，下面不是存储容量单位的是___(2)___ 。 A．TB B．XB C．GB D．MB

3．设有补码表示的两个单字节带符号整数a＝01001110和b＝01001111，则a-b的结果用补码表示为___(3)___ 。 A．11111111 B．10011101 C．00111111 D．10111111 4．下列有关PC机主板上的BIOS和CMOS的叙述中，错误的是___(4)___ 。

A．BIOS芯片是一块闪烁存储器，其存储的信息关机后不会丢失 B．BIOS中包含加电自检程序、系统自举程序等 C．CMOS芯片属于易失性存储器，它使用电池供电

D．CMOS中存放着与硬件相关的一些配置信息，以及CMOS设置程序

5．下列有关PC机中央处理器（CPU）和内存（内存条）的叙述中，错误的是___(5)___ 。 A．目前PC机所使用的Pentium和Core2微处理器的指令系统有数百条不同的指令 B．所谓双核CPU或四核CPU，是指CPU由两个或四个芯片组成

C．DDR内存条、DDR2内存条在物理结构上有所不同，例如它们的引脚数目不同 D．通常台式机中的内存条与笔记本电脑中的内存条不同，不能互换

6．下列有关PC机I／O总线与I／O接口的叙述中，正确的是___(6)___ 。 A．PC机中串行总线的数据传输速率总是低于并行总线的数据传输速率 B．SATA接口主要用于连接光驱，不能连接硬盘

C．通过USB集线器，一个USB接口理论上可以连接127个设备 D．IEEEl394接口的连接器与USB连接器完全相同，均有6根连接线

7．蓝光光盘(BD)是全高清影片的理想存储介质，其单层盘片的存储容量大约为___(7)___ 。 A．4.7GB B. 8.5GB C．17GB D．25GB 8．下列有关PC机常用I／O设备(性能)的叙述中，错误的是___(8)___。

A．通过扫描仪扫描得到的图像数据可以保存为多种不同的文件格式，例如JPEG、TIF等 B．目前数码相机的成像芯片均为CCD类型，存储卡均为SD卡

C．刷新速率是显示器的主要性能参数之一，目前PC显示器的刷新速率一般在60Hz以上 D．从彩色图像输出来看，目前喷墨打印机比激光打印机有性价比优势 9．下列有关计算机软件的叙述中，错误的是___(9)___ · A．软件的主体是程序，单独的数据和文档资料不能称为软件

B．软件受知识产权(版权)法的保护，用户购买软件后仅得到了使用权 C．软件的版权所有者不一定是软件的作者(设计人员) D．共享软件允许用户对其进行修改，且可在修改后散发

10．PC机从硬盘启动Windows XP操作系统是一个比较复杂的过程·在这个过程中，它需要经过以下这些步骤：

I．装入并执行引导程序 Ⅱ．读出主引导记录

Ⅲ．装入并执行操作系统 Ⅳ．加电自检

在上述步骤中，正确的工作顺序是___(10)___ A．I、Ⅱ、Ⅲ、Ⅳ B．Ⅳ、I、lI、Ⅲ C．Ⅳ、II、I、Ⅲ D．Ⅳ、Ⅲ、II、I 11．下列有关算法和程序关系的叙述中，正确的是___(11)___ A．算法必须使用程序设计语言进行描述 B．算法与程序是一一对应的 C．算法是程序的简化 D．程序是算法的具体实现

12．采用ADSL方式接入因特网时，ADSLModem将电话线传输信道分为三个信息通道：语音通道、上行数据通道、下行数据通道。下列有关这三个信息通道的叙述中，错误的是 ___(12)___ · A．语音通道的频带最宽、采用的频率最高，以保证电话通话的质量 B．通常上行数据通道的数据传输速率低于下行数据通道的数据传输速率 C．ADSL的数据传输速率是根据线路情况自动调整的

D．这三个信息通道可以同时工作，即可以同时传输信息(数据)

13．无线局域网是以太网与无线通信技术相结合的产物，其采用的网络协议主要是IEEE制订的___(13)___ 。

A．IEEE 802.3 B．IEEE 802.11 C．IEEE 1394 D．IEEE 1394b

14．在因特网中目前主要采用IPv4协议，IP地址长度为32位，只有大约36亿个地址。新的第6版IP协议(IPv6)已经将IP地址的长度扩展到___(14)___ 位，几乎可以不受限制地提供地址。 A．48 B．64 C．128 D．256

15．因特网由大量的计算机和信息资源组成，它为网络用户提供了非常丰富的网络服务。下列与www服务相关的叙述中，错误的是___(15)___ 。 A．WWW采用客户机／服务器工作模式 B．网页到网页的链接信息由URL指出 C．浏览器是客户端应用程序 D．所有的网页均是HTML文档

16．目前Windows操作系统支持多种不同语种的字符集，即使同一语种(例如汉语)也可有多种字符集。下列字符集中，不包括“臺”、“灣”等繁体汉字的是___(16)___ 。 A．GBK B．Big5 C．GB2312 D．GBl8030 17．下列与数字图恸图形相关的叙述中，错误的是___(17)___ 。

A．彩色图像在数字化过程中需进行分色处理，然后对不同的基色进行取样和量化 B．如果某RGB图像的像素深度为12，则可表示的颜色数目为212

C．数码相机常用JPEG格式保存图像文件，该格式的图像大多采用有损压缩编码 D．图形是计算机合成的图像，也称为矢量图形

18．文件的扩展名用于标记文件的类型，用户应该尽可能多地知晓各类文件的扩展名。下列文件中，属于数字视频的文件是___(18)___ A．ABC．RMVB B．ABC．DLL C．ABC．PDF D．ABC．MIDI 19．下列几种类型的系统软件中，不属于计算机集成制造系统(CIMS)范畴(或者说,与CIMS无直接关系)的是___(19)___。 A．GIS B．CAM C．MRP D．ERP

20．下列有关Microsoft PowerPoint 2003和Microsoft FrontPage 2003软件的叙述中，错误的是 (20) 。 A．型用PowerPoint编辑演示文稿时，可以将每张幻灯片保存为JPEG图片 B．利用PowerPoint编辑演示文稿时，可以录制声音。

C．利用FrontPage制作网页时，无法直接查看网页的HTML代码 D．利用FrontPage制作网页时，背景图片可以设置为“水印”效果

第二部分 Visual Basic程序设计

一、选择题(用答题卡答题，答案依次填在21—30答题号内) 21．以下说法中，正确的是 (21 ) 。

A．属性是对象的特征，所有的对象都有相同的属性 B．属性值只能在属性窗口中设置

C．在程序中可以用赋值语句给对象的任何一个属性赋值 D．对象的运行时属性不出现在对象属性窗口中 22．下面4个语句中，错误的是___(22)___。 A．N=InputBox(“输入N:”, ,5) B.InputBox(“输入N:”, ,5) C．MsgBox “请回答” D．K=MsgBox(“请回答”) 23．若设X=1,Y=2，则不能在窗体上显示出”A=3”的语句是___(23)___。 A．Print A=X+Y B．Print “A=”；X+Y C．Print “A=” +Str(X+Y) D．Print “A=” & X+Y 24．表达式InStr(4,”abcabca”，”c”)+Int(2.5)的值为___(24)___。 A．7 B．8 C．5 D．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，逻辑表达式ab Xor c

29.在窗体Form1中用“Public Sub Fun(x As Integer,Y As Single)”定义过程Fun，在窗体Form2的某事件过程中定义了变量I和J均为Integer，若要在此过程中调用Form1中的Fun过程，则下列语句中正确的___(29)___ 。 A．Call Fun(I，J) B．Call Forml.Fun(I，J) C．Fun I，(J) D．Form1.Fun 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=4 b=3

Do Until a>10 b=b／2 Do Until b>10 a=(a+b)\\2+b b=b+5 Print a,b Loop a=a-3 Loop End Sub

2．执行下面程序，当单击Cmd1时，在窗体上显示的第一行内容是___(4)___第二行的内容是___(5)___，第四行的内容是___(6)___ 。 Option Explicit

Private Sub Cmd1_Click()

Dim a As Integer,b As Integer a=1 b=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=3

i=1：j=n

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 Else

i=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 Print Next i End Sub

4．运行程序，在文本框Text1中输入用空格分隔的4位二进制数1001、0101和0110。单击“处理”按钮，在多行文本框Text2中第一行显示___(10)___，第二行显示___(11)___，第三行显示___(12)___。 Option Explicit

Private Sub Cmd1_Click0

Dim S(3) As String，n As Integer Dim i As Integer,k As Integer k=1

For i=1 T0 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)) Else n=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 Command1_Click() Dim n As Integer For n = 4 To 7

If Fun1(n, Sqr(n)) Then Print n; \ Else

Print n; \ 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) Else

Fun1 = False End If End Function

6．下面程序的功能是求S的值。

s?(x?1)(x?1)(x?2)(x?1)(x?2)(x?3)(x?1)(x?2)?(x?k)??????? (x?1) 23kx1?3?x1?3?5?x1?3?(2k?1)?x计算到第k项的值小于等于10-6为止。请完善本程序。

Option Explicit

Private Sub CmdSum_Click()

Dim s As Single，x As Single，k As Integer,t As Single

x=CSng(Text1.Text) ___(16)___

DO t=pt(x，k) s=s+t k=k+1

Loop Until t<=0.000001 Text2.Text=CStr(s) End Sub

Private Function pt(x As Single，n As Integer)As Single Dim iAs Integer ___(17)___

For i=1 To n

pt=___(18)___ Next i pt=pt/x^n End Function

7．下面程序的功能是，找出100---999之间具有以下特点的整数：其全部真因子(1和自身除外的因子)中，所有素数因子之和的2倍等于其余因子的和数．请完善本程序。 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim i As Long，J As Long，m As Integer,st As String Dim a() As Integer For i=100 To 999 ___(19)___

For j=2 To i-1

If i Mod j=0 Then m=m+1 ___(20)___ a(m)=J End If

Next j

If m>O Then

If yzh(a，st) Then List1.AddItem i & “:” & st End If Erase a Next i End Sub

Private Function yzh(a() As Integer,st As String)As Boolean Dim i As Integer,j As Integer

Dim suml As Long，sum2 As Long，stl As String，st2 As String For i=1 To UBound(a)

For j=2 To Sqr(a(i))

If a(i) Mod j=0 Then Exit For Next j

If ___(21)___ Then sum1=sum1+a(i)

st1=st1 & a(i) & ”+”

EIse sum2=sum2+a(i) st2=st2 & a(i) & ”+” End If

Next i

If sum1*2=sum2 Then ___(22)___ st=”(“ & Left(st1，Len(st1)-1) & “)*2=” & Left(st2,Len(st2)-1)

End If End Function

8．本程序的功能是求-128～+127之间整数n的8位2进制补码。采用的算法是：若n≥0，则直接将其转换为相应的7位2进制数，前面的符号位设定为“0”；若n<0，则将n+128转换为相应的7位2进制数，前面的符号位设定为“1”。请完善本程序。 Option Explicit

Private Sub Command1_Click0 Dim dec As Integer

dec=Textl

If ___(23)___ Then

MsgBox “无效数据，请重输!”, ,”求补码” Text1=””

Text1．SetFocus

Else Text2=bm(dec) End If End Sub

Private Function bm(n As Integer) As String If Sgn(n)>=0 Then bm=”0”& d2b(n) Else n=n+128 bm=___(24)___ End If End Function

Private Function d2b(n As Integer)As String Dim p As Integer Do p=n Mod 2 d2b=CStr(p) & d2b n=n\\2

Loop Until ___(25)___

d2b=Right(”000000”& d2b，7) End Function

9．本程序的功能是，按从大到小的次序给一组正整数标记序次。程序的算法是：先找出原数组中所有的最大数，假如有n个最大数，它们序次均标记为1，已处理的数据值改为-99：再找出所有的次大数，它们的序次标记为n+1??直到所有数据处理完毕。请完善本程序。(说明：数组sn用于存放数组a中相应的各个元素的序次，数组b用来保留原始数据) Option Explicit Option Base 1

Private Sub Cmd1_Click()

Dim a(10)As Integer,sn(10)As Integer,b(10)As Integer,i As Integer For i=1 To l0

a(i)=Int(Rnd*61)+40 b(i)=___(26)___

Text1=Text1 & Str(a(i))

Next i

Call order(a，sn) For i=1 To 10

List1.AddItem b(i) & “—“ & sn(i) Next i End Sub

Private Sub order(a() As Integer,sn() As Integer) Dim i As Integer,j As Integer

Dim n As Integer,maxi As Integer i=1

Do While i<=UBound(a) n=___(27)___

maxi=a(1)

For J=2 To UBound(a) If ___(28)___ Then maxi=a(j) End If Next j

For j=1 To UBound(a) If ___(29)___ Then sn(j)=i a(j)=-99 n=n+1 End If Next j

i=___(30)___ Loop End Sub

2011年秋VB

第一部分 计算机基础知识

1．下列有关信息、信息处理、信息技术的叙述中，错误的是____________。 A．信息与物质、能量是客观世界的三大构成要素

B．与信息处理相关的行为和活动主要指信息的分类、计算、分析等，但不包含信息的收集和传递 C．现代信息技术的主要特征之一是以数字技术未基础 D．计算机技术、通信技术均属于信息技术

2．下列有关数字技术与微电子技术的叙述中，错误的是____________。

A．数字技术是采用有限个状态（主要是两个状态）来表示、处理、存储和传输信息的技术 B．比特是信息的基本单位，1个比特可以表示8位二进制数 C．集成电路芯片是微电子技术的结晶，是现代信息产业的基础

D．Moore定律是指“单块集成电路的集成度平均每18-24个月翻一番” 3．下列有关计算机发展与分类的叙述中，错误的是____________。

A．数字电子计算机诞生于20世纪40年代，个人计算机（微型计算机）产生于20世纪80年代 B．第4代计算机的CPU主要采用中小规模集成电路，第5代计算机采用超大规模集成电路

C．计算机分类有多种方法，按其内部逻辑结构通常分为16位机、32位机或64位机等，目前使用的PC机大多位32位机或64位机

D．巨型计算机一般采用大规模并行处理的体系结构，我国国防科技大学研制的“天河1号”巨型计算机，其性能可在全球巨型机排行榜中位居前10名

4．下列有关PC机微处理器的叙述中，错误的是____________。 A．目前PC机所用的各种微处理器均有Intel公司设计和生产 B．微处理器通常由单片集成电路制成

C．一太高性能PC机中通常包含多个微处理器

D．台式PC机与笔记本PC机采用的微处理器通常有所不同

5．下列有关PC机主板与芯片组的叙述中，错误的是____________。 A．台式PC机主板的物理尺寸已经标准化

B．有些主板将声卡、网卡、显卡的功能均集成在其中

C．芯片组是PC机各组成部分相互连接和通信的枢纽，它们与CPU芯片以及I/O接口同步发展 D．PC机主板上可安装的内存条类型及内存最大容量与芯片组无关

6．下列是PC机常用的四种外设接口，其中适用于连接硬盘和光驱的是____________。 A．RS-232 B．SATA C．IEEE-1394 D．VGA 7．下列有关显示器、显卡、打印机的叙述中，错误的是____________。 A．目前常见的“宽屏”LCD显示器，其屏幕的宽度与高度之比为4：3 B．对于集成显卡来说，显卡的功能主要是由主板上的芯片组来实现

C．无论是针式打印机，还是激光/喷墨打印机，均有黑白打印机与彩色打印机之分 D．打印机的主要性能指标之一是打印速度，其单位为PPM 8．下列有关光盘存储器的叙述中，错误的是____________。

A．DVD光盘刻录机可以刻录的光盘有CD-R、CD-RW、DVD-R和DVD-RW等类型 B．组合光驱（“康宝”）组合了CD刻录机与DVD刻录机的功能 C．蓝光光驱（BD）使用蓝色激光在光盘上读写信息

D．光盘刻录机的读/写速度通常是不同的，一般来说读取信息的速度快于刻录的速度

9．按照软件著作权益的处置方式，软件可以分为商品软件、共享软件、自由软件等类型。在下列相关叙述中，错误的是____________。

A．商品软件需要用户付费才能得到其使用权

B．共享软件是具有版权的软件，允许用户有条件的使用

C．自由软件允许使用者随意拷贝、传播，允许修改其源代码但必须公开修改内容 D．共享软件、自由软件均属于免费软件

10．下列有关Windows操作系统的叙述中，错误的是____________。 A．Windows XP和Windows 7均分为32位版本和64位版本 B．一般来说，能安装Windows 7的PC机也能安装Windows XP

C．无论是Windows XP还是Windows 7，其家庭版（基本版）均不支持多核处理器 D．目前来看，Windows比UNIX更容易受到病毒的侵扰 11．在下列有关算法的叙述中，错误的是____________。 A．通俗地说，算法就是解决问题的方法和步骤 B．算法总是在执行了有限步的操作后终止

C．程序是算法的实现，程序与算法是一一对应的

D．算法解决的往往是一类问题而不是一个特定的问题

12．下列有关Microsoft Office 2000（及其后续版本）的叙述中，错误的是____________。 A．由Word创建的文档，用户可以直接将其保存为HTML文件（即网页） B．在Excel中，用户可以直接打开一些数据库中的表文件（例如DBF文件） C．在FrontPage的“代码”视图中，用户可以直接对HTML网页进行编辑 D．在Access数据库中，每个表可以有多个主键

13．下列是与通信传输介质相关的叙述中，其中错误的是____________。 A．目前家用的电话线属于五类双绞线

B．目前入户的有线电视电缆属于宽带同轴电缆

C．光纤是光导纤维的简称，光纤的纤芯是细石英玻璃丝

D．微波是一种电磁波，它具有类似光波的特性，在空间主要是直线传播

14．因特网中的IP地址可以分为A类、B类、C类、D类等。在下列4个IP地址中，属于C类地址的是____________。 A．28.129.200.19 B．88.129.200.19 C．188.129.200.19 D．222.129.200.19 15．在下列有关IP地址与域名的叙述中，错误的是____________。 A．目前使用的IP协议主要是Ipv4协议，其IP地址长度为32位

B．因特网是多个网络互联而成的，不同网络中的主机可以具有相同的IP地址 C．域名是IP地址的文字表述形式，但步是所有的IP地址均有相应的域名 D．一个IP地址可以有多个对应的域名

16．通常所说的TCP/IP协议，是指由100多个协议组成的协议系列（包含下列几个协议）。在下列协议中，发送电子邮件主要依赖____________。 A．HTTP协议 B．FTP协议 C．Telnet协议 D．SMTP协议 17．下列有关采用ADSL技术接入因特网的叙述中，错误的是____________。 A．计算机中需要安装（集成）以太网网卡 B．需要使用专用的ADSL MODEM设备

C．上行与下行传输速率相同，传输速率可达100Mbps D．可传送数据、音频、视频等信息

18．下列有关汉字字符集及其编码的叙述中，错误的是____________。

A．GB2312是我国颁布的第一个汉字编码国家标准，该标准包含了6000多个汉字 B．GB2312的所有字符在计算机内部都采用了2个字节来表示

C．GBK收录了包括繁体字在内的20000多个汉字和符号，它向下兼容GB2312 D．GB18030是我国最新颁布的汉字编码标准，它与GB2312和GBK均不兼容

19．语音在数字化时常用的取样频率为8kHz、量化位数为8bits。若声道数为2，则每分钟的数字语音数据

量在未压缩时大约为____________。 A．64KB B．128KB C．1MB D．2MB

20．数字图像文件有多种文件类型，不同类型的文件各有特点。在下列4中文件类型中，能够将多张图片保存在一个文件中且能产生动画效果的是____________。 A．BMP B．JPG C．GIF D．PNG

第二部分 Visual Basic程序设计

21．VB应用程序设计的一般步骤是____________。 A．分析?设计?界面?编码?调试 B．界面?设计?编码?分析?文档 C．分析?界面?编码?设计?调试 D．界面?编码?调试?分析?文档

22．若在程序运行时，需要将焦点主动设置到指定的对象上，应调用该对象的________方法。 A．Move B．SetFocus C．Refresh D．Drag

23．窗体通用声明部分的“Option Base 1”语句，决定本窗体中数组下标____________。 A．维下界必须为1 B．缺省的维下界为1 C．维下界不能为0 D．缺省的维下界为0 24．Select Case X结构中（X为Integer类型），如果判断条件为X=5，正确的Case语句应该是____________。 A．Case X=5 B．Case Is 5 C．Case 5 D．Case =5 25．表达式3 * 5 ^ 2 mod 23 \\ 3的值是____________。 A．2 B．5 C．6 D．10 26．数学表达式a?b对应的VB表达式是____________。 xc?d?e?ln(y)A．a*b/(sqr(c*d)*e^x*log(y)) B．a*b/(sqr(c*d)*exp(x)*log(y)) C．a*b/(sqr(c*d)*exp(x)*log(y)/log(10)) D．a*b/(sqr(c*d)*e^x*log(y) /log(10)) 27．以下说法中错误的是____________。

A．在过程中用dim、static声明的变量都是局部变量

B．执行过程时，给所有局部变量分配内存并执行初始化，过程执行结束，释放它们所占的内存 C．局部变量可与模块级或全局变量同名，且在过程中，其优先级高于同名的模块级或全局变量 D．在模块通用声明部分，可使用dim声明模块级变量或数组 28．以下有关数组的说法中，错误的是____________。 A．定义固定大小数组时，维界定义中不可以包含变量 B．可以使用常数或已经定义的符号常数说明数组的维界 C．定长字符串类型的数组不可以作为过程的形式参数 D．只能在标准模块中用public语句定义一个全局数组

29．下面有关自定义过程的说法中，错误的是____________。

A．可以用call语句调用自定义函数，也可以用函数名直接调用自定义函数 B．可以定义没有形式参数的sub过程和function过程

C．调用过程时，可以用常数或表达式作为实在参数与被调过程的按地址传递的形参结合

D．主调程序与被调用的函数过程之间，只能依靠函数名把被调用过程的处理结果传递给主调程序 30．以下关于msgbox函数的说法中，正确的是____________。 A．msgbox函数有返回值，且返回值类型为数值型 B．msgbox函数没有返回值

C．msgbox函数有返回值，且返回值类型为字符型

D．通过msgbox函数中的第一个参数，可以设置信息框中的图标以及按钮的个数与类型 二、填空题

1．执行下面程序，单击命令按钮command1，窗体上显示的第一行内容是_________，第二行内容是

___________，第三行内容是____________。 Option Explicit

Private Sub Command1_Click()

Dim a As Integer, b As Integer, i As Integer a = 1 b = 5

For i = b To a Step -1 a = a + i b = b + a

If b > 30 Then Exit For Print a, b Next i Print a, b End Sub

2．执行下面程序，单击命令按钮command1，最终a(2,2)的值是__________，a(3，1)的值是__________，a(4,2)的值是__________。 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim a(4, 4) As Integer, i As Integer, j As Integer, k As Integer For i = 1 To 4 For j = 1 To 4 k = k + 1 a(i, j) = k Next j Next i

Call transform(a) For i = 1 To 4 For j = 1 To 4

Text1 = Text1 & Right(\ \ Next j

Text1 = Text1 & vbCrLf Next i End Sub

Private Sub transform(a() As Integer)

Dim i As Integer, j As Integer, n As Integer, t As Integer, k As Integer n = UBound(a, 1) k = n + 1

For i = 1 To n / 2 For j = 1 To n

If i <> j And j <> k - i Then t = a(i, j)

a(i, j) = a(k - i, k - j) a(k - i, k - j) = t End If Next j

Next i End Sub

3．执行下面程序，单击命令按钮command1后，窗体上显示的第一行内容是_________，第二行内容是___________，第三行内容是____________。 Option Explicit

Private Sub Command1_Click()

Dim st As String, ch As String * 1, t As Integer Dim i As Integer

st = \ For i = 1 To Len(st) ch = Mid(st, i, 1)

If ch <> \ t = t * 10 + Val(ch) Else

If pd(t) Then Print t t = 0 End If Next i End Sub

Private Function pd(ByVal n As Integer) As Boolean Do While n <> 1

If n Mod 2 <> 0 Then Exit Function End If n = n \\ 2 Loop pd = True End Function

4．执行下面程序，单击命令按钮command1后，图片框picture1第一行显示内容是______，第二行显示内容是__________，最后一行显示内容是__________。 Option Explicit

Private Sub Command1_Click() Dim N As Integer, M As Integer M = 135 N = 8

Picture1.Print Fun(M, N) End Sub

Private Function Fun(ByVal N As Integer, ByVal R As Integer) As String Dim L As Integer If N < R Then Fun = N Else

L = N \\ R

Fun = Fun(L, R)

Fun = Fun & N Mod R End If

Picture1.Print N End Function

5．执行下面程序，单击命令按钮command1后，文本框text1中的第一行显示内容是______，第二行显示内容是__________，第三行显示内容是__________。 Option Explicit

Private Sub Command1_Click()

Dim s As String, Subs As String, P As Integer s = \ Do

P = InStr(s, \ If P <> 0 Then

Subs = Left(s, P - 1) Else

Subs = s End If

s = Mid(s, P + 1)

Text1 = Text1 & complement(Subs) & vbCrLf Loop Until Len(s) = 0 Or P = 0 End Sub

Private Function complement(s As String) As Integer Dim P As Integer, L As Integer L = Len(s)

If Left(s, 1) = 1 Then complement = -32 End If P = 1

Do Until P = 0

P = InStr(P + 1, s, \ If P <> 0 Then

complement = complement + 2 ^ (L - P) End If Loop End Function

6．本程序的功能是按公式求S的近似值（计算到第n项的绝对值小于等于10-7为止）。

1x31?3x51?3?5x7x2n?1n1?3?5?(2n?1)S?x?????????(?1)???

232?452?4?672?4?6?(2n)(2n?1)请完善程序。

Option Explicit

Private Sub Command1_Click()

Dim x As Single, n As Single, T As Single, S As Single x = Val(Text1) S = x Do

________________ T = afun(x, n)

S = S + T

Loop Until __________________ Text2 = Format(S, \End Sub

Private Function afun(x As Single, n As Single) As Single Dim i As Single, p As Single p = 1

For i = 1 To n

p =_______________________ Next i

afun = (-1) ^ n * p * x ^ (2 * n + 1) / (2 * n + 1) End Function

7．本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数，请完善程序。 Option Explicit

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer Dim p As Integer, q As Integer For i = 10 To 60

For j = 1 To Int(Sqr(i)) _________________ q = i - p

If q <> 0 And judge(q) Then Exit For Next j

If __________________ Then k = k + 1

Text1 = Text1 & i & \

If k Mod 5 = 0 Then Text1 = Text1 & vbCrLf End If Next i End Sub

Public Function judge(ByVal x As Integer) As Boolean If ___________________ Then judge = True Else

judge = False End If End Function

8．本程序的功能是：找出所有满足各位数字之和正好是其所有质因子之和的三位数。例如378，各位数字之和为18，而其质因子2，3，3，3，7之和也是18，所以378是满足条件的数。 Option Explicit

Private Sub Command1_Click()

Dim i As Integer, p As String, st As String, st1 As String For i = 100 To 999 ___________

If csum(i) = zyz(i, st) Then p = CStr(i)