C、1.25 4 D、1.25 1

112、用以下方式声明的变量，（B）可以在整个程序中通用？ A、在窗体模块用Dim进行声明 B、在窗体模块用Public进行声明 C、在窗体模块用Private进行声明 D、在窗体模块用Static进行声明

113、在窗体上添加一个命令按钮和三个标签，编写事件过程： Private x As Integer Private Sub Command1_Click() Static yAs Integer Dim z As Integer N=10: z=N+z: y=y+z: x=x+z Label1.Caption = xLabel2.Caption = y Label3.Caption = z End Sub 程序运行后，连续三次单击命令按钮，则三个标签中显示的内容分别是（A）。 A、10 10 10 B、30 30 30 C、30 30 10 D、10 30 30

114、以下叙述中错误的是(D)。

A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B、Sub过程中不能嵌套定义Sub过程 C、Sub过程中可以嵌套调用Sub过程

D、事件过程可以像通用过程一样由用户定义过程名

115、在在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如 下事件过程： Private Sub Command1_Click()

Dim x As Integer, y As Integer, z AsInteger x = 5 y = 7 z = 0

Text1.Text =\ Call p1(x, y, z)

Text1.Text = Str(z)

End Sub Private Subp1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub

程序运行后，单击命令按钮得到的结果是（A）。 A、12 B、0 C、Str(z) D、没有显示结果

116、如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是：（B） A、Redim a As Integer B、Static a As Integer C、Public a As Integer D、Dim a As Integer

117、以下程序的运行结果是（C） Subs1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4

Print a(i) Nexti EndSub A、12 14 16 18 B、6 7 8 9 C、2 4 6 8 D、1 2 3 4

118、以下程序的运行结果是（D）。 Function f(m As Integer) As Integer b = 1 Staticc As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private SubCommand1_Click() Dim a As Integer a = 2 Sum = 0 For i = 1 To 3 Sum = Sum + f(a)Next i Print Sum End Sub A、12 B、28 C、32 D、24

119、下列程序输出结果（C）。 Private Sub Command1_Click() For i = 1 To 10 GetValue i Next i

Print GetValue(i) End Sub

Private FunctionGetValue(ByVal a As Integer) Static S As Integer S = S + a GetValue = S End Function A、10 B、65 C、66

D、11

120、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用(D)关键字在过程中定义局部变量。 A、Dim B、Private C、Public D、Static

121、在过程定义中用(C)表示形参的传值。 A、Var B、ByDef C、ByVal D、Value

122、在在窗体上添加一个命令按钮Command1和两个名称分别为Label1和 Label2的标签，然后编写如下事件过程： Private X AsInteger Private SubCommand1_Click() X = 5: y = 3 Call proc(X, y) Label1.Caption = X Label2.Caption = y End Sub Sub proc(ByVal a As Integer, ByVal bAs Integer) X = a * a y = b + b End Sub 程序运行后，单击命令按钮，则两个标签label1和label2中显示的内容分别是（B）。 A、25,3 B、25,6 C、5,3 D、5,6

123、以下程序的运行结果是（C）。 Dim x As Integer, y As Integer, z As Integer Subs1(a As Integer, b As Integer) Dim c As Integer

a = 2 * a b = b + 2 c = a+ b End Sub

Sub s2(a As Integer, ByValb As Integer) Dim c As Integer a = 2 * a