全国计算机等级考试二级VB程序设计试题

C) 8 D) 12

(28)窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是。 Private Sub Text1_LostFocus() Call CheckInput(Text1，500) End Sub

Private Sub Text2_LostFocus() Call CheckInput(Text2，1000) End Sub

Sub CheckInput(t As ?，x As Integer) If Val(t.Text)>x Then MsgBox\请重新输入!\End If End Sub

A) TextB) SelText C) ControlD) Form

(29)在窗体上画1个文本框，其名称为Text1，然后编写如下过程：

Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub

Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode+2) End Sub

程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。 A)A B)B C)C D)D (30)为了使列表框中的项目呈多列显示，需要设置的属性为。 A) Columns B) Style C) List D) MultiSelect

(31)在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean

Private Sub Command1_Click() Dim intNum As Integer

intNum=InputBox(\请输入：\If Flag Then Print f(intNum) End If End Sub

Function f(X As Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If

f=Y

End Function

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Flag=True End Sub

运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。 A) 0 B) 5 C) 15 D) 无任何输出

(32)在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：

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

If Button=1 Then PopupMenu Menu0 End If End Sub

则以下叙述中错误的是。

A) 该过程的作用是弹出一个菜单 B) 单击鼠标右键时弹出菜单

C) Menu0是在菜单编辑器中定义的弹出菜单的名称 D) 参数X、Y指明鼠标当前位置的坐标

(33)窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：

Private Sub Command1_Click() CD1.FileName=\

CD1.Filter=\CD1.FilterIndex=2 CD1.Action=1 End Sub

关于以上代码，错误的叙述是。

A) 执行以上事件过程，通用对话框被设置为“打开”文件对话框 B) 通用对话框的初始路径为当前路径 C) 通用对话框的默认文件类型为*.Txt D) 以上代码不对文件执行读写操作 (34)以下叙述中错误的是。

A) 用Shell函数可以执行扩展名为.exe的应用程序

B) 若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型 C) Static类型的变量可以在标准模块的声明部分定义 D) 全局变量必须在标准模块中用Public或Global声明 (35)以下关于文件的叙述中，错误的是。

A) 使用Append方式打开文件时，文件指针被定位于文件尾

B) 当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件

C) 顺序文件各记录的长度可以不同

D) 随机文件打开后，既可以进行读操作，也可以进行写操作

二、填空题(每空2分，共30分)

请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。 (1)对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为【1】。 (2)在面向对象方法中，【2】描述的是具有相似属性与操作的一组对象。 (3)在关系模型中，把数据看成是二维表，每一个二维表称为一个【3】。

(4)程序测试分为静态分析和动态测试。其中【4】是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。

(5)数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为【5】。 (6)下列语句的输出结果是【6】。

Print Format(Int(12345.6789*100+0.5)／100，\，0.00\

(7)在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(1 To 100）As Integer For i=1 To 100

arr(i)=Int(Rnd*1000) Next i Max=arr(1) Min=arr（1） For i=1 To 100 If【7】Then Max=arr(i) End If

If【8】Then Min=arr(i) End If Next i

Print\；Max，\；Min End Sub

程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。

2006年4月笔试试卷 第9页(共12页)2006年4月笔试试卷第10页(共12页)(8)在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：

Function Fun(x As Integer,ByVal y As Integer)As Integer x=x+y

If x<0 Then Fun=x Else Fun=y End If

End Function

Private Sub Command1_Click() Dim a As Integer,b As Integer a=-10：b=5

Text1.Text=Fun(a，b) Text2.Text=Fun(a，b) End Sub

程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【9】和【10】。 (9)在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编 写如下代码：

Dim SaveAll As String

Private Sub Command1_Click()

Text1.Text=Left(UCase(SaveAll)，4) End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是【11】。 2006年4月笔试试卷 第11页(共12页)2006年4月笔试试卷第12页(共12页)(10)在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：

Private Sub Command1_Click() CommonDialog1.【12】=\打开文件\

CommonDialog1.Filter=\CommonDialog1.InitDir=\：＼\CommonDialog1.ShowOpen End Sub

该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files(*.*)”，并显示C盘根目录下 的所有文件，请填空。

(11)在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load()

Open\：＼temp＼dat.txt\Text1.Text=\ End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) lf【13】=13 Then

If UCase(Text1.Text)=【14】Then Close 1 End Else

Write#1，【15】 Text1.Text=\End If

End If End Sub