2012年计算机二级VB用户界面设计练习题及答案

用户界面设计

　　一、 单选题 

　　1．下列控件中没有Caption属性的是 ________。 

　　A） 框架 

　　B） 列表框 

　　C）复选框 

　　D） 单选按钮 

　　2．复选框的Value 属性为 1 时，表示 ________。 

　　A） 复选框未被选中 

　　B） 复选框被选中 

　　C） 复选框内有灰色的勾 

　　D） 复选框操作有误 

　　3．用来设置斜体字的属性是 ________。 

　　A） FontItalic 

　　B） FontBold 

　　C） FontName 

　　D） FontSize 

　　4．将数据项“China”添加到列表框List1中成为第二项应使用 ________语句。 

　　A） List1.AddItem "China",1 

　　B） List1.AddItem "China", 2 

　　C） List1.AddItem 1, "China" 

　　D） List1.AddItem 2, "China" 

　　5．引用列表框List1最后一个数据项，应使用 ________语句。 

　　A） List1.List(List1.ListCount) 

　　B） List1.List(ListCount) 

　　C） List1.List(List1.ListCount-1) 

　　D） List1.List(ListCount-1) 

　　6. 假如列表框List1有四个数据项，那么把数据项“China”添加到列表框的最后，应使用 ________语句。 

　　A） List1.AddItem 3, "China" 

　　B） List1.AddItem "China", List1.ListCount-1 

　　C） List1.AddItem "China", 3 

　　D） List1.AddItem "China"， List1.ListCount 

　　7．执行了下面的程序后，列表框中的数据项有________。 

　　Private Sub Form_Click() 

　　For i = 1 to 6 

　　List1.AddItem i 

　　Next i 

　　For i = 1 to 3 

　　List1.RemoveItem i 

　　Next i 

　　End Sub 

　　A） 1，5，6 

　　B） 2，4，6 

　　C）4，5，6 

　　D） 1，3，5 

　　8．如果列表框List1中没有选定的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是 ________。 

　　A） 移去第一项 

　　B） 移去最后一项 

　　C） 移去最后加入列表中的一项 

　　D） 以上都不对 

　　9．如果列表框List1中只有一个项目被用户选定，则执行Debug.Pring List1.Selected(List1.ListIndex) 语句的结果是 ________。 

　　A） 在Debug窗口输出被选定的项目的索引值 

　　B） 在Debug窗口输出True 

　　C） 在窗体上输出被选定的项目的索引值 

　　D） 在窗体上输出True 

　　10. 假定时钟控件的Interval 属性为1000，Enabled属性为True,并且有下面的事件过程，程序结束后变量x的值为 ________。 

　　Dim x As Integer 

　　Private Sub Timer1_Timer() 

　　For i = 1 to 100 

　　x = x + 1 

　　beep 

　　Next i 

　　End Sub 

　　A） 1155 

　　B） 1000 

　　C） 100 

　　D） 以上都不对 

　　11. 下列说法中正确的是 ________。 

　　A） 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 

　　B） 在列表框中不能进行多项选择 

　　C） 在列表框中能够将项目按字母从大到小排序 

　　D） 框架也有Click和DblClick事件 

　　12. 为了防止用户随意将光标置于控件之上，应________。 

　　A） 将控件的TabIndex属性设置为0 

　　B） 将控件的TabStop属性设置为True 

　　C） 将控件的TabStop属性设置为False 

　　D） 将控件的Enabled属性设置为False 

　　13.滚动条产生Change事件是因为 ________值改变了。 

　　A） SmallChange 

　　B） Value 

　　C） Max 

　　D） LargeChange 

　　14 .如果要每隔15s产生一个Timer事件，则Interval属性应设置为________。 

　　A） 15 

　　B） 900 

　　C） 15000 

　　D） 150 

　　15. 列表框的 ________属性是数组。 

　　A） List 和 ListIndex 

　　B） List 和 ListCount 

　　C） List 和 Selected 

　　D） List 和 Sorted 

　　16. 当用户按下并且释放一个键后会触发KeyPress、KeyUp、KeyDown事件，这三个发生的顺序是 ________。 

