噶米历年计算机二级vb笔试真题及公共基础知识

历年计算机二级笔试试题汇编

全国计算机考试二级笔试试卷

Visual Basic语言程序设计

（考试时间90分，满分100分）

2005年4月

一、选择题（每小题2分，共70分）

下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

（1）数据的存储结构是指

A）存储在外存中的数据B）数据所占的存储空间量

C）数据在计算机中的顺序存储方式D）数据的逻辑结构在计算机中的表示

（2）下列关于栈的描述中错误的是

A）栈是先进后出的线性表

B）栈只能顺序存储

C）栈具有记忆作用

D）对栈的插入与删除操作中，不需要改变栈底指针

（3）对于长度位n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A）冒泡排序为n/2 B）冒泡排序为n

C）快速排序为n D）快速排序为n(n-1)/2

（4）对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为

A）log2n B）n/2 C）n D）n+1

（5）下列对于线性链表的描述中正确的是

A）存储空间不一定是连续，且各元素的存储顺序是任意的

B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面

C）存储空间必须连续，且前件元素一定存储在后件元素的前面

D）存储空间必须连续，且各元素的存储顺序是任意的

（6）下列对于软件测试的描述中正确的是

A）软件测试的目的是证明程序是否正确

B）软件测试的目的是使程序运行结果正确

C）软件测试的目的是尽可能多地发现程序中的错误

D）软件测试的目的是使程序符合结构化原则

（7）为了使模块尽可能独立，要求

A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强

B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱

C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱

D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强

（8）下列描述中正确的是

A）程序就是软件

B）软件开发不受计算机系统的限制

C）软件既是逻辑实体，又是物理实体

D）软件是程序、数据与相关文档的集合

（9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指

A）数据与程序独立存放

B）不同的数据被存放在不同的文件中

C）不同的数据只能被对应的应用程序所使用

D）以上三种说法都不对

（10）用树形结构表示实体之间联系的模型是

A）关系模型B）网状模型C）层次模型D）以上三个都是

（11）在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是

A）Private Sub Text1_Change ()

Command1.Caption="计算机等级考试"

End Sub

B）Private Sub Command1_Click ()

Caption="计算机等级考试"

End Sub

C）Private Sub Form1_Click ()

Text1.Text="计算机等级考试"

End Sub

D）Private Sub Command1_Click ()

Text1.Text="计算机等级考试"

End Sub

（12）设a=5，b=4，c=3，d=2，下列表达式的值是

3>2*b Or a=c And b<>c Or c>d

A）1 B）True C）Fasle D）2

（13）设a="MicrosoftVisualBasic"，则以下变量b的值为"VisualBasic"的语句是

A）b=Left(a,10) B）b=Mid(a,10)

C）b=Right(a,10) D）b=Mid(a,11,10)

（14）假定有如下的窗体事件代码：

Private Sub Form_Click ()

a$="Microsoft Visual Basic"

b$=Right(a$,5)

c$=Mid(a$,1,9)

MsgBox a$,34,b$,c$,5

End Sub

程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是

A）Microsoft Visual B）Microsoft

C）Basic D）5

