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) D、List1.List(ListCount-1)

141、设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(D)。 A、List1.List B、List1.ListIndex C、List1.Index D、List1.Text

142、表示滚动条控件取值范围最大值的属性是(A)。 A、Max B、LargeChange C、Value D、Max-Min

143、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(D)。 A、Value B、Default C、Cancel D、Enabled

144、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句(D)。 A、List1.AddItem 3, \

B、List1.AddItem \C、List1.AddItem \

D、List1.AddItem \145、复选框的Value属性为2时，表示(C)。 A、复选框未被选中 B、复选框被选中 C、复选框内有灰色的勾 D、复选框操作有错误。

146、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(A)。 A、Value B、Default C、Cancel D、Caption

147、下面说法不正确的是（D）? A、层菜单不允许设置快捷键

B、使菜单项中的文字具有下画线，可在标题文字前加&符号

C、一菜单项名为MenuTerm，则语句MenuTerm.Enable = Flase 将使该菜单项失效 D、希望在菜单中显示\符号，则在标题栏中输入\符号 148、以下叙述中错误的是(C)。

A、在程序运行时，通用对话框控件是不可见的

B、在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用 C、调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 D、调用通用对话框控件的ShowColor方法，可以打开颜色对话框

149、菜单编辑器中，输入哪一个选项（A）会在菜单栏上显示文本 A、标题 B、名称 C、索引 D、访问键

150、菜单控件只有一个事件（B） A、MouseUp B、Click C、DBClick D、KeyPress

151、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是(A)。 A、“text (.txt)|(*.txt)” B、“文本文件( .txt) | (.txt)” C、“text(.txt)||(*.txt)” D、“text(.txt)(*.txt)”

152、下面哪个属性可以控制菜单项可见或不可见（C）