vb绋嬪簭棰樺簱閫夋嫨棰?- 鐧惧害鏂囧簱

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)