2001年秋VB二级试（含答案）

2001年（秋）二级VB笔试卷参考答案

第一部分 计算机基础知识

1. 对于任意一个实数，在计算机内部都可以用____1____两部分来表示，这种表示实数的方法叫做“浮点表示法”。

A. 指数和尾数

B. 指数和基数

C.整数和指数

D.基数和小数

2. 目前计算机中使用最广泛的西文字符编码集是ASCII码集。在ASCII码表中，可打印（或显示）的字符有___2____个。

A. 55

B. 75

C. 95

D. 125

3. 在中文Windows95/98环境下，设有一串汉字的内码为 B5 C8 BC B6 BF BC CA D4，则这串文字包含有___3___个汉字。

A. 2

B. 4

C. 8

D. 18

4. 一台计算机中可以有“寄存器——快存——主存——辅存（磁盘）——后援（海量）存储器”五种不同层次的存储器。其中___4____的存取周期目前在毫秒级。

A. 快存

B.主存

C. 磁盘

D. 后援（海量）存储器

5. 以下是PC机所采用（过）的一些总线标准，其中___5____数据总线仅有16位宽。 A. MCA

B.ISA

C. EISA

D. PCI

6. 显示器是计算机重要的输出设备，它用红、绿、蓝三基色的组合来显示彩色，使用___6___位二进制z表示一个象素就可以表现出真彩色。

A. 8

B.16

C. 24

D. 32

7. 软件工程的思想就是使用工程化的概念、思想、方法和技术来指导软件开发的全过程。在软件的开发过程中，软件设计一般分为两步，即___7___。

A. 总体设计和详细设计 C. 流程设计和程序设计

B. 算法设计和程序设计 D. 结构设计和模块设计

8. 下列有关“计算机病毒”的叙述中，正确的是___8___。

A. 计算机病毒是一种对计算机系统造成一定损害的程序文件 B. 光盘（CD-ROM）虽然是只读型存储器，但也可能含有计算机病毒 C. 计算机病毒破坏机制的激活总是与日期或时间有关 D. “杀毒”软件（如KILL等）不可能被计算机病毒感染

9. ①Windows ME ② Windows CE ③ Windows NT ④ Frontpage 98 ⑤ Access 97 ⑥ Unix ⑦ Linux ⑧ MS-DOS 6.22 ⑨ OS/2，对于以上列出的9个软件，___9___均为操作系统软件。

A. ①②③ C. ①②③⑥⑧⑨

B. ①②③⑥⑧ D. ①②③⑥⑦⑧⑨

10. 在计算机网络中，目前不用中继设备时，传输距离最远的传输介质是___10___。

A. 双绞线

B. 同轴电缆

C. 红外线

D. 光缆

11. VCD盘上的视频和音频信号采用国际标准___11___进行压缩编码，它们按规定的格式交错地存放在光盘上，播放时需进行压缩处理。

A. MPEG-1

B. MPEG-2

C. MPEG-3

D. MPEG-4

12. 在多媒体计算机中，声音信息处理后通常保存为下列类型的文件，其中___12___类型的文件通常是音乐文件。

A. .WAV（文件大）

B. .SND

C. .MID

D. .AIF

13. 在使用Windows 98操作系统时，下列叙述中正确的是___13___。

A. FAT 32支持磁盘压缩 C. Windows 98仅支持FAT 16

B. FAT 16仅支持2GB以下的硬盘分区 D. Windows 98仅支持FAT 32

14. 在关机时如果未正常地关闭Windows 95/98，则下次开机后系统将首先自动地运行___14___。

A. 注册表检测程序 C. 磁盘碎片整理程序

B. 磁盘清理程序 D. 磁盘扫描程序

15. 剪贴板是Windows 提供的用于在不同应用程序间交换数据的工具。在Windows 95/98环境下，下列有关剪贴板的叙述中正确的是___15___。

A. 剪贴板中同时可以保存多次复制的信息 B. 只要剪贴板中有信息，则一定可以粘贴二次以上

C. 按组合键Alt+PrintScreen可以将当前屏幕以图片形式复制到剪贴板 D. 剪贴板中可以同时保存文本信息和图片信息

