x=1 n=0
Do While x<32 x=x*3
n=n+1
Loop
Print x,n
End Sub
程序运行后，单击窗体，输出结果是（ ）。
A）81 4 B）56 3 C）28 1 D）243 5 20．以下定义数组或给数组元素赋值的语句中，正确的是（ ）。 A）Dim a As Variant B）Dim a(10) As Integer a=Array(1,2,3,4,5) a=Array(1,2,3,4,5)
C）Dim %A(10) D）Dim a(3),b(3) As Integer a(1)= \21．假设列表框控件List1被设置为允许多重选择，那么可以返回所选列表项数目的属性是（ ）。
A) SelCount B) ListCount C) DataCount D) Count 22．要删除列表框List1中选定的某一项，可以使用（ ）语句。
A）List1.RemoveItem List1.listIndex
B）List1.RemoveItem List1.Columns(List1.listIndex) C）List1.Clear List1.listIndex
D）List1.Clear List1. Columns (List1.listIndex) 23．运行下列程序，输出的结果是（ ）。
Public Function f(ByVal n%, ByVal x%) If n<> 0 Then f=f(n\\x,x) Print n Mod x; End If End Function
Private Sub Command1_Click() Print f(20,8) End Sub
A）2 4 B）1 2 4 C）1 4 4 D）4 4 24．下列程序段的执行结果是（ ）。
For i=3 To 1 Step -1 Print Spc(5-i); For j=1 To 2*i-1 Print “*”; Next j Print Next i
A) * B) ***** C) ***** D) ***** *** *** *** ***
***** * * * 25．将框架的（ ）属性设为False，可使框架内的所有对象在运行时均不可操作。 A) Enabled B) Locked C) BorderSytle D) ClipControls 26．窗体上有一个文本框控件Text1，编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If(KeyAscii < Asc(\ KeyAscii=0 Endif End Sub
运行时，关于Text1说法正确的是（ ）。 A) 只能向Text1中输入数字字符（0～9）
B) 只能向Text1中输入ASCII码在0～9之间的字符 C) 只能向Text1中输入非数字字符 D) Text1不接受任何输入 27．阅读下列程序：
Sub Yu(x%,ByVal y%) x=5*x:y=x+y End Sub
Private Sub Form_Click() Dim a%,b% a=5:b=10 Yu a,b Print a,b End Sub
程序运行后，单击窗体，输出结果为（ ）。
A) 5 10 B) 5 20 C) 25 10 D) 25 25 28．编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,
Y As Single)
If Shift=vbShiftMask+vbCtrlMask And Button=vbRightButton Then Print \ End If
End Sub
运行时，为了在窗体上输出“Visual Basic”，应执行的操作为（ ）。
A）按下Shift键和鼠标左键 B）同时按下Shift、Alt键和鼠标左键 C）按下Alt键和鼠标右键 D）同时按下Shift、Ctrl键和鼠标右键 29．下列叙述中，错误的是（ ）。
A) 运行时，通用对话框控件是不可见的
B) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框 C) 在同一程序中，用不同的方法打开的通用对话框具有不同的作用
D) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 30．下列关于文件叙述错误的是（ ）。 A) 随机文件每条记录的长度必须相同 B) 任何文件都可以用二进制模式访问
C) 可以通过编程对顺序文件中的某条记录进行修改 D) 按文件的组织方式可将文件分为顺序文件、随机文件
第4套
1．VB是一种面向对象的程序设计语言，构成对象的三要素是（ ）。 A）属性、事件、方法 B）控件、属性、事件 C）窗体、属性、过程 D）窗体、控件、模块
2．如果一个工程含有多个窗体及标准模块，则以下叙述错误的是（ ）。 A) 不能把标准模块设置为启动模块
B) 任何时刻最多只有一个窗体是活动窗体
C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 D) 如果工程中含有Sub Main过程，则程序一定首先执行该过程
3．要强制显式声明变量，可在窗体模块或标准模块的声明段中加入（ ）语句。 A) Option Base 0 B) Option Base 1 C) Option Compare D) Option Explicit 4．下列变量的数据类型为整型的是（ ）。
A）X! B）X% C）X$ D）X#
5．表达式Ucase(Mid(\的值是（ ）。 A）\）\）\）\6．下列语句不合法的是（ ）。
A）x=1: y=2 B）?x; y; C）?x, y, D）x=1; y=2 7．修改文本框的内容触发（ ）事件。
A）Modify B）Change C）ChangeData D）AutoSize 8．窗体上有一命令按钮Command1，编写下列事件过程：
Private Sub Command1_Click() a=100:b=150:c=2000:d=2000 Cls
Line (a,b)-(c,d),vbBlue,B End Sub
运行时，单击按钮窗体上显示（ ）。
A）一个未填充的矩形 B）一条直线 C）一个填满了颜色的矩形 D）无任何图形
9．使用（ ）语句可将列表框List1的第3项的值置为“VB6.0”。
A）List1.listIndex(3)= \）List1.listIndex(2)= \C）List1.list(3)= \）List1.list(2)= \10．当用户单击滚动条的空白处时，滑块移动的增量由（ ）属性决定。 A）SmallChange B）LargeChange C）Min D）Max 11．以下（ ）语句可表示[50，100]之间的随机整数。 A) Int(Rnd*51)+49 B) Int(Rnd*51)+50 C) Int(Rnd*50)+50 D) Int(Rnd*50+50)
12．要用文本框控件Text1实现一个密码输入框，可以通过（ ）设置，使得无论用户输入什么字符，文本框只显示“*”。
A) Text1.PasswordChar=\
C) Text1.Text=\
13．要设计一个图形方式的命令按钮，且按钮被按下与不按下时显示不同的图像，可通过对（ ）属性进行设置。
A) Picture、DisabledPicture B) Picture、DownPicture
C) Style、Picture和DisabledPicture D) Style、Picture和DownPicture 14．Print方法分区输出时，用（ ）分隔多个表达式。
A）空格 B）逗号 C）冒号 D）分号 15．当x=0 时，函数IIf(x>0,1,IIf(x<0,-1,0))的返回值是（ ）。 A) 0 B) 1 C) －1 D) 出错 16．下列语句中能清除运行时在窗体中显示的文本的是（ ）。 A) Form1.Cls B) Form1.Clean C) Form1.Release D) Form1.Clear
17．窗体上有一命令按钮Command1，编写下列事件过程：
Private Sub Command1_Click() MsgBox CStr(\End Sub
程序运行时，单击按钮，消息对话框显示的内容是（ ）。
A) 246 B) 123123 C) 123＋123 D) 显示出错信息 18．下列语句可使Shape1控件呈现为实心图形的是（ ）。 A）Shape1.BorderStyle=0 B）Shape1.BackStyle=0 C）Shape1.Shape=0 D）Shape1.FillStyle=0 19．运行下面的程序，显示的结果为（ ）。
Public Sub F1(n%, ByVal m%) n=n Mod 10 m=m\\10 End Sub
Private Sub Command1_Click() Dim x%, y% x=12: y=34 Call F1(x,y) Print x,y End Sub
A）2 34 B）12 34 C）2 3 D）12 3 20．使用（ ）语句可将组合框Combo1的第1项置为当前项。 A) Combo1.ListIndex=1 B) Combo1.Index=1 C) Combo1.ListIndex=0 D) Combo1.Index=0 21．设置（ ）属性可改变单击滚动条两端箭头时的滚动步长。
A) Max B) Min C) LargeChange D) SmallChange 22．要判断在文本框中是否按了Enter键，应在文本框的（ ）事件中判断。 A) Change B) KeyDown C) Click D) KeyPress 23．窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click() i=Text1.text Select Case i
Case 1: j=\ Case 2: j=\ Case 3: j=\
Case Else: j=\非法\ End Select Text1.text=j End Sub
运行时，在Text1中输入4后单击命令按钮，Text1中的内容是（ ）。 A) ＋ B) － C) * D) 非法 24．运行下列程序段，其中“n=n+1”语句被执行的次数是（ ）。
Dim m%,n% For m=1 To 3
For n=1 To 6 Step 2 n=n+1 Print n Next Next
A) 3 B) 6 C) 9 D) 18
25．能使一维动态数组arr(6)元素个数加1，但保留数组中原有元素的语句是（ A) ReDim arr(7) B) ReDim Preserve arr(7) C) Public arr(1 To 7) D) Static arr(7) 26．阅读下列程序：
Private Sub Form_Click() Dim m As Integer Static n As Integer For i=1 To 3 n=n+i m=m+i^2 Next
Print m,n End Sub
运行时，两次单击窗体，输出结果为（ ）。
A) 14 6 B) 14 6 C) 14 6 D) 14 6
14 6 14 12 28 6 28 12
27．以下能正确定义数据类型TelBook的代码是（ ）。 A) Type TelBook B) Type TelBook
Name As String*12 Name As String*12 TeL As Integer TeL As Integer End Type TelBook Type End
C) Type TelBook D) Type TelBook Name As String*12 Name As String*8 TeL As Integer TeL As Integer End Type End TelBook 28．下列关于多文档界面（MDI）的叙述错误的是（ ）。
。）