一、选择题
1、VB的启动有多种方法，下面不能启动VB的是（ ）
A． 使用“开始”菜单中的“程序”命令
B． 使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字
C． 使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹
D． 先打开VB的“文件”菜单，再按Zlt+Q组合键
2、VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（ ）
A． 窗体文件的扩展名为.frm，每个窗体对应一个窗体文件
B． 标准模块是一个纯代码性质的文件，它不属于任何一个窗体
C． 用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas
D． 资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑
3、下列可以打开文件对话框的操作是（ ）
A．Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G
4、下面对哪一种变量的类型说明符的使用是正确的（ ）
A．Dim a:a@=2000 B、Dim a:a%=50000
C．Dim a:a&=True D、Dim a:a$=”OK”
5、下列变量名中，合法的变量名是（ ）
A．C24 B、A B C、A：B D、1+2
6、用于获得字符串S从第2个字符开始的3个字符的函数是（ ）
A．Mid$(S,2,3) B、Middle(S,2,3) C、Right$(S,2,3) D、Left$(S,2,3)
7、计算结果为0的表达式是（ ）
A．Int(2.4)+Int(-2.8) B、Cint(2.4)+Cint(-2.8)
C．Fix(2.4)+Int(-2.8) D、Fix(2.4)+Fix(-2.8)
8、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click( )
A=1234
B$=Str$(A)
C=Len(B$)
Print C
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）
A．0 B．5 C．6 D．7
9、定义变量如下：
Dim My Var
My Var =”come see me “
若在立即窗口中显示My Var的值，下面正确的是（ ）
A．Debug.Print My Var B、PictureBox.Print My Var
C．Printer.Print My V
ar D、Print My Var
10、在以下Form1窗体中没有采用的控件是（ ）
A．文本框 B．水平滚动条 C．框架 D．选项按钮
11、 滚动条控件的LargeChange属性所设置的是（ ）
A． 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量
B． 滚动条中滚动块的最大移动位置
C． 滚动条中滚动块的最大移动范围
D． 滚动条控件无该属性
12、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）
A．Caption B．Name C．Text D．Value
13、在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：
Private Sub Command1_Click( )
a=Text1.text b=Text2.text C=Lcase(a) D=Ucase(b) PrintC;D End Sub
程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是（ ）
A．abcEFG B．abcefg C．ABCefg D．ABCEFG
14．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（ ）
A．Label1.BackStyle=0 B．Label1.BackStyle=1
Label1.BorderStyle=0 Label1.BorderStyle=1
C．Label1.BackStyle=True D．Label1.BackStyle=False
Label1.BorderStyle=True Label1.BorderStyle=False
15．选中一个窗体，启动菜单编辑器的方法有（ ）
A． 单击工具栏中的“菜单编辑器”命令
B． 执行“工具”菜单中的“菜单编辑器”命令
C． 按Ctrl+E D、按Shift+Alt+M
16．比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ ）
A． 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
B． 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
C． 当图片框（PictureBox）的AutoSize自属性为Jlase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
D． 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
17．当利用Line方
法进行添加图时，以下正确的说法是（ ）
A． 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
B． 使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线
C． 可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BF
D． 可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F
18．下面语句中错误的是（ ）
A． Redim Preserve Matrix(10,Ubound(Matrix,2)+1)
B． Redim Preserve Matrix(Ubound(Matrix,1)+1,10)
C． Redim Preserve DynArray(Ubound(DynArray)+1)
D． Redim DynArray(Ubound(DynArray)+1)
19．可以惟一标识控件数组中的每一个控件属性的是（ ）
A．Name B．Caption C．Index D．Enabled
20、下面（ ）不是VB的文件类控件
A．DriveListBox控件 B．KirListBox控件
C．FileListBox控件 D、MsgBox
21、窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是（ ）
A．Private Sub Command1_Click( ) B、Private Sub Command1_Click( )
Command2.Visible=True Command2.Enabled=True
Command2.Visible=False Command2.Enabled=False
End Sub End Sub
C．Private Sub Command1_Click( ) D、Private Sub Command1_Click( )
Command2.Enable=True Command2.Enabled=False
Command2.Visible=False Command2.Visible=False
End Sub End Sub
23、在窗体中添加一个命令按钮Command1，并编写如下程序：
Private Sub Command1_Click( )
x=InputBox(x)
If x^2=9 Then y=x
If x^2<9 Then y=1/x
If x^2>9 Then y=x^2+1
Print y
End Sub
程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果是（ ）
A．3 B．0.33 C．17 D．0.25
24、设有如下程序：
Private Sub Form_Click( )
Print “*”;Tab(6);2,5
For I=15 To 16
Print I
For j=2 To 6 Step 3
Print Tab(3*j);j*I;
Next j
Print
Next I
End Sub
程序运行后，单击窗体，则在窗体上显示的是（ ）
A． B．
C． D．
25、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序；
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Print "12345"
End If
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "67890"
End Sub]
程序运行后，在命令按钮上单击鼠标右键，则在窗体上显示的内容是（ ）
A．12345 B．67890 C．12345 D．67890
67890 12345
26、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim a(5),b(5)
For j =1 to 4
A(j)=3*j
B(j)=a(j)*3
Next j
Text1.text=b(j2)
End Sub
程序运行后，单击命令按钮，在文本框中显示（ ）
A．25 B．18 C．36 D．35
27、在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：
Private Function fun(x As Long) As Boolean
If x Mod 2 = 0 Then
fun = True
Else
fun = False
End If
End Function
Private Sub Command1_Click()
Dim n As Long
n = Val(text1.Text)
p = IIf(fun(n), "奇数", "偶数")
Lable1.Caption = n & "是一个" & p
End Sub
程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ ）
A．20是一个奇数 B．20 C．20是一个偶数 D．2
28、在窗体中添加一个命令按钮，并编写如下程序：
Public Enum workdays
sunday = 5
monday
tuesday
wednesday
thursday
friday
saturday
invalid = -1
End Enum
Private Sub Command1_Click()
Dim day As workdays
……
End Sub
程序运行后，单击命令按钮，要使程序的运行结果为10，则程序省略处的程序段应为（ ）
A．day =Friday B、day =Friday
Print day Print Val(day)
C．Workdays =Friday D．Workdays
;=Friday
Print Val(workdays) Print workdays
29、一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
Private Sub Fun1( )
……
End Sub
Form2中定义的过程：
Private Sub Fun2( )
……
End Sub
Func中定义的过程：
Private Sub Fun3( )
……
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（ ）
A． 上述三个过程都可以在工程中的任何窗体或模块中被调用
B． Fun1和Fun2过程能够在工程中各个窗体或模块中被调用
C． 上述三个过程都只能在各自被定义的模块中调用
D． 只在Fun3过程能够被工程中各窗体或模块调用
30、在窗体中添加一个命令按钮Command1和一个文本框Text1,编写命令按钮Command1的Click事件代码：
Private Sub Command1_Click( )
Dim s As String*20
S=Text1.text
……
End Sub
该程序的功能是当单击按钮Command1时，把变量s中内容写入一个顺序文件dat1.dat中，正确的程序是（ ）
A．Open “dat1.dat” For Input As #1 B．Open “dat1.dat” For Output As #1
Write #1,S Write #1,S
Close #1 Close #1
C．Open “dat1.dat” For Binary As #1 D．Open “dat1.dat” For Random As #1
Write #1,S Write #1,S
Close #1 Close #1
二、填空题
1． 随机生成一个1~6的随机整数的表达式是___________________。
2． 设置计时器事件之间的间隔要通过计时器的__________________属性。
3． 窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。当单击“测试”按钮时，执行的事件的功能是当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮；否则退出，如Form1窗体所示，请在[3]和[4]处填入适当的内容，将程序补充完整。 Private Sub cmdtest_Click()
Answer =___________[3] ("隐藏按钮", 1)
If Answer = vbOK Then
cmddisplay.Visible = ____________[4] Else End End If
End Sub
4．下面的程序用“冒泡”法数组a中的10个整数按升序排列，请在[5]、[6]和[7]处将程序补充完整。
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(-2,5,24,58,43,-10,87,75,27,83)
For i=__________[5]
For j=___________[6]
If a(i)>=a(j) Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
_______________[7]
For i=0 to 9
Print a(i)
Next i
End Sub
5．下面程序运行后，输出的结果为__________________
Private Sub Command1_Click( )
A$=”Beijing”
B$=”dalian”
C$=”shanghai”
C$=Instr(LeftA$,2)+Right$(B$,2),C$)
Print C$
End Sub
6．窗体中有一公共对话框Comdialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框。请在[9]处将程序补充完整。
Private Sub Command1_Click( )
ComDialog1.______________[9]
End Sub
7．在VB中，语句定义符rem定义的是___________________
8．窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1，在它们下面有一个图片框pic1。要求选择一个BMP文件即单击文件列表框中的某个文件时，将该文件显示在图片框中，如Form1窗体。请在[11]、[12]和[13]处填入适当的内容，将程序补充完整。
Option Explicit
Private Sub File1_Click( )
Dim fn As String
If Len(Dir1.Path)=3 Then
Fn=Dir1.Path+File1.FileName
Else
Fn=Dir1.Path & “” & ______________[11]
End if
Pic1.Auto
Size=True
Pic1.ScaleMode=vbPixels
Pic1.Picture = ________________[12]
End Sub
Private Sub Form_Load()
File1.FileName = "*.bmp"
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
9．设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
Telnum As String * 20
End Type
在窗体上添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。请在[14]和[15]处填入适当的内容，将程序补充完整。
Private Sub Command1_Click( )
Dim B As ______________[14]
Open “c:Person.txt” For Output As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
___________, B.Name,B.TelNum
参考资料：http://andyzhe.blog.hexun.com/9751827_d.html