　　A） KeyPress、KeyDown、KeyUp 

　　B） KeyDown、KeyUp 、KeyPress 

　　C） KeyDown、KeyPress、KeyUp 

　　D） 没有规律 

　　17. 下列关于键盘事件的说法中，正确的是________。 

　　A） 按下键盘上的任意一个键，都会引发KeyPress事件 

　　B） 大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同 

　　C） KeyDown和KeyUp的事件过程中有KeyAscii参数 

　　D） 大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时，KeyPress事件过程的KeyAscii参数值是“$”的ASCII值 

　　18. 为确保文本框中输入的全部是数字的最佳方法是________。 

　　A） 在KeyDown或KeyUp的事件过程中摒弃非数字输入 

　　B） 在Validate事件过程中利用IsNumeric函数 

　　C） 在Chinge事件过程中利用IsNumeric函数 

　　D） 在KeyPress的事件过程中摒弃非数字输入 

　　19. 用户在使用ActiveX控件之前，需要将他们加载到工具箱中，下面________操作可进行ActiveX控件的加栽。 

　　A） 工程"部件… 

　　B） 视图"工具箱 

　　C） 工具"选项… 

　　D） 工程"引用… 

　　20．把窗体的KeyPreview属性设置程为True，然后编写如下事件过程： 

　　Private Sub Form_KeyPress(KeyAscii As Integer) 

　　Dim ch As String 

　　ch = Chr(KeyAscii) 

　　KeyAscii = Asc(UCase(ch)) 

　　Print Chr(KeyAscii + 2) 

　　End Sub 

　　程序运行后，按键盘上的“A“键，则在窗体上显示的内容是______。 

　　A）A 

　　B）B 

　　C）C 

　　D）D 

　　21．表示滚动条控件取值范围最大值的属性是______。 

　　A）Max 

　　B）LargeChange 

　　C）Value 

　　D）Max-Min 

　　22．在窗体上画一个名称为Timer的计时器控件，要求每隔0.5秒发生一次计时事件，则以下正确的属性设置语句是______。 

　　A）Timer.Interval=0.5 

　　B）Timer.Interval=5 

　　C）Timer.Interval=50 

　　D）Timer.Interval=500 

　　23．通过设置Line控件的______属性可以绘制多种形状的图形。 

　　A）Shape 

　　B）Style 

　　C）FillStyle 

　　D）BorderStyle 

　　24．若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackColor属性填充，则应______。 

　　A）将Shape控件的FillStyle属性设置为2至7间的某个值，BackStyle属性设置为1 

　　B）将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为1 

　　C）将Shape控件的FillStyle属性设置为2至7间的某个值，BackStyle属性设置为0 

　　D）将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为0 

　　25．设窗体上有一个列表框控件List1，且其中有若干列表项，则以下能表示当前被选中的列表项内容的是______。 

　　A）List1.list 

　　B）List1.Text 

　　C）List1.Intdex 

　　D）List1.listIndex 

　　26．下列______程序段能删除列表List1中的所有项。 

　　A）Private Sub Command1_Click() 

　　For I=0 To List.ListCount-1 

　　List1.RemoveItem0 

　　Next I 

　　End Sub 

　　B）Private Sub Command1_Click() 

　　For I=0 To List.ListCount-1 

　　List1.RemoveItem 1 

　　Next I 

　　End Sub 

　　C）Private Sub Command1_Click() 

　　For I=0 To List1.ListCount 

　　List1.RemoveItem 0 

　　Next I 

　　End Sub 

　　D）Private Sub Command1_Click() 

　　For I=0 To List1.ListCount-1 

　　List1.RemoveItem 1 

　　Next I 

　　End Sub 

　　27．下面______控件不支持Change事件。 

　　A）TextBox 

　　B）ListBox 

　　C）Label 

　　D）PictureBox 

　　28．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： 

　　Private Sub Form_Load() 

　　List1.AddItem"357" 

　　List1.AddItem"245" 

　　List1.AddItem"123" 

　　List1.AddItem"456" 

