2006年4月全国计算机等级考试二级VB笔试试题(2)

Text2.Text=Val(Text1.Text) Case 1

Text2.Text=Val(Text1.Text)*10 Case 2

Text2.Text=Val(Text1.Text)*100 End Select End If End Sub A．Index b．Option1.Index C．Option1(Index) D．Option1(Index).Value

(25)在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2

Print a(f(x)+x) End Sub

Function f(x As Integer) x=x+3 f=x

End Function

程序运行后，单击命令按钮，输出结果为。 A．12 b．15 C．17 D．18

2006年4月笔试试卷第5页(共12页)2006年4月笔试试卷第6页(共12页)(26)以下关于过程的叙述中，错误的是。

A．事件过程是由某个事件触发而执行的过程 B．函数过程的返回值可以有多个 C．可以在事件过程中调用通用过程 D．不能在事件过程中定义函数过程

(27)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名

称为Command1)，外观如图所示。 编写如下程序： Private Sub Form_Load() Text1.Text=\ Text2.Text=\ Text3.Text=\ End Sub

Private Sub Command1_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x，y) End Sub

Function f(ByVal x As Integer,ByVal y As Integer) Do While y<>0 tmp=x Mod y x=y y=tmp Loop f=x

End Function

运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。 A．4 b．6 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．Text b．SelText C．Control D．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 AB)A BC)A CD)A 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=\ C．|*.Doc|(*.Txt)|*.txt\ 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)

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2006年4月全国计算机等级考试二级VB笔试试题(2)在线全文阅读。