07年4月计算机等级二级VB考前密卷三

(31) 下列过程定义语句中，形参个数为不确定数量的过程是

　　A) Private Sub Pro3(x As Double,y As Single)

　　B) Private Sub Pro3(Arr(3),Option x,Option y)

　　C) Private Sub Pro3(ByRef x,ByVal y,Arr( ))

　　D) Private Sub Pro3(ParamArray Arr( ))

　　(32) 单击命令按钮时，下列程序的执行结果为

　　Private Sub Command1_Click()

　　Dim x As Integer, y As Integer

　　x=12: y=32

　　Call PCS(x, y)

　　Print x; y

　　End Sub

　　Public Sub PCS(ByVal n As Integer, ByVal m As Integer)

　　n=n Mod 10

　　m=m Mod 10

　　End Sub

　　A) 12 32

　　B) 2 32

　　C) 2 3

　　D) 12 3

　　(33) 单击一次命令按钮后，下列程序的执行结果是

　　Private Sub Command1_Click()

　　s=P(1) + P(2) + P(3) + P(4)

　　Print s

　　End Sub

　　Public Function P(N As Integer)

　　Static Sum

　　For i=1 To N

　　Sum=Sum + i

　　Next i

　　P=Sum

　　End Function

　　A) 15

　　B) 25

　　C) 35

　　D) 45

　　(34) 下列程序的执行结果为

　　Private Sub Command1_Click()

　　Dim s1 As String, s2 As String

　　s1="abcdef"

　　Call Invert(s1, s2)

　　Print s2

　　End Sub

　　Private Sub Invert(ByVal xstr As String, ystr As String)

　　Dim tempstr As String

　　i=Len(xstr)

　　Do While i >=1

　　tempstr=tempstr + Mid(xstr, i, 1)

　　i=i - 1

　　Loop

　　ystr=tempstr

　　End Sub

　　A) fedcba

　　B) abcdef

　　C) afBECd

　　D) defabc

　　(35) 阅读下列程序：

　　Private Sub Command1_Click()

　　Dim i As Integer, k As Integer

　　k=2

　　For i=1 To 3

　　Print H(k) ;

　　Next i

　　End Sub

　　Function H(j As Integer)

　　a=0

　　Static b

　　a=a + 1

　　b=b + 1

　　H=a*b + j

　　End Function

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

　　A) 2 3 4

　　B) 3 4 5

　　C) 5 6 7

　　D) 3 5 6

二、填空题：

　　(1) 数据结构分为逻辑结构与存储结构，线性链表属于 【1】 。

　　(2) 在面向对象方法中，类之间共享属性和操作的机制称为 【2】 。

　　(3) 耦合和内聚是评价模块独立性的两个主要标准，其中 【3】 反映了模块内各成分之间的联系。

　　(4) 一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体"项目主管"与实体"项目"的联系属于 【4】 的联系。

　　(5) 数据库设计分为以下6个设计阶段：需求分析阶段、 【5】 、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。

　　(6) 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：

　　Private Sub Command1_Click()

　　【6】

　　Form2. 【7】

　　End Sub

　　试补充完整。

　　(7) 用户可以用 【8】 语句定义自己的数据类型。

　　(8) 在窗体上画一个命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()

　　x=0

　　Do Until x=-1

　　a=InputBox("请输入第一个数字a的值")

　　a=Val(A)

　　b=InputBox("请输入第二个数字b的值")

　　b=Val(b)

　　x=InputBox("请输入第三个数字x的值")

　　x=Val(x)

　　a=a + b + x

　　Loop

　　Print a

　　End Sub

　　在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为 【9】 。

　　(9) 当对象得到焦点时，会触发 【10】 事件，当对象失去焦点时将触发 【11】 事件。

　　(10) 把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：

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

　　Print KeyCode

　　End Sub

　　Private Sub Form_KeyPress(KeyAscii As Integer)

　　Print KeyAscii

　　End Sub

　　程序运行后，如果按下B键，则在窗体上输出的数值是 【12】 和 【13】 。

　　(11) 在文件对话框中，假定有一个名为"fc.exe"的文件，它位于"d:\pp"目录下，则"FileName"属性的值为 【14】 ;FileTitle属性的值为 【15】 。

　　一、选择题：

　　01-05 B A B D D

　　06-10 D D A B C

　　11-15 A A B C C

　　16-20 A D D C C

　　21-25 A C B A B

　　26-30 D A B C B

　　31-35 D A C A B

　　二、填空题：

　　(1) 存储结构

　　(2) 继承

　　(3) 内聚

　　(4) 一对多(1∶N)

　　(5) 概念设计阶段

　　(6) Me.Hide

　　show

　　(7) Type语句

　　(8) 12

　　(9) GotFocus

　　LostFocus

　　(10) 66

　　98

　　(11) d:\pp\fc.exe

　　fc.exe