　　Text1.Text="" 

　　End Sub 

　　Private Sub List1_DblClick() 

　　a=List1.Text 

　　Print a+Text1.Text 

　　End Sub 

　　程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果是______。 

　　A）1245 

　　B）456789 

　　C）789456 

　　D）0 

　　29．要使用列表中的列表显示成复选框形式，则应将其Style属性设置为______。 

　　A）0 

　　B）1 

　　C）True 

　　D）False 

　　30．窗体上画一个列表框和一个命令按钮，其名称分别为List1 和Command1，然后编写如下事件过程： 

　　Private Sub Form_Load() 

　　List1.Addltem "Item1" 

　　List1.Addltem "Item2" 

　　List1.Addltem "Item3" 

　　End Sub 

　　Private Sub Command1_Click() 

　　List1.List(List1.Listcount)= "AAAA" 

　　End Sub 

　　程序运行后，单击命令按钮，其结果为______。 

　　A）把字符串“AAAA”添加到列表框中，但位置不能确定 

　　B）把字符串“AAAA”添加到列表框的最后（即item3的后面） 

　　C）把列表框中原有的最后一项改为“AAAA” 

　　D）把字符串“AAAA”插入到列表框的最前面（即item1的前面） 

　　31．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。但单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是______。 

　　A）Private Sub List_Click() 

　　Label1.Caption=List1.ListIndex 

　　List1.RemoveItem List1.Text 

　　End Sub 

　　B）Private Sub List_Click() 

　　Label1.Name=List1.ListIndex 

　　List1.RemoveItem List1.Text 

　　End Sub 

　　C）Private Sub List_Click() 

　　Label1.Caption=List1.Text 

　　List1.RemoveItem List1.ListIndex 

　　End Sub 

　　D）Private Sub List_Click() 

　　Label1.Name=List1.Text 

　　List1.RemoveItem List1.ListIndex 

　　End Sub 

　　32．以下叙述中错误的是______。 

　　A）在KeyPree事件过程中不能识别键盘的按下与释放 

　　B）在KeyPree事件过程中不能识别回车键 

　　C）在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同字母 

　　D）在KeyDown和KeyUp事件过程中，从大键盘输入的“1”和从小键盘输入的“1”被视作不同的字符 

　　33．以下关于KeyPress 事件过程中参数KeyAscii的叙述中正确的是______。 

　　A）KeyAscii 参数是所按键的ASCII码 

　　B）KeyAscii参数的数据类型为字符串 

　　C）KeyAscii参数可以省略 

　　D）KeyAscii 参数是所按键上标注的字符 

　　34．假定编写如下事件过程： 

　　Private Sub Form_MouseMove(Button As Integer,Shift As Integer, _ 

　　X As Single,Y As Single) 

　　If(Button And 2)=2 Then 

　　Print"Hi" 

　　End If 

　　End Sub 

　　程序运行后，为了在窗体上输出“Hi”，应在窗体上执行以下______操作。 

　　A）只能按下左按钮并拖动 

　　B）只能按下右按钮并拖动 

　　C）必须同时按下左）右按钮并拖动 

　　D）按下左按钮拖动或按下右按钮拖动都可 

　　35．编写如下事件过程： 

　　Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ 

　　X As Single,Y As Single) 

　　If Shift=6 And Button=2 Then 

　　Print "Hello" 

　　End If 

　　End Sub 

　　程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下______操作。 

　　A）同时按下Shift键和鼠标左按钮 

　　B）同时按下Shift键和鼠标右按钮 

　　C）同时按下Ctrl、Alt键和鼠标左按钮 

　　D）同时按下Ctrl、Alt键和鼠标右按钮 

　　36．在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： 

　　Private Sub Command1_Click() 

　　Timer1._________ 

　　End Sub 

　　Private Sub Timer1_Timer() 

　　Text1.Text = Time 

　　End Sub 

　　在______处应填入的内容是______。 

　　A）Enabled=True 

　　B）Enabled=False 

　　C）Visible=True 

　　D）Visible=False 

　　37．假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是____。： 

　　A）选择图片框，然后按Del键 