（15）设a="a"，b="b"，c="c"，d="d"，执行语句x=IIF((aD）, "A","B")后，x的值为A）"a" B）"b" C）"B" D）"A"

（16）为了使命令按钮（名称为Command1）右移200，应使用的语句是

A）Comand1.Move -200

B）Comand1.Move 200

C）Command1.Left=Command1.Left+200

D）Command1.Left=Command1.Left-200

（17）在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Form_Click ()

x=InputBox(“请输入一个整数”)

Print x+Text1.text

End Sub

程序运行时，在文本框输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为

A）123 B）456 C）579 D）123456

（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：

Private Sub Command1_Click ()

Timer1.

End Sub

Private Sub Timer1_Timer ()

Text1.Text=Time

End Sub

在处应填入的内容是

A）Enabled=True B）Enabled=False

C）Visible=True D）Visible=False

（19）假定在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应该用的正确方法是A）选择图片框，然后按Del键

B）执行语句Picture1.Picture=LoadPicture (“”)

C）执行语句Picture1.Picture=””

D）选择图片框，在属性窗口中选择Picture属性条，然后按回车键。

（20）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是A）Private Sub List1_Click ()

Label1.Caption=List1.ListIndex

End Sub

B）Private Sub List1_Click ()

6d75fb5e82d049649b6648d7c1c708a1294a0a6e=List1.ListIndex

End Sub

C）Private Sub List1_Click ()

6d75fb5e82d049649b6648d7c1c708a1294a0a6e=List1.Text

End Sub

D）Private Sub List1_Click ()

Label1.Caption=List1.Text

End Sub

（21）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click ()

Dim i As Integer, x As Integer

For i=1 To 6

If i=1 Then x=i

If i<=4 Then

x=x+1

Else

x=x+2

End If

Next i

Print x

End Sub

程序运行后，单击命令按钮，其输出结果为

A）9 B）6 C）12 D）15

（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click ()

c=”ABCD”

For n=1 To 4

Print

Next

End Sub

程序运行吼，单击命令按钮，要求在窗体上显示如下内容：

D

CD

BCD

ABCD

则在处应填入的内容为

A）Left(c,n) B）Right(c,n) C）Mid(c,n,1) D）Mid(c,n,n)

（23）执行以下程序段

Dim x As Integer,i As Integer

x=0

For i=20 To 1 Step -2

x=x+i\5

Next i

后，x的值为

A）16 B）17 C）18 D）19

（24）在Visual Bisic工程块中，可以作为“启动对象”的程序是

A）任何窗体或标准模块B）任何窗体或过程

C）Sub Main过程或其他任何模块D）Sub Main过程或任何窗体

（25）假设建立了一个名为Command1的命令按钮数组，则以下说法中错误的是

A）数组中每个命令按钮的名称（Name属性）均为Command1

B）数组中每个命令按钮的标题（Caption属性）都一样

C）数组中所有命令按钮可以使用同一个事件过程

D）用名称Command1（下标）可以访问数组中的每个命令按钮

（26）把窗体的KeyPreview属性设置为True，然后编写如下事件过程

Private Sub Form_KeyPress(KeyAscii As Integer)

Dim ch As String

Ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

Print Chr(KeyAscii+2)

End Sub

程序运行后，按键盘上的“A”键，则在窗体上显示的内容是

A）A B）B C）C D）D

（27）在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1,然后编写如下程序：Private Sub Command1_Click()

a=InputBox(“请输入日期（1～31）”)

t=”旅游景点：”_

&IIf(a>0 And a<=10,”长城”，““)_

&IIf(a>10 And a<=20,”故宫”，““)_

&IIf(a>20 And a<=31,”颐和园”，““)

Text1.Text=t

End Sub

程序运行后，如果从键盘上输入16，则在文本框中显示的内容是

A）旅游景点：长城故宫B）旅游景点：长城颐和园

C）旅游景点：颐和园D）旅游景点：故宫

（28）在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

Private Sub Form_Click()

Dim arr(10,10)As Integer

Dim i As Integer,j As Integer

For i=2 To 4

For j=2 To 4

arr(i,j)=i*j

Next j

Next i

Label1.Caption=Str(arr(2,2)+arr(3,3))

End Sub

程序运行后，单击窗体，在标签中显示的内容是

A）12 B）13 C）14 D）15

（29）在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

Private Function fun(ByVal m As Integer)

If m Mod 2=0 Then

fun=2

Else

fun=1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer,s As Integer

s=0

For i=1 To 5

s=s+fun(i)

Next

Print s

End Sub

程序运行后，单击命令按钮，在窗体上显示的是

A）6 B）7 C）8 D）9

（30）阅读程序：

Option Base 1

Dim arr() As Integer

Private Sub Form_Click()

Dim i As Integer,j As Integer

ReDim arr(3,2)

For i=1 To 3

For j=1 To2

arr(i,j)=i*2+j

Next j

Next i

ReDim Preserve arr(3,4)

For j=3 To 4

arr(3,j)=j+9

Next j

Print arr(3,2)+arr(3,4)

End Sub

程序运行后，单击窗体，输出结果为

A）21 B）13 C）8 D）25

（31）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1

Private Sub Command1_Click()

Dim c As Integer,d As Integer

d=0

c=6

x=Array(2,4,6,8,10,12)

For i=1 To 6

If x(i)>c Then

d=d+x(i)

c=x(i)

Else

d=d-c

End If

Next i

Print d

End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容诶

A）10 B）16 C）12 D）20

（32）设有如下程序

Private Sub Command1_Click()

Dim c As Integer,d As Integer

c=4

d=InputBox(“请输入一个整数”)

Do While d>0

If d>c Then

c=c+1

End If

d=InputBox(“请输入一个整数”)

loop

Print c+d

End Sub

程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，

则输出结果是

A）12 B）11 C）10 D）9

（33）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：

Microsoft Visual Basic Programming

然后编写如下事件过程：

Private Sub Command1_Click()

Open “d:\temp\outf.txt” For Output As # 1

For i=1 To Len(Text1.Text)

c=Mid(Text1.Text,i,1)

If c>=”A” And c<=”Z” Then

Print # 1,LCase(C）

End If

Next i

Close

End Sub

程序运行后，单击命令按钮，文件outf.txt中的内容是

A）MVBP B）mvbp C）M D）m

V v

B b

P p

（34）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Dim SW As Boolean

Function func(X As Integer) As Integer

If X<20 Then

Y=X

Else

Y=20+X

End If

Func=Y

End Function

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)