16. 在Windows95/98的环境下，下列叙述中正确的是___16___。

A. 利用“网上邻居”可以浏览网上其它计算机内的所有软件资源 B. 用户可以利用“控制面板”中的“添加/删除程序”来创建启动盘 C. 用户可以利用“控制面板”中的“字体”来设置汉字输入法特性 D. 运行DOS应用程序必须首先启动“MS-DOS”方式

17. 在WORD 7.0/97的编辑状态下，如果文档窗口有水平标尺，则说明当前的视图方式一定为_17___。

A. 普通视图方式 C. 大纲视图方式

B. 页面视图方式

D. 普通视图方式或页面视图方式

18. 用Word 7.0/97编辑的文档，不可以保存为文件扩展名为___18___的文件。

A. .RTF

B. .DOC

C. .HTM

D. .XML

19. Internet将所有入网主机的名字空间划分为许多不同的域，每个域又划分为若干个子域，子域又分成多个子域，主机名字即由一系列的“域”和“子域”组成。下列关于主机名字的叙述中，不正确的是___19___。

A. 所包含的子域名的个数通常不超过5个 B. 从左到右，子域的级别依次升高

C. 子域名之间可用“.”（点符号）或“/”（斜杠符号）进行分隔 D. DNS用于主机名字与IP地址之间的自动转换

20. 假设接入Internet的某用户的用户名为LIU213，提供电子邮件服务的服务器域名为public.ssis.soo.cn，则该用户相应的E-mail地址为__20___。

A. LIU213@public.ssis.soo.cn B. public.ssis.soo.cn@LIU213 C. LIU213@Mail.public.ssis.soo.cn D. LIU213@www.public.ssis.soo.cn

第二部分 Visual Basic 程序设计

（2001 年 秋季）

一、选择题（用答题卡答题，答案依次填在21-30答题号内）

21. 窗口上有多个控件，在 Form_Activate() 事件过程添加___21___语句，就可确保每次运行程序时，都将光标定位在文本框Text上。

A. Text1.Text=\ C. Form1.SetFocus

B. Text1.SetFocus D. Text1.Visible=True

22. 在程序中分别将变量Inta、Bl、St、D定义为整型、布尔形、字符串型和日期型，下列赋值语句在执行时会出错的是___22___。

A.Inta=4.6

B.Bl=#True#

C.St=5&123.5

D.D=#10/05/01#

23.代数表达式

对应的Visual Basic表达式是__23___。

A. Sqr((x+log(x))/(a+b))+exp(-2*t)+cos((x+y)/2) B. Sqr(x+log(x))/(a+b)+exp(-2*t)+cos((x+y)/2) C. Sqr((x+ln(x))/(a+b))+exp(-2t)+cos((x+y)/2) D. Sqr((x+log(x))/(a+b))+exp(-2*t)+cos(x+y/2)

24. 以下有关变量作用域的说法中 ，正确的是___24___。

A. 只有在标准模块中用Public语句说明的变量才是全局变量 B. 在过程中不能使用Public语句说明全局变量

C. 在标准模块的通用声明处可用Private语句说明模块级变量 D.在窗体的通用声明处可用Private语句说明窗体级变量

25. 语句Print \输出的结果是___25___。

A. \

B. 出现错误信息

C. 5*20

D. 100

26. 下列不正确的变量名是___26___。

A. Form

B. Command

C. Text

D. Arry@

27. 若磁盘文件C:\\Data1.dat不存在，下列打开文件语句中，会产生错误的是___27___。

A. Open \ B. Open \ C. Open \ D. Open \

28. 改变目录列表框(DirListBox)控件的Path属性的途径可以有___28___。

①单击目录列表框某一项

②程序代码中改变目录列表框的Path属性值 ③双击目录列表框某一项

④ 在程序中用ChDir命令设置当前工作目录

A. ①②

B. ②③

C. ②③④

D. ①②③④

29. 以下有关数组的说明中，错误的是___29___。