　　B）执行语句Picture1.Picture=LoadPicture(“ ”) 

　　C）执行语句Picture1.Picture=”” 

　　D）选择图片框，在属性窗口中选择Picture属性，然后按回车键 

　　38.在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是____。 

　　A） Private Sub List1_Click() 

　　Label1.Caption = List1.ListIndex 

　　End Sub 

　　B） Private Sub List1_Click() 

　　Label1.Name = List1.ListIndex 

　　End Sub 

　　C） Private Sub List1_Click() 

　　Label1.Name = List1.Text 

　　End Sub 

　　D） Private Sub List1_Click() 

　　Label1.Caption = List1.Text 

　　End Sub 

　　39. 对窗体编写如下事件过程： 

　　Private Sub Form _MouseDown(Button As Integer, _ 

　　Shift As Integer, X As Single ,Y As Single) 

　　If Button =2 Then 

　　Print "AAAAA" 

　　End If 

　　End Sub 

　　Private Sub Form _ MouseUp(Button As Integer, _ 

　　Shift As Integer, X As Single, Y As Single) 

　　Print "BBBBB" 

　　End Sub 

　　程序运行后，如果单击鼠标右键，则输出结果为____。 

　　A） AAAAA 

　　BBBBB 

　　B） BBBBB 

　　AAAAA 

　　C） AAAAA 

　　D） BBBBB 

　　40. 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是 

　　A） Private Sub HScroll1_Change() 

　　Text1.Text = HScroll1.Value 

　　End Sub 

　　B） Private Sub HScroll1_Click() 

　　Text1.Text = HScroll1.Value 

　　End Sub 

　　C） Private Sub HScroll1_Change() 

　　Text1.Text = HScroll1.Caption 

　　End Sub 

　　D） Private Sub HScroll1_ Click () 

　　Text1.Text = HScroll1.Value 

　　End Sub 

　　41. 在窗体上画一个列表框，然后编写如下两个事件过程： 

　　Private Sub Form_Click() 

　　List1.RemoveItem 1 

　　List1.RemoveItem 3 

　　List1.RemoveItem 2 

　　End Sub 

　　Private Sub Form_Load() 

　　List1.AddItem "ItemA" 

　　List1.AddItem "ItemB" 

　　List1.AddItem "ltemC" 

　　List1.AddItem "ItemD" 

　　List1.AddItem "ItemE" 

　　End Sub 

　　运行上面的程序，然后单击窗体，列表框中所显示的项目为____。 

　　A） ItemA与 ItemB 

　　B） ItemB与 ItemD 

　　C） ItemD与 ItemE 

　　D） ItemA与 ItemC 

　　42. 编写如下事件过程： 

　　Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X as Single,Y as Single) 

　　If(Button And 3)=3 Then 

　　Print “AAAA” 

　　End if 

　　程序运行后，为了在窗体上输出”AAAA”，应按下的鼠标键为____。 

　　A） 左 

　　B） 右 

　　C） 同时按下左、右 

　　D）按什么键都不显示 

　　43. 在命令按钮的MouseDown、MouseUp和Click事件中，分别写入代码： 

　　Print ”aaa”、 Print ”bbb”、 Print ”ccc” ， 

　　程序运行后，单击命令按钮，窗体上将显示____。 

　　A） aaa 

　　bbb 

　　ccc 

　　B）ccc 

　　aaa 

　　bbb 

　　C）aaa 

　　ccc 

　　bbb 

　　D）ccc 

　　bbb 

　　aaa 

　　44.在标签的MouseDown、MouseUp和Click事件中，分别写入代码： 

　　Print ”aaa”、 Print ”bbb”、 Print ”ccc” ， 

　　程序运行后，单击标签，窗体上将显示____。 

　　A）aaa 

　　bbb 

　　ccc 

　　B）ccc 

　　aaa 

　　bbb 

　　C）aaa 

　　ccc 

　　bbb 

　　D）ccc 

　　bbb 

　　aaa 

　　45. 在窗体上画两个滚动条，名称分别为HScroll1、HScroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条数值，Label3显示“A*B”的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中，以下不能实现上述功能的事件过程是： 

