loading
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 ） Sub s1(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) Next i End Sub
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
Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_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 Function GetValue(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 As Integer Private Sub Command1_Click() X = 5: y = 3 Call proc(X, y) Label1.Caption = X Label2.Caption = y End Sub
Sub proc(ByVal a As Integer, ByVal b As 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 Sub s1(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, ByVal b As Integer)