D、5
8、能够区分各鼠标按钮与【Shift】、【Ctrl】、【Alt】键的事件过程是__________。 A、Click B、Keypress C、Dblclick D、MouseMove
9、下列关于Line和Shape控件说法不正确的是__________。
A、Line和Shape控件都可以在窗体或图片框控件内绘制图形或画线 B、Line和Shape控件绘制的图形不支持任何事件 C、程序运行时可以使用Move方法移动Line控件
D、可以在容器中绘制Shape控件，但是不能把该控件当作容器 10、Visual Basic中利用Circle方法不可以画__________。 A、圆 B、直线 C、弧 D、椭圆
11、如下语句中，与List1.List(List1.ListIndex)功能相同的是__________。 A、List1.Text B、List1.ListCount C、Text1.Text D、List1.ListIndex
12、使用__________方法可将新的列表项添加到一个列表框中。
A、Print B、AddItem C、Clear D、 RemoveItem 13、在程序中可以通过复选框和单选按钮的__________属性值来判断它们的当前状态。 A、Caption B、Checked C、Value D、Selected
14、单选按钮用于一组互斥的选项中，若一个应用程序包含多组互斥的条件。可在不同的__________中安排适当的单选按钮，即可以实现。
A、框架控件或图像控件 B、组合框或图像控件 C、组合框或图片框 D、框架控件或图片框 15、下列使用方法的语句中，正确的是________ 。 A、List1.Clear B、Form1.Clear C、Combo1.Cls D、Picture1.Clear 16、在VB中可以作为容器的是_________。
A、Form、TextBox、PictureBox B、Form、PictureBox、Frame
C、Form、TextBox、Label D、PictureBox、TextBox、ListBox 17、以下所列的6个控件中， CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、Image（图像框）、Frame（框架）、Label（标签）、具有Caption属性的有__________个。
A、5 B、4 C、3 D、2
18、下面 语句，可以将列表框List1中的当前选定的列表项的值替换成”ABC”。 A、List1.AddItem \ B、List1.Text=\ C、List1.List(List1.ListIndex)= \ D、前三项均可 19、以下控件对象中，不具有text属性的是___________。
A、标签 B、文本框 C、列表框 D、组合框 20、不可以作为容器对象使用的是___________。
A、框架 B、图片框 C、窗体 D、图像框
24
21、Visual Basic中，任何控件都具有___________属性。
A、Text B、Caption C、(名称) D、Font 22、引用列表框的最后一项应使用___________。 A、List1.list(List1.ListCount-1) B、List1.list(List1.ListCount) C、List1.list(ListCount) D、List1.list(ListCount-1)
23、在窗体上画一个命令按钮和两个文本框，然后编写如下的事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer） ?? End Sub
假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是___________。 A、单击鼠标 B、双击文本框 C、鼠标滑过文本框 D、按下键盘上的某个键
24、要使两个单选按钮属于同一个框架，正确的操作是___________。 A、先画一个框架，再在框架中画两个单选按钮
B、先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中 C、先画两个单选按钮，再画框架将单选按钮框起来 D、以上三种方法都正确
25、要设置某文本框的文字具有粗体效果，正确的语句是___________。 A、Text1.FontItalic = True B、Text1.FontItalic = False C、Text1.FontBold = True D、Text1.FontBold = False 26、要选择列表框List1的第6项，可以使用语句___________。 A、List1.ListIndex = 5 B、List1.Selected= 5 C、List1.ListIndex = 6 D、List1.Selected = 6 27、引用列表框List1的最后一项应使用___________。
A、List1.List(List1.ListCount - 1) B、List1.List(List1.ListCount) C、List1.List(ListCount) D、List1.List(ListCount - 1) 28、语句List1、RemoveItem List1、ListIndex的作用是___________。 A、删除列表框的最后一项 B、删除列表框的第一项
C、删除列表框中当前选中的项 D、删除列表框中最后添加的一项 29、要清除组合框Combo1中的所有内容，可以使用___________语句。 A、Combo1.Cls B、Combo1.Clear C、Combo1.Delete D、Combo1.Remove
30、Timer控件的___________属性决定该控件是否对时间的推移做出响应。将该属性设置为False会关闭Timer控件，设置为True则打开它。
A、Enabled B、Visible C、Time D、Capable 31、要使滚动条表示最大值100，应设置其___________属性。
A、Min B、Max C、SmallChange D、LargeChange 32、要设置某文本框的文字具有斜体效果，正确的语句是 。 A、Text1.FontItalic = True B、Text1.FontItalic = False C、Text1.FontBold = True D、Text1.FontBold = False
25
33、要选择列表框List1的第4项，可以使用语句___________。 A、List1.Selected = 4 B、List1.Selected(4) = True C、List1.Selected = 3 D、List1.Selected(3) = True 34、引用列表框List1的第一项应使用___________。
A、List1.List(1) B、List1.List(List1.ListIndex) C、List1.List(0) D、List1.List(ListCount - 1)
35、语句List1、RemoveItem List1、ListCount-1的作用是___________。 A、删除列表框的最后一项 B、删除列表框的第一项 C、删除列表框中当前选中的项 D、删除列表框中所有的项 36、要清除列表框List1中的所有内容，可以使用___________语句。 A、List1.Cls B、List1.Clear C、List1.Delete D、List1.Remove
37、定时器的Interval属性以___________为单位指定Timer事件之间的时间间隔。 A、分 B、秒 C、毫秒 D、微秒
38、要使每次单击滚动条两端箭头时变化值为10，应设置其___________属性。 A、Min B、Max C、SmallChange D、LargeChange 39、通过设置Shape控件的___________属性可以绘制多种形状的图形。 A、Shape B、BorderStyle C、FillStyle D、Style
40、窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer , shift As Integer） Dim C As string c=Text1、Text
Text2、Text=Chr(Asc(c）+2） End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是___________。 A、 A B、 a C、 C D、 c
41、如果在两个菜单命令项之间加一条分隔线，可在标题文本框中输入__________。 A、- B、+ C、& D、#
26
文件
1、若磁盘文件c:\\data1.dat不存在，则下列打开文件语句中会出现错误的是__________。 A、Open \B、Open \C、Open \D、Open \
2、Visual Basic中三种文件访问的类型是__________。 A、顺序、随机、文本 B、顺序、随机、二进制 C、数据库、表格、文本 D、文本、随机、二进制
3、下列有关文件的说法中不正确的是__________。
A、当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭
B、在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁 C、可以用不同的文件号同时打开一个随机文件
D、用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除 4、以下关于文件的叙述中，错误的是___________。
A、使用Append方式打开文件时，文件指针被定位于文件尾
B、当以输入方式 (Input）打开文件时，如果文件不存在，则建立一个新文件 C、顺序文件各记录的长度可以不同
D、随机文件打开后，既可以进行读操作，也可以进行写操作
5、设有语句Open “d:\\Test.txt” For Output As #1,以下叙述中错误的是___________。 A、若d盘根目录下无Test.txt文件，则该语句创建此文件 B、用该语句建立的文件的文件号为1
C、该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息 D、执行该语句后，就可以通过语句Print #向文件Test.txt写入信息
6、在Visual Basic中按文件的访问方式不同，可以将文件分为___________。 A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件 C、数据文件和可执行文件 D、ASCII文件和二进制文件
7、要在C盘根目录下建立一个名为1.Dat的顺序文件，应使用___________语句。 A、Open \ B、Open \ C、Open \ D、Open \
8、执行语句Open \后，系统___________。 A、将C盘根目录下名为1.dat的文件内容读入内存 B、在C盘根目录下建立名为1.dat的顺序文件
C、将内存中数据存放在C盘根目录下名为1.dat的文件中
D、将某个磁盘文件的内容写入C盘根目录下名为1.dat的文件中
27
根据题目要求完善程序
1、下面的程序用于求三个数中的最大数和最小数，请完善程序。 Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer Dim max As Integer, min As Integer a = Val(InputBox(\请输入第一个数\b = Val(InputBox(\请输入第二个数\c = Val(InputBox(\请输入第三个数\max = a
If b >___________ Then max = b If ___________ Then max = c min = a
If b <___________ Then min = b If ___________Then min = c Print \最大数为\Print \最小数为\End Sub
2、下列程序的功能是：运行程序首先出现如左图所示（Form1）的界面，要求用户输入口令，输入完毕后单击“确定”按钮，若输入口令正确，则显示Form2，否则出现如右图所示的信息框；若单击“取消”按钮，则结束程序。要求完善程序。
Private Sub Command1_Click() '确定 Dim password As String
If password = \ ___________ Form2.Show Else
MsgBox End If End Sub
Private Sub Command2_Click() '取消 ___________ End Sub
28