　　A） Private Sub Command1_Chick() 

　　Label3.Caption = Str(Val(Label1.Caption) * Val(Label2.Caption)) 

　　End Sub 

　　B） Private Sub Command1_Chick() 

　　Label3.Caption = HScroll1.Value * HScroll2.Value 

　　End Sub 

　　C） Private Sub Command1_Chick() 

　　Label3.Caption = HScroll1 * HScroll2 

　　End Sub 

　　D） Private Sub Command1_Chick() 

　　Label3.Caption = HScroll1.Text * HScroll2.Text 

　　End Sub 

　　46. 在窗体上有一个文本框控件，名称为为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序为： 

　　Private Sub Timer1_ _____() 

　　TxtTime.text=Time 

　　End Sub 

　　在下划线上应填入的内容是______。 

　　A）Enabled 

　　B）Visble 

　　C）Interval 

　　D）Timer 

　　47. 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check，标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和"粗体"复选框被选中，则能够实现上述要求的语句序列是______。 

　　A） Option1.Value=True 

　　Check1.Value=False 

　　B） Option1.Value=True 

　　Check1.Value=True 

　　C） Option2.Value=False 

　　Check1.Value=True 

　　D） Option1.Value=True 

　　Check1.Value=1 

　　48. 如果只允许在列表框中每次只能选择一个列表项时,则应将其Multiselect属性设置为：_____。 

　　A）0 

　　B）1 

　　C）2 

　　D）3 

　　49. 要将一个组合框设置为简单组合框(Simple Combo),则应该将其Style属性设置为______。 

　　A）0 

　　B）1 

　　C）2 

　　D）3 

　　50. 为了能在列表框中使用Ctrl和Shift键进行多个列表项的选择，则应将列表框的Multiselect属性设置为______。 

　　A）0 

　　B）1 

　　C）2 

　　D）3 

　　51．在用菜单编辑器设计菜单时，必须输入的项有 ________。 

　　A） 标题 

　　B） 快捷键 

　　C） 索引 

　　D） 名称 

　　52．在下列关于菜单的说法中，错误的是________。 

　　A） 每个菜单项与其他控件一样也有自己的属性和事件 

　　B） 除了Click事件之外，菜单项还能响应其他如DblClick等事件 

　　C） 菜单项的快捷键不能任意设置 

　　D） 程序运行时，若菜单项的Enabled属性为False，则该菜单项变成灰色 

　　53．在下列关于对话框的叙述中，错误的是________。 

　　A） CommonDialog1.ShowFont 显示字体对话框 

　　B） 在打开对话框中，用户选择的文件名可以经FileTitle属性返回 

　　C） 在打开对话框中，用户选择的文件名及路径可以经 FileName属性返回 

　　D） 通用对话框中可以制作和显示帮助对话框 

　　54．菜单的热键指使用Alt键和菜单标题中的一个字符来打开菜单，建立热键的方法是在菜单标题的某个字符前加上一个 ________字符。 

　　A） % 

　　B） $ 

　　C） & 

　　D） # 

　　55．要将通用对话框 CommonDialog1设置成不同的对话框，应通过________属性来设置。 

　　A） Name 

　　B） Action 

　　C） Tag 

　　D） Left 

　　56. 关于多重窗体的叙述中，正确的是 ________。 

　　A） 作为启动对象的Main子过程只能放在窗体模块内 

　　B） 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载哪一个窗体 

　　C） 没有启动窗体，程序不能运行 

　　D） 以上都不对 

　　57．在VB中，除了可以指定某个窗体作为启动对象外，还可以指定________作为启动对象。 

　　A）事件 

　　B）Main 子过程 

　　C）对象 

　　D）菜单 

　　58. 以下语句正确的是 ________。 

　　A） CommonDialog1.Filter = All Files|*.*|Picture(*.bmp)|*.bmp 

　　B） CommonDialog1.Filter="All Files"|"*.*"|"Picture(*.bmp)"|"*.bmp" 

