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)
Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub
Private Sub Command1_Click() x = 4：y = ：4 z = 6 Call s1(x, y) Print x + y + z Call s2(x, y) Print x + y + z End Sub A、24 28 B、20 28 C、20 18 D、20 20
124、以下关于过程及过程参数的描述中，错误的是( C )。 A、过程的参数可以是控件名称
B、用数组作为过程的参数时，使用的是“传地址”方式 C、只有函数过程能够将过程中处理的信息传回到调用的程序中 D、窗体可以作为过程的参数
125、以下属于Visual Basic合法的数组元素是（ C ）
A、x8 B、x［8］ C、s(0) D、v[8]
126、下列叙述中正确的是( C )。
A、在窗体的Form_Load事件过程中定义的变量是全局变量 B、局部变量的作用域可以超出所定义的过程
C、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D、在调用过程时，所有局部变量被系统初始化为0或空字符串 127、假定有以下函数过程：
Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1)) + s1 Next i Fun = s1 End Function 在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = InputBox(\请输入一个字符串
\程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，单击\确定\按钮后程序在窗体上输出结果（ D ）。 A、abcdefg B、gfedcba