A. 根据数组说明的方式，可将数组分为动态数组和静态数组 B. 在过程中，不能用Private语句定义数组

C. 利用ReDim语句重新定维时，不得改变已经定义说明过的数组的数据类型 D. 数组重新定维后，原有的数组元素内容将不予保留

30. 窗体的Name属性为Frm1,在窗体模块通用声明处和过程Sub1中分别用Public K As Integer, Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用___30___。

A. Frm1.K

B. Form.K

C. Form1.K

D. K

31. 名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是___31___。

A. Private Sub sort(A() As Integer) B. Private Sub sort(A(10) As Integer) C. Private Sub sort(ByVal A() As Integer) D. Private Sub sort(A(,) As Integer)

32. 可以在___32___中，使用语句Public PubStr As String*20定义一个定长字符串。

A. 窗体模块

B. 标准模块

C. 类模块

D. 三者均可

33. 以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是___33___。

A. 在缺省情况下，设计时的第一个窗体被指定为启动窗体 B. 通过人为设置，可指定任一窗体为启动窗体

C. 通过人为设置，可指定标准模块中的Main()过程为启动过程 D. 通过人为设置，可指定窗体模块中的Main()过程为启动过程

34. 在过程中由语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中___34___会影响循环执行的次数。

①N1=N1+I

②N2=N2+N3

③ I=I+N3 A. ①②

B.①②③

④N3=2*N3 C. ③

D. ①②③④

35. 在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码：

Private Sub Form_Click()

Dim K As Integer

Dim entry As String, item As String entry=\

For k=Len(entry) To 1 Step -1

item=LCase(Mid(entry,k,1))&k List1.AddItem item Next k

End Sub

运行此程序，单击窗体后在窗体的列表框中显示的第四个列表项内容是___35___。 A. b4

B. b2

C. d4

D. d2

二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1. 执行下面的程序，在窗体上显示的输出结果的第一行是___this is a book.___，第二行结果是___This Is A Book.___。 Option Explicit Private Sub Form_Click()

Dim s As String,i As Integer,flag As Boolean s=\ s=LCase(s) Print s flag=True

For i=1 To Len(s)

If Mid(s,i,1)=\

flag=True ElseIf flag Then

s=Left(s,i-1)&UCase(Mid(s,i,1))&Right(s,len(s)-i)

flag=False End If

Next i Print s

End Sub

2. 执行下面的程序，在窗体上显示的输出结果的第二行是_4 9 13__，第三行结果是__19.5__。 OPtion Explicit

Dim a As Integer,b As Integer

Private Sub Form_Click() Dim c As Integer a=1 b=3 c=5 Print fun(c)

Print a,b,c Print fun(c)

End Sub

Private Function fun(x As Integer)As Single

fun=a+b+x/2 a=a+b b=a+x x=b+a

End Function

3. 执行下面的程序，第一行输出结果是__18___，第二行输出结果是___30___。

Option Explicit Private Sub Form_Click()

Dim M As Integer,N As Integer M=1:N=2

Print M+N+Fun1(M,N) M=2:N=1

Print Fun1(M,N)+Fun1(M,N)

End Sub

Private Function Fun1(X As Integer,Y As Integer)

X=X+Y Y=X+3 Fun1=X+Y

End Function

4. 执行下面程序，在窗体上显示的输出结果的第二行是___4 5 6___，第五行是___9 8 7___，第六行是___6 5 4___。

Option Explicit Private Sub Form_Click()

Dim a(3,3) As Integer, iAs Integer Dim j As Integer,k As Inteher

For i=1 To 3

For j=1 To 3

a(i,j)=(i-1)*3+j Print a(i,j); Next j Print next i

print

k=(i-1)*3 For i=1 To 3

For j=1 To 3

a(i,j)=k k=k-1 Print a(i,j);

Next j Print Next i

End Sub

5. 执行下面的程序，在窗体上显示的第一行输出结果是___1 3 5 7 9__，第三行输出结果是___4___, FOrm_Click()事件过程中的第二个For--Next循环共执行了___2___次。 Option Explicit Option Base 1

Private Sub Form_Click()