SW=False

End Sub

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)

SW=True

End Sub

Private Sub Command1_Click()

Dim intNum As Integer

intNum=InputBox(“”)

If SW Then

print func(intNum)

End If

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为A）输出0 B）输出25 C）输出45 D）无任何输出

（35）设有如下通用过程：

Private Sub Fun(a() As Integer,x As Integer)

For i=1 To 5

x=x+a(i)

Next

End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click()

Dim arr(5) As Integer,n As Integer

For i=1 To 5

arr(i)=i+i

Next

Fun arr,n

Text1.Text=Str(n)

End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是

A）30 B）25 C）20 D）15

二填空题（每空2分，共30分）

将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

（1）某二叉树中度为2的结点有18个，则该二叉树中有【1】个叶子结点。

（2）在面向对象方法中，类的实例称为【2】。

（3）诊断和改正程序中错误的工作通常称为【3】。

（4）在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。

（5）问题处理方案的正确而完整的描述称为【5】。

（6）以下语句的输出结果是【6】。

Print Int(12345.6789*100+0.5)/100

(7)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()

Text1.Text="VB程序设计"

End Sub

Private Sub Text1_Change()

Picture1.Print "VB Programming"

End Sub

程序运行后，单击窗体，则在文本框中显示的内容是【7】，而在图片框中显示的内容是【8】。

（8）阅读下面程序：

Private Sub Form_Click()

Dim Check As Boolean,Counter As Integer

Check=True

Counter=5

Do

Do While Counter<20

Counter=Counter+1

If Counter=10 Then

Check=False

Exit Do

End If

Loop

Loop Until Check=False

Print Counter

End Sub

程序运行后，单击窗体，输出结果为【9】。

（9）设有如下程序：

Private Sub Form_Click()

Dim a As Integer

n=8

s=0

Do

s=s+n

n=n-1

Loop While n>0

Print s

End Sub

以上程序的功能是【10】。程序运行后，单击窗体，输出结果为【11】。

（10）设有如果程序：

Option Base 1

