B、在窗体模块用Public进行声明 C、在窗体模块用Private进行声明 D、在窗体模块用Static进行声明 113、在窗体上添加一个命令按钮和三个标签，编写事件过程： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer N=10: z=N+z: y=y+z: x=x+z Label1.Caption = x Label2.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 As Integer x = 5 y = 7 z = 0
Text1.Text = \ Call p1(x, y, z) Text1.Text = Str(z)
End Sub Private Sub p1(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） 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) 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(\请输入一个字符串\ str2 = Fun(str1) Print str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，单击\确定\按钮后程序在窗体上输出结果（D）。 A、abcdefg B、gfedcba C、GFEDCBA D、ABCDEFG
128、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便的调用Sort子过程，应该将该过程放在(B)。 A、窗体模块 B、标准模块 C、类模块 D、工程
129、下面子过程语句说明合法的是（D） A、Sub f1（ByVal n() As Integer）
B、Function f1（f1 As Integer） As Integer C、Sub f1（n() As Integer）As Integer
D、Function f1（ByVal n As Integer）As Integer
130、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用(D)关键字在过程中定义局部变量。 A、Dim B、Private C、Public D、Static
131、在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是(D)。 A、Tag B、Index C、ListIndex D、Name
132、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用(D)语句。
A、List1.AddItem 3, \
B、List1.AddItem \C、List1.AddItem \
D、List1.AddItem \
133、如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是(D)。 A、移去第一项 B、移去最后一项
C、移去最后加入列表的一项 D、以上都不对
134、以下叙述中错误的是(C)。
A、在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B、在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C、KeyPress事件中不能识别键盘上某个键的按下与释放 D、KeyPress事件中可以识别键盘上某个键的按下与释放
135、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)。 A、Combo1.RemoveItem Text B、Combo1.RemoveItem 2 C、Combo1.RemoveItem 3
D、Combo1.RemoveItem Combo1.Listcount
136、下列控件中，没有Caption属性的是(B)。 A、框架 B、列表框 C、复选框 D、单选按钮
137、引用列表框（List1）最后一个数据项应使用的表达式是（C） A、List1.List(List1.ListCount) B、List1.List(ListCount)
C、List1.List(List1.ListCount-1) D、List1.List(ListCount-1) 138、窗体的MouseDown事件过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)有4个参数，关于这些参数，正确的描述是(A)。 A、通过Button参数判定当前按下的是哪一个鼠标键 B、Shift参数只能用来确定是否按下Shift键
C、Shift参数只能用来确定是否按下Alt和Ctrl键 D、参数x,y用来设置鼠标当前位置的坐标 139、复选框的Value属性为1时，表示(B)。 A、复选框未被选中 B、复选框被选中
C、复选框内有灰色的勾 D、复选框操作有错误。
140、引用列表框的最后一项应使用(A)。 A、List1.List(List1.ListCount-1) B、List1.List(List1.ListCount) C、List1.List(ListCount)