07年4月计算机等级考试二级VB考前密卷(3)

(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

希望与更多计算机等级考试的网友交流，请进入计算机等级考试论坛

更多信息请访问：考试吧计算机等级考试栏目