Private Sub Command1_Click(0

Dim arr1

Dim Min As Integer,I As Integer

arr1=Array(12,435,76,-24,78,54,866,43)

Min= 【12】

For i=2 To 8

If arr1(i)

Next i

Print“最小值是：”；Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组值各元素的最小值。请填空。

（11）在名称为Form1的窗体上画一个文本框，其名称为Text1,在属性窗口值把该文本框的

MultiLine属性设置为True，然后编写如下的事件过程：

Private Sub Form_Click()

Open "d:\text\smtext1.txt" For Input As #1

Do While Not 【14】

Line Input #1,aspect$

Whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text=whole$

Close #1

Open "d:\text\smtext2.txt" For Output As #1

Print#1, 【15】

Close #1

End Sub

上述程序的功能是，把磁盘文件sntext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt.请填空。

全国计算机等级考试二级笔试试卷

Visual Basic语言程序设计

（考试时间90分，满分100分）

2005年9月

一、选择题（每小题2分，共70分）

下列各题A）、B）、C）、D）四个选项中，只有一个选项正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

（1）下列叙述中正确的是

A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成

C）程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试

（2）下列数据结构中，能用二分法进行查找的是

A）顺序存储的有序线性表B）线性链表

C）二叉链表D）有序线性链表

（3）下列关于栈的描述正确的是

A）在栈中只能插入元素而不能删除元素

B）在栈中只能删除元素而不能插入元素

C）栈是特殊的线性表，只能在一端插入或删除元素

D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

（4）下列叙述中正确的是

A）一个逻辑数据结构只能有一种存储结构

B）数据的逻辑结构属于线性结构，存储结构属于非线性结构

C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率

D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率

（5）下列描述中正确的是

A）软件工程只是解决软件项目的管理问题

B）软件工程主要解决软件产品的生产率问题

C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则

D）软件工程只是解决软件开发中的技术问题

（6）在软件设计中，不属于过程设计工具的是

A）PDL（过程设计语言）B）PAD图

C）N-S图D）DFD图

（7）下列叙述中正确的是

A）软件交付使用后还需要进行维护

B）软件一旦交付使用就不需要再进行维护

C）软件交付使用后其生命周期就结束

D）软件维护是指修复程序中被破坏的指令

（8）数据库设计的根本目标是要解决

A）数据共享问题B）数据安全问题

C ）大量数据存储问题

D ）简化数据维护

（9）设有如下关系表

则下列操作中正确的是 A ）T=R∩S

B ）T=R ∪S

C ）T=R×S

D ）T=R/S

（10）数据库系统的核心是

A ）数据模型

B ）数据库管理系统

C ）数据库

D ）数据库管理员

（11）假定一个Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是

A ）只保存窗体模块文件

B ）分别保存窗体模块、标准模块和工程文件

C ）只保存窗体模块和标准模块文件

D ）只保存工程文件

（12）为了清除窗体上的一个控件，下列正确的操作是

A ）按回车键

B ）按Esc 键

C ）选择（单击）要清除的控件，然后按Del 键

D ）选择（单击）要清除的控件，然后按回车键 （13）以下叙述中错误的是

A ）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B ）当程序运行时，双击一个窗体，则触发该窗体的DblClick 事件

C ）

Visual Basic 应用程序只能以解释方式执行 D ）事件可以由用户引发，也可以有系统引发 （14）设a=2，b=3，c=4，d=5，下列表达式的值是

Not a<=c Or 4*c=b^2 And b<>a+c A ）-1

B ）1

C ）True

D ）False

（15）设a=5，b=10，则执行

c=Int ((b-A ）* Rnd +A ）+1 后，c 值的范围为 A ）5～10

B ）6～9

C ）6～10

D ）5～9

（16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click() a$ = "software and hardware"

b$ = Right(a$, 8)

c$ = Mid(a$, 1, 8)

MsgBox a$, , b$, c$, 1

End Sub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是

A）software and hardware B）software

C）hardware D）1

（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click()

a = InputBox("Enter an integer")

b = InputBox("Enter an integer")

Text1.Text = b + a

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是A）108 B）18 C）810 D）出错

（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：

Private Sub Form_Load()

Show

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Text1_Change()

Text2.Text = Mid(Text1.Text, 8)

End Sub

程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是A）BeijingChina B）China C）Beijing D）BeijingC

（19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Private Sub Form_Load()

List1.AddItem "Item 1"

List1.AddItem "Item 2"

List1.AddItem "Item 3"

End Sub

Private Sub Command1_Click()

List1.List(List1.ListCount) = "AAAA"

End Sub

程序运行后，单击命令按钮，其结果为

A）把字符串“AAAA”添加到列表框中，但位置不能确定

B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面）

C）把列表框中原有的最后一项改为“AAAA”

D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）

（20）假定有如下事件过程

Private Sub Form_Click()

Dim x As Integer, n As Integer

x = 1

n = 0

Do While x < 28

x = x * 3

n = n + 1

Loop

Print x, n

End Sub

程序运行后，单击窗体，输出结果是

A）81 4 B）56 3 C）28 1 D）243 5

（21）有如下程序：

Private Sub Form_Click()

Dim Check, Counter

Check = True

Counter = 0

Do

Do While Counter < 20

Counter = Counter + 1

If Counter = 10 Then

Check = False

Exit Do

End If

Loop

Loop Until Check = False

Print Counter, Check

End Sub

程序运行后，单击窗体，输出结果为

A）15 0 B）20 -1 C）10 True D）10 False

（22）有如下程序：

Private Sub Form_Click()

Dim i As Integer, sum As Integer

sum = 0

For i = 2 To 10

If i Mod 2 <> 0 And i Mod 3 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

程序运行后，单击窗体，输出结果为

A）12 B）30 C）24 D）18

（23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim array1(10, 10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

For j = 2 To 4

array1(i, j) = i + j

Next j

Next i

Text1.Text = array1(2, 3) + array1(3, 4)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是

A）12 B）13 C）14 D）15

（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a1(4, 4), a2(4, 4)

For i = 1 To 4

For j = 1 To 4

a1(i, j) = i + j

a2(i, j) = a1(i, j) + i + j

Next j

Next i

Print a1(3, 3); a2(3, 3)

End Sub

程序运行后，单击命令按钮，在窗体上输出的是

A）6 6 B）10 5 C）7 21 D）6 12

（25）有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr, Sum

Sum = 0

arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)

For i = 1 To 10

If arr(i) / 3 = arr(i) \ 3 Then

Sum = Sum + arr(i)

End If

Next i

Print Sum

End Sub

程序运行后，单击窗体，输出结果为

A）25 B）26 C）27 D）28

（26）在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a(5) As String

For i = 1 To 5

a(i) = Chr(Asc("A") + (i - 1))

Next i

For Each b In a

Print b;

Next

End Sub

程序运行后，单击命令按钮，输出结果是

A）ABCDE B）1 2 3 4 5 C）abcde D）出错信息

（27）以下关于函数过程的叙述中，正确的是

A）如果不指明函数过程参数的类型，则该参数没有数据类型

B）函数过程的返回值可以有多个

C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

D）函数过程形参的类型与函数返回值的类型没有关系

（28）函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0，以下能正确实现上述功能的代码是

A）Function F1(b As Integer) B）Function F1(b As Integer)

If b Mod 2 = 0 Then If b Mod 2 = 0 Then

Return 0 F1=0

Else Else

Return 1 F1=1

End If End If

End Function End Function

C）Function F1(b As Integer) D）Function F1(b As Integer)

If b Mod 2 = 0 Then If b Mod 2 = 0 Then

F1=1 Return 0

Else Else

F1=0 Return 1

End If End If

End Function End Function

（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是

A）KeyAscii参数是所按键的ASCII码

B）KeyAscii参数的数据类型为字符串

C）KeyAscii参数可以省略

D）KeyAscii参数是所按键上标注的字符

（30）设窗体上有一个名为Text1的文本框，并编写如下程序：

Private Sub Form_Load()

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print "程序设计"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Print "Visual Basic"

End Sub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是A）Visual Basic B）程序设计

C）Visual Basic程序设计D）a程序设计

（31）假定有下表所列的菜单结构：

标题名称层次

显示appear 1（主菜单）

大图标bigicon 2（子菜单）

小图标smallicon 3（子菜单）

要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前面添加一个“∨”，以下正确的事件过程是A）Private Sub bigicon_Click() B）Private Sub bigicon_Click()

bigicon.Checked = Flase Me.appear.bigicon.Checked = Flase End Sub End Sub

C）Private Sub bigicon_Click() D）Private Sub bigicon_Click()

bigicon.Checked =True appear.bigicon.Checked = Flase

End Sub End Sub

（32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是

A）Private Sub Command1_Click()

CommonDialog1.DialogTitle = "New Title"

CommonDialog1.ShowPrinter

End Sub

B）Private Sub Command1_Click()

CommonDialog1.DialogTitle = "New Title"

CommonDialog1.ShowFont

End Sub

C）Private Sub Command1_Click()

CommonDialog1.DialogTitle = "New Title"

CommonDialog1.ShowOpen

End Sub

D）Private Sub Command1_Click()

CommonDialog1.DialogTitle = "New Title"

CommonDialog1.ShowColor

End Sub

（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

A）任何时刻最多只有一个窗体是活动窗体

B）不能把标准模块设置为启动模块

C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

D）如果工程中含有Sub Main过程，则程序一定首先执行该过程

（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型

Type Books

Name As String * 10

TelNum As String * 20

End Type

要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

A）Private Sub Command1_Click()

Dim B As Books

Open "c:\Person.txt" For Output As #1

6d75fb5e82d049649b6648d7c1c708a1294a0a6e = InputBox("输入姓名")

B.TelNum = InputBox("输入电话号码")

Write #1, 6d75fb5e82d049649b6648d7c1c708a1294a0a6e, B.TelNum

Close #1

End Sub

B）Private Sub Command1_Click()

Dim B As Books

Open "c:\Person.txt" For Input As #1

6d75fb5e82d049649b6648d7c1c708a1294a0a6e = InputBox("输入姓名")

B.TelNum = InputBox("输入电话号码")

Print #1, 6d75fb5e82d049649b6648d7c1c708a1294a0a6e, B.TelNum

Close #1

End Sub

C）Private Sub Command1_Click()

Dim B As Books

Open "c:\Person.txt" For Output As #1

Name = InputBox("输入姓名")

TelNum = InputBox("输入电话号码")

Write #1, B

Close #1

End Sub

D）Private Sub Command1_Click()

Dim B As Books

Open "c:\Person.txt" For Input As #1

6d75fb5e82d049649b6648d7c1c708a1294a0a6e = InputBox("输入姓名")

B.TelNum = InputBox("输入电话号码")

Print #1, 6d75fb5e82d049649b6648d7c1c708a1294a0a6e, B.TelNum

Close #1

End Sub

（35）目录列表框的Path属性的作用是

A）显示当前驱动器或指定驱动器上某目录下的文件名

B）显示当前驱动器或指定驱动器上的目录结构

C）显示根目录下的文件名

D）显示指定路径下的文件

二、填空题（每空2分，共30分）

请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【1】。

（2）算法复杂度主要包括时间复杂度和【2】复杂度。

（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。

（4）一棵二叉树第六层（根结点为第一层）的结点数最多为【4】结构。

（5）数据结构分为逻辑结构和存储结构，循环队列属于【5】结构。

（6）设有以下函数过程：

Function fun(m As String) As Integer

Dim k As Integer, sum As Integer

sum = 0

For k = m To 1 Step -2

sum = sum + k

Next k

fun = sum

End Function

若在程序中用语句s=fun(10)调用此函数，则s的值为【6】。

（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是

ZYXWVUTSRQPONMLKJIHGEC。请填空。

Private Sub Command1_Click()

Dim str As String, s As String, c As String

str = UCase(text1)

s = ""

c = "Z"

While c >= "A"

If InStr(str, C）= 0 Then

s= 【7】

End If

c = Chr$(Asc(C）【8】)

Wend

If s <> "" Then

text1 = s End If End Sub

（8）在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式

!

)! (

!

r

r

n

n

计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中（见下图）。请填空。

Private Sub Command1_Click()

Dim r As Integer, n As Integer

n = Text1

r = Text2

Text3 = fun(n) / fun( 【9】) / fun(r)

End Sub

Function fun(n As Integer) As Long

Dim t As Long

【10】

For k = 1 To n

t = t * k

Next

fun = t

End Function

（9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分的平均分即为最后得分），如图所示。请填空。

Private Sub Command1_Click()

Dim k As Integer

Dim sum As Single, max As Single, min As Single

sum = Text1(0)

max = Text1(0)

min = 【11】

For k = 【12】To 6

If max < Text1(k) Then

max = Text1(k)

End If

If min > Text1(k) Then

min = Text1(k)

End If

sum = sum + Text1(k)

Next k

text2=( 【13】)/5

End Sub

（10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查找此人”。请填空。

Private Sub Command1_Click()

Dim k As Integer, n As Integer, found As Boolean

found = False

n = Len( 【14】)

k = 0

While k < List1.ListCount And Not found

If Text1 = Left$(List1.List(k), n) Then

Text2 = 【15】

found = True

End If

k = k + 1

Wend

If Not found Then

Text2 = "查无此人"

End If

End Sub

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