Dim a(5) As Integer,i As Integer,j As Integer For i=1 To 5

a(i)=2*i-1 Print a(i)

Next i Print

For j=1 To I-2

Call sub1(a(j),j) Print j

Next j

End Sub

Public Sub Sub1(x As Integer,p As Integer)

If x-p<=2 Then

p=p+1

Else

p=p+2

End If

End Sub

6.下面程序的功能是统计随机产生的十个两位正整数中偶数于奇数的个数，并求出偶数与奇数各自的总和。 Option Explicit

Private Sub Form_Click()

Dim x As Integer， s1 As Integer，s2 As Integer Dim n1 As Integer， n2 As Integer，i As Integer Randomize For i=1 To 10

x=Int(Rnd*90)+10 Print x

If __x mod 2=0___Then

n2=n2+1 s2=s2+x Else

___n1=n1+1___ s1=s1+x End If

Next i

Print

Print \奇数个数=\偶数个数=\

7. 下面程序功能为：单击命令按纽Command1，找出100以内的所有约数之和为一个完全平方数的正整数，并按图中所示的格式将结果显示在图形框Picture1中。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer，j As Integer Dim F() As Integer，sum As Integer

For i=3 To 100

___sum=0___ If Fac(i,F,sum) Then

Picture1.Print i; \ FOr j=1 To UBound(F)-1

Picture1.Print F(J); \ Next J

Picture1.Print F(J); \ End If Next i End Sub

Private Function Fac(ByVal K As Integer，A() As Integer，sum As Integer) As Boolean

Dim N As Integer，J As Integer For N=1 To K

If___k mod n=0___Then

J=J+1

___ReDim Preserve A(J)___ A(J)=N sum=sum+N End If Next N

If sum=___Int(Sqr(sum))^2__Then Fac=True

End Function

8. C盘根目录下文件Data4.txt的内容是：2，4，6，8，10，1，3，5，7，9。下面程序的功能是将文件后半部分的奇数分别按序插入到前半部分的适当位置，得到的新数列是：1 2 3 4 5 6 7 8 9 10。（实现方法：第一次调整后的数列是：1 2 6 8 10 3 5 7 9第二次调整后的数列是：1 2 3 4 6 8 10 5 7 9）。

Option Explict

Private Sub Form_Click()

Dim A(10) As Integer,i As Integer,J As Integer Open \

Do ___while not Eof(12)__

J=J+1 Input #12,A(J) Loop

Call Insert(A) For i=1 To 10

Print A(i) Next i Print Close #12

End Sub

Private Sub Insert(A() As Integer)

Dim i As Integer,Putp As Integer,J As Integer Dim Getp As Integer,N As Integer,Tem As Integer

N=UBound(A)/2 Putp=1 Getp=N+1 For i=1 To N

Tem=A(Getp)

For J=Getp To Putp +1 Step -1

__A(J)=A(J-1)__ Next J A(Putp)=Tem Getp=Getp+1 Putp=___Putp+2__ Next i

End Sub

9.下面程序的功能是从键盘上输入一个不超过4位的十进制正整数，先把该十进数的每一位数字转换位一个4位二进制数，再把得到的二进制数依次合并成为一个16位的二进制数。例如输入十进制数359，会得到二进制数0000001101011001。

Private Sub Form_Click()

Dim num As Integer,s As Integer,M As Integer Dim i As Integer,j As Integer,n As Integer

num=InputBox(\输入一个长度不超过4位的十进制正整数：\，，1) ___M=num__ Do While num>0

j=j+1 n=num Mod 10 s=cover(n)&s ___num=num\\10__ Loop

For i=1 To 4-j

s=\ Next i

Text1.Text=\十进制数\的转换结果是：\

End Sub

Private Function cover(ByVal n As Integer)As String

Dim i As Integer,s As String,k As Integer Do Until n<1

___k=n Mod 2__ s=CStr(k)&s n=n\\2 Loop

If Len(s)<4 Then

s=\

cover=__right(s,4)__ Else

cover=s

End If End Function

本文来源：https://www.bwwdw.com/article/wcfg.html