陌人不故A．数组是有序变量的集合，序列中的变量类型可以不同
B．数组下标用以确定数组元素在数组中的位置，下标取值只能是0或1 C．在一定条件下动态数组可以反复改变其维数与大小
D．固定大小数组也可使用ReDim语句改变其大小 250．以下有关过程的说法中，错误的是________。
A．在Sub或Function过程中不能再定义其他Sub或Function过程
B．调用过程时，形参为数组的参数对应的实参既可以是固定大小数组也可以是动态数组 C．过程的形式参数不能再在过程中用Dim语句进行说明
D．使用ByRef说明的形式参数在形实结合时，总是按地址传递方式进行结合的 251．以下有关图片框PictureBox用法的叙述，错误的是________。
A．图片框可用作其他控件的容器
B．图片框可以显示不同种类与格式的图形或图像文件
C．用户可以从其他绘图软件中把一幅图形或图片剪切／复制，再粘贴到图片框中 D．不需任何设置，图片框就能自动适应加载图片的大小
252．窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行语句Text3=Text1 + Text2后，则在Text3中显示________。
A．434 B．45678 C．溢出 D．语法错误 253．如果窗体上有命令按钮“确定”，在代码编辑窗口有与之相对应的OK_Click()事件过程，则命令按钮控件的名称属性和Caption属性分别为________。
A．“OK”和“确定” B．“确定” 和 C．“Command1” 和“确定” D．“Command1” 和“OK” 254．下面定义Sub子过程的各个语句中，正确的语句是________。 ① Private Sub Sub1(A( ) As String) ② Private Sub Sub1(A(1 To 10 ) As String*8) ③ Private Sub Sub1(S As String) ④ Private Sub Sub1(S As String*8) A．①②③④ B．①②③ C．①③④ D．①③ 255．执行赋值语句________后，会触发相应控件的Change事件（控件名均为缺省名）。
A．Dir1.ListIndex = -2 B．Drive1.ListIndex = 2 C．Lise1.ListIndex = 3 D．File1.ListIndex = 3 256．假设变量BOOL是一个布尔型变量，则下列中，正确的是________。
A．BOOL = ?True? B．BOOL = .TRUE. C．BOOL = #TRUE# D．BOOL = True 257．表达式6.5 * 5 Mod 28 \\ 8的值是________。
A．0 B．1 C．2 D．3 258．下面有关数组的说法中，错误的是________。
A． 数组必须先定义后使用
B． 数组形参可以是定长字符串类型
C． Erase语句的作用是对已定义数组的值重新初始化 D． 定义数组时，数组维界值可以不是整数
259．可以把变长字符串S中的第一个“ABC”子串，替换成“1234”的语句是________。
A．S = Left(S, InStr(S, \– Instr(S, \– 2) B．Mid(S, InStr(S, \C．Mid(S, InStr(S, \
21
D．S = Left(S, InStr(S, \– Instr(S, \– 2)
注意：Mid(字符串，m[，n])=子字符串 该语句用“子字符串”替换“字符串”中从m开始的与“子字符串”等长的一串字符。若使用参数n，则用“子字符串”左起n个字符来替换“字符串”中从m开始的n个字符。例如，假设S=\ABCDE\，执行语句Mid(S，3)= \99\后，s的值为\AB99E\。
260．以下关于子过程或函数的定义中，正确的是 。 A．Sub f1(n As String*1) B．Sub f1(n As Integer)As Integer
C．Function f1(f1 As Integer)As Integer D．Function f1(ByVal n As Integer) 261．执行下面语句后，Len函数值最大的是________。
Dim IA As Integer, B As Single, S As String*5, Ch As String IA=32767:B=23.5:S=\A．Len(IA) B．Len(B) C．Len(S) D．Len(ch) 262．假设变量Lng为长整型变量，下面不能正常执行的语句是________。 A．Lng=16384*2 B．Lng=4*0.5*16384 C．Lng=190^2 D．Lng=32768* 2
263．设Mys1，Mys2均为字符串型变量，Mys1=\Basic\，Mys2=\，则下面关系表达式中结果为True的是________。
A．Len(Mys1)<>2* InStr(Mys1, \B．Mid(Mys1, 8, 1)>Mys2
C．Chr(98) ＆ Right(Mys1, 4) = \
D．InStr(Left(Mys1, 6), \
264．设A=7，B=4，C=6，则表达式A Mod 3 + B ^ 3 / C \\ 5的值为________。 A．1 B．2 C．3 D．出错 265．下列定义Sub过程的语句中，正确的是________。
A．Private Sub Sub1(A())
B．Private Sub Sub1(A As String*5)
C．Private Sub Sub1(ByVal A() As Integer) D．Private Sub Sub1(A(10)As Integer)
266．程序中有两个过程Private Sub Fun1(S As String)和Private Sub Fun2(a() As String* 6)，在调用过程中用Dim St(6) As String*6定义了一个字符串数组。下面调用语句中正确的是________。
①Call Fun1(St(3)) ②Call Fun2(St) ③Call Fun1(St) ④Call Fun2(st(6)) A．①② B．①③ C．②③ D．②④ 267．DrawStyle属性用于设置图形方法输出的线型，它受________属性的限制。
A．FillStyle B．FillColor C．BorderStyle D．DrawWidth 268．Print方法可在 上输出数据。
①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口
A．①③⑥ B．②③⑤ C．①②⑤ D．⑧④⑥ 270．以下有关数组参数的说明中，正确的是 。 A．在过程中也可用Dim语句对形参数组进行说明
B．动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C．调用过程时，数组名不能作为实参
D．数组可以按地址传递也可以按值传递 271．窗体上有若干命令按钮和一个文本框，程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的Click事件过程，需要将该按钮的________属性设置为True。
22
A．Enabled B．Default C．Cancle D．Visible 272．执行以下语句时，会出现错误提示的是________。
A．Print \ B．Print \C．Print \ D．Print \
274．以下的4个表达式中，有________个能够对Single类型变量x（正数）的第3位小数正确地进行四舍五入计算。
Format(x, \ Int(100 * (x + 0.005)) / 100 CInt(100 * (x + 0.005)) / 100 Fix(100 * (x + 0.005)) / 100 A．1个 B．2个 C．3个 D．4个 275．下面有关数组处理的叙述中，正确的是________。
A．在过程中使用ReDim语句可以改变动态数组的数据类型 B．在过程中，可以使用Dim、Private和Static语句来定义数组
C．用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数 D．不可以用Public语句在窗体模块的通用处说明一个全局数组 276．下列关于菜单的说法中，错误的是________。
A．每一个菜单项就是一个对象，并且可设置自己的属性和事件 B．菜单项不可以响应DblClick事件 C．VB6.0允许创建超过四级的子菜单
D．程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled属性为False 277．以下关于Function过程的说法中，错误的是________。
A．Function过程名可以有一个或多个返回值
B．在Function过程内部不得再定义Function过程 C．Function过程中可以包含多个Exit Function语句 D．可以像调用Sub过程一样调用Function过程 278．以下Case语句含有错误的是________。
A．Case 0 To 10 B．Case Is > 10 C．Case Is > 10 And Is < 50 D．Case 3,5,Is > 10 279．下面的表达式中，运算结果为True的是________。
A．\ B．Int(134.69) <= Cint(134.69) C．3 > 2 > 1 D．Mid(\
280．设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其________属性置为True，再将ScrollBar属性设置为3。
A．MultiLine B．AutoSize C．Alignment D．RightToLeft
23
二、填空题
１． 根据下图写出InputBox函数中的参数。
InputBox( （1） , （2） , （3） ) ２． 执行下面的程序，在窗体上显示的输出结果的第一行是 （４） ，第二行是 （５） 。
Option explicit
Private sub form_click()
Dim I as integer, j as integer J=10
For I=1 to j
I = I+1 J = j - i Next I Print I Print j
End Sub ３． 执行下面的程序，在窗体上显示的输出结果的第一行是 （６） ，第三行是 （７） 。
Private sub form_click() Dim a as integer Dim I as integer A=2
For I=1 to 9
Call sub1(I, a) Print I,a Next I End Sub
24
Private Sub Sub1(x as integer, y as integer) Static n as integer Dim I as integer For I=3 to 1 step –1 N=n+x X=x+1 Next I Y=y+n End sub ４． 执行下面的程序后，A(1,3)值是（８） ，A(2,2)值是 （９） ，A(3,1)值是（１０） 。
Option explicit
Private sub form_click()
Dim A(3,3) As integer, I as integer
Dim j as integer, k as integer, n as integer For k=1 to 5
If k<=3 then For I=1 to k N=n+1
A(I,k-I+1)=n Next I Else
For I=1 to 6-k N=n+1
A(k-3+I,4-I)=n Next I End if Next k
For k=1 to 3 For I=1 to 3 Print A(k,I); Next I Print Next k
End Sub ５． 执行下面的程序，在窗体上显示的输出结果的第一行是（11） ，第二行是 （12） 。
Option explicit
Private Sub form_click()
Dim I as integer, j as integer I=1:j=2 Call test(I, j) Print I, j Call test(I, j) Print I, j End Sub
25