　　C） CommonDialog1.Filter="All Files|*.*|Picture(*.bmp)|*.bmp" 

　　D） CommonDialog1.Filter={All Files|*.*|Picture(*.bmp)|*.bmp} 

　　59. 如果Form1是启动窗体，并且Form1的load事件过程中有Form2.Show，则程序启动后 ________。 

　　A） 发生一个运行错误 

　　B） 发生一个编译 

　　C） 在所有的初始化代码运行后Form1是活动窗体 

　　D） 在所有的初始化代码运行后Form2是活动窗体 

　　60. 当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 ________。 

　　A） 发生DeActive事件 

　　B） 发生LostFocus事件 

　　C） 发生DeActive和LostFocus事件 

　　D） DeActive和LostFocus事件都不发生 

　　61. 窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于 500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能．在以下程序中问号(?)处应填入的内容是______。 

　　Private Sub Text1_LostFocus() 

　　Call CheckInput(Text1,500) 

　　End Sub 

　　Private Sub Text2_LostFocus() 

　　Call CheckInput(Text2,1000) 

　　End Sub 

　　Sub CheckInput(t As ?,x As Integer) 

　　If Val(t.text)>x Then 

　　MsgBox”请重新输入!” 

　　End If 

　　End Sub 

　　A）Text 

　　B）SelText 

　　C）Control 

　　D）Form 

　　62. 设菜单中只有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是______。 

　　A）把Caption属性设置为 &Open 

　　B）把Caption属性设置为 O&pen 

　　C）把Name属性设置为 &Open 

　　D）把Name属性设置为 O&pen 

　　63. 在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： 

　　Private Sub Command1_Click() 

　　CommonDialog1.Filter="All Files(*.*)|*.*|TextFiles”& _ 

　　”(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe" 

　　CommonDialog1.FilterIndex = 3 

　　CommonDialog1.ShowOpen 

　　MsgBox CommonDialog1.FileName 

　　End Sub 

　　程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______。 

　　A）All Files(*.*) 

　　B）Text Files(*.txt) 

　　C）Executable File(*.exe) 

　　D）不确定 

　　64. 在Visual Basic工程中，可以作为“启动对象“的程序是______。 

　　A）任何窗体或标准模块 

　　B）任何窗体或过程 

　　C）Sub Main过程或其他任何模块 

　　D）Sub Main 过程或任何窗体 

　　65. 以下叙述中错误的是______。 

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

　　B）在同一个程序中，用不同的方法（如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用 

　　C）调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 

　　D）调用通用对话框控件的ShowColor方法，可以打开颜色对话框 

　　66. 在窗体上画1个文本框，其名称Text1，然后编写如下过程： 

　　Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) 

　　Print Chr(KeyCode) 

　　End Sub 

　　Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) 

　　Print Chr(KeyCode+2) 

　　End Sub 

　　程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为______。 

　　A）A 

　　A 

　　B）A 

　　B 

　　C）A 

　　C 

　　D）A 

　　D 

　　67. 窗体的MouseDown事件过程______。 

　　Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) 

　　有4个参数，关于这些参数，正确的描述是 

　　A）通过Button参数判定当前按下的是哪一个鼠标键 

　　B）Shift参数只能用来确定是否按下Shift 

　　C）Shift参数只能用来确定是否按下Alt和Ctrl键 

　　D）参数x,y用来设置鼠标当前位置的坐标 

　　68. 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是______。 

　　A）MouseDown 

　　B）MouseUp 

　　C）Load 

　　D）Click 

　　69. 以下叙述中错误的是______。 

　　A）下拉式菜单和弹出式菜单都用菜单编辑器建立 

　　B）在多窗体程序中，每个窗体都可以建立自己的菜单系统 

　　C）除分隔线外，所有菜单项都能接收Click事件 

　　D）如果把一个菜单项的Enable属性设置为False,则该菜单项不可见 

　　70. 以下说法正确的是______。 

　　A）任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器 

　　B）只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 

　　C）任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器 

　　D）以上说法均不正确 

　　71. 假定有下面所列的菜单结构： 

　　标题 名称 层次 

　　显示 Appear 1（主菜单） 

　　大图标 Bigicon 2（子菜单） 

　　小图标 Smallicon 3（子菜单） 

　　要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是______。 

　　A）Private Sub Bigicon_Click() 

　　Bigicon.Checked=False 

　　End Sub 

　　B）Private Sub Bigicon_Click() 

　　Me.Appear.Bigicon.Checked=True 

　　End Sub 

　　C）Private Sub Bigicon_Click() 

　　Bigicon.Checked=True 

　　End Sub 

　　D）Private Sub Bigicon_Click() 

　　Appear.Bigicon.Checked=False 

　　End Sub 

　　72. 在用菜单编辑器设计菜单时，必须输入的项是______。 

　　A）名称 

　　B）标题 

　　C）快捷键 

　　D）索引 

　　73. 假定一个工程有一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 

　　Model1代码如下： 

　　Public x As Integer 

　　Public y As Integer 

　　Sub S1() 

　　x = 1 

　　S2 

　　End Sub 

　　Sub S2() 

　　y = 10 

　　Form1.Show 

　　End Sub 

　　Model2代码如下： 

　　Sub Main() 

　　S1 

　　End Sub 

　　其中 sub Main 被设置为启动过程。 程序运行后，各模块的执行顺序是______。 

　　A）form1→Model1→Model2 

　　B）Model1→Model2→Form1 

　　C）Model2→Model1→Form1 

　　D）Model2→Form1→Model1 

　　74. 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是______。 

　　A）如果工程中含有SubMain过程，则程序一定首先执行该过程 

　　B）不能把标准模块设置为启动模块 

　　C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 

　　D）任何时刻最多只有一个窗体是活动窗体 

　　75. 在窗体上画一个名称为CommonDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： 

　　Private Sub Command1_Click() 

　　CommonDialog1.FileName = "" 

　　CommonDialog1.Filter = "all file|*.*|(*.DoC）|*.Doc|(*.Txt)|*.Txt" 

　　CommonDialog1.FilterIndex = 2 

　　CommonDialog1.DialogTitle = "VBTest" 

　　CommonDialog1.Action = 1 

　　End Sub 

　　对于这个程序，以下叙述中错误的是______。 

　　A）该对话框被设置为“打开”对话框 

　　B）在该对话框中指定的默认文件名为空 

　　C）该对话框的标题为VBTest 

　　D）在该对话框中指定的默认文件类型为文本框（*.Txt） 

　　二、 填空题 

　　1.复选框 【1】 属性设置为2—Grayed时，变成灰色,禁止用户使用。 

　　2.组合框是组合了文本框和列表框的特性而形成的一种控件。 【2】 风格的组合不允许用户输入列表框中没有的选项。 

　　3.滚动条响应的重要事件有 【3】 和Change。 

　　4.当用户单击滚动条的空白处时，滑块移动的增量由 【4】 属性决定。 

　　5.在对象的KeyPress事件过程中，参数KeyAscii表示所按键的__【5】__值。 

　　6.在程序运行时，如果将框架 【6】 属性设置为False，则框架的标题呈灰色，表示框架内的所有的对象均被屏蔽，不允许用户对其进行操作。 

　　7.当用户单击右键时，MouseDown、MouseUp和MouseMove事件过程的Button参数值为 【7】 。 

　　8.当用户同时按下Ctrl和Shift并单击鼠标时，MouseDown、MouseUp和MouseMove事件过程的Shift参数值为 【8】 。 

　　9.只要将MousePoint属性设置为 【9】 ，鼠标指针就恢复原样。 

　　10.如果将窗体的 【10】 属性设置为True，则控件的KeyPress事件过程可以接收到在窗体的KeyPress过程中修改过的KeyAscii 值。 

　　11.下面的程序段是将列表框List1中重复的项目删除，只保留一项。 

　　For i = 0 To List1.ListCount – 1 

　　For j = List1.ListCount – 1 To 【11】 Step – 1 

　　If List1.List(i) = List1.List(j) Then 

　　【12】 

　　End If 

　　Next j 

　　Next i 

　　12.下列程序段是允许用户按Enter键将一个组合框(CboComputer)中没有的项目添加到组合框中。 

　　Sub CboComputer_Keypress(KeyAscii As Integer) 

　　Dim flag As Boolean 

　　If KeyAscii = 13 Then 

　　flag = False 

　　For i = 0 To CboComputer.ListCount – 1 

　　If 【13】 Then 

　　flag = True 

　　Exit for 

　　End If 

　　Next i 

　　If 【14】 Then 

　　【15】 

　　Else 

　　MsgBox(“组合框中已有该项目！”) 

　　End If 

　　End If 

　　End Sub 

　　13.在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码： 

　　Dim SaveAll As String 

　　Private Sub Command1_Click() 

　　Textl．Text=Left(UCase(SaveAll)，4) 

　　End Sub 

　　Private Sub Texl1_KeyPress(KeyAscii As Integer) 

　　SaveAll=SaveAll+Chr(KeyAscii) 

　　End Sub 

　　程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是_【16】____ 。 

　　14.列表框中列表项的数目可通过__【17】__属性获得。 

　　15.为了使计时器控件Timer1每隔1秒触发一次Timer事件,应将Timer1控件的_【18】___属性设置为__【19】___。 

　　16.在窗体上画一个名称为Command1）标题为"计算"的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1）Label2）Label3和Label4，标题分别为"操作数1"）"操作数2"）"运算结果"和空白；再建立一个含有4个单选按钮的控件数组，名称为Option1，标题分别为"+"）"-"）"*"和"/"。程序运行后，在Text1）Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4中。请在____处填入适当的内容，将程序补充完整。 

　　Private Sub Command1_Click() 

　　For i = 0 To 3 

　　If _【20】___ = True Then 

　　opt = Option1(i).Caption 

　　End If 

　　Next 

　　Select Case _【21】___ 

　　Case "+" 

　　Result = Val(Text1.Text) + Val(Text2.Text) 

　　Case "-" 

　　Result = Val(Text1.Text) - Val(Text2.Text) 

　　Case "*" 

　　Result = Val(Text1.Text) * Val(Text2.Text) 

　　Case "/" 

　　Result = Val(Text1.Text) / Val(Text2.Text) 

　　End Select 

　　_【22】___ = Result 

　　End Sub 

　　17. 菜单的热键指使用 【23】 键和菜单项标题中的一个字符打开菜单。 

　　18. 建立热键的方法是在菜单标题的某个字符前加一个 【24】 符号，在菜单中这一字符会自动加上下划线，表示该字符是一个热键。 

　　19. 如果把菜单的 【25】 属性设置为True， 则该菜单项将成为一个选项。 

　　20. 不管是在窗口顶部的菜单条上显示菜单还是隐藏菜单，都可以用 【26】 方法把它们作为弹出菜单，在程序运行期间显示出来。 

　　21. 假定有一个通用对话框CommonDialog1，除了可以用CommonDialog1.Action=3显示颜色对话框外，还可以用 【27】 方法显示。 

　　22. 在显示字体对话框之前必须设置 【28】 属性，否则将发生不存在的字体错误。 

　　23. 在用Show方法后显示自定义的对话框时，如果Show方法之后带 【29】 参数，就将窗体作为模式对话框显示。 

　　24. 如果在建立菜单时，在标题文本框中输入一个" 【30】 "，那么菜单显示时，形成一个分割线。 

　　25. CommonDialog是ActiveX控件，需要通过 【31】 命令选择Microsoft Common Dialog 6.0选项，将CommonDialog控件添加到工具箱中。 

　　26.在菜单编辑器中建立一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 

　　Form1.__ 【32】__ .pmenu 

　　27.在菜单编辑器中建立一个菜单，其主要菜单项的名称为mnuEdit,Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。 

　　Private Sub Form_ __【33】___(Button As Integer,Shift As Integer,X As Single,Y As Single) 

　　If Button=2 Then 

　　__【34】___ mnuEdit 

　　End If 

　　End Sub 

参考答案 

　　一、单选题

　　二、填空题