1、计算机二级VB笔试297 模拟 计算机二级（VB）笔试297一、选择题(每小题2分，共70分) 下列各题A、B、C、D 四个选项中，只有一个选项是正确的。第1题：下列控件中没有Caption属性的是 _。A.框架B.列表框C.复选框D.单选按钮参考答案：B 第2题：复选框的Value 属性为 1 时，表示 _。A.复选框未被选中B.复选框被选中C.复选框内有灰色的勾D.复选框操作有误参考答案：B 第3题：用来设置斜体字的属性是 _。A.FontItalicB.FontBoldC.FontNameD.FontSize参考答案：A 第4题：将数据项“China”添加到列表框List1中成为第二项应
2、使用 _语句。A.List1.AddItem China,1B.List1.AddItem China, 2C.List1.AddItem 1, ChinaD.List1.AddItem 2, China参考答案：A 第5题：引用列表框List1最后一个数据项，应使用 _语句。A.List1.List(List1.ListCount)B.List1.List(ListCount)C.List1.List(List1.ListCount-1)D.List1.List(ListCount-1)参考答案：C 第6题：假如列表框List1有四个数据项，那么把数据项“China”添加到列表框的最后，应使
3、用 _语句。A.List1.AddItem 3, ChinaB.List1.AddItem China, List1.ListCount-1C.List1.AddItem China, 3D.List1.AddItem China， List1.ListCount参考答案：D 第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 SubA.1，5，6B.2，4，6C.4，5，6D.1
4、，3，5参考答案：D 第8题：如果列表框List1中没有选定的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是 _。A.移去第一项B.移去最后一项C.移去最后加入列表中的一项D.以上都不对参考答案：D 第9题：如果列表框List1中只有一个项目被用户选定，则执行Debug.Pring List1.Selected(List1.ListIndex) 语句的结果是 _。A.在Debug窗口输出被选定的项目的索引值B.在Debug窗口输出TrueC.在窗体上输出被选定的项目的索引值D.在窗体上输出True参考答案：B 第10题：假定时钟控件的Interval
5、 属性为1000，Enabled属性为True,并且有下面的事件过程，程序结束后变量x的值为 _。 Dim x As Integer Private Sub Timer1_Timer() For i = 1 to 100 x = x + 1 beep Next i End SubA.1155B.1000C.100D.以上都不对参考答案：D 第11题：下列说法中正确的是 _。A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上B.在列表框中不能进行多项选择C.在列表框中能够将项目按字母从大到小排序D.框架也有Click和DblClick事件参考答案：D 第12题：为了防止用户随意将光标
6、置于控件之上，应_。A.将控件的TabIndex属性设置为0B.将控件的TabStop属性设置为TrueC.将控件的TabStop属性设置为FalseD.将控件的Enabled属性设置为False参考答案：D 第13题：滚动条产生Change事件是因为 _值改变了。A.SmallChangeB.ValueC.MaxD.LargeChange参考答案：B 第14题：如果要每隔15s产生一个Timer事件，则Interval属性应设置为_。A.15B.900C.15000D.150参考答案：C 第15题：列表框的 _属性是数组。A.List 和 ListIndexB.List 和 ListCoun
7、tC.List 和 SelectedD.List 和 Sorted参考答案：C 第16题：当用户按下并且释放一个键后会触发KeyPress、KeyUp、KeyDown事件，这三个发生的顺序是 _。A.KeyPress、KeyDown、KeyUpB.KeyDown、KeyUp 、KeyPressC.KeyDown、KeyPress、KeyUpD.没有规律参考答案：C 第17题：下列关于键盘事件的说法中，正确的是_。A.按下键盘上的任意一个键，都会引发KeyPress事件B.大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同C.KeyDown和KeyUp的事件过程中有KeyAscii参数
8、D.大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时，KeyPress事件过程的KeyAscii参数值是“$”的ASCII值参考答案：D 第18题：为确保文本框中输入的全部是数字的最佳方法是_。A.在KeyDown或KeyUp的事件过程中摒弃非数字输入B.在Validate事件过程中利用IsNumeric函数C.在Chinge事件过程中利用IsNumeric函数D.在KeyPress的事件过程中摒弃非数字输入参考答案：D 第19题：用户在使用ActiveX控件之前，需要将他们加载到工具箱中，下面_操作可进行ActiveX控件的加栽。A.工程部件B.视图工具箱C.
9、工具选项D.工程引用参考答案：A 第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.AB.BC.CD.D参考答案：C 第21题：表示滚动条控件取值范围最大值的属性是_。A.MaxB.LargeChangeC.ValueD.M
10、ax-Min参考答案：A 第22题：在窗体上画一个名称为Timer的计时器控件，要求每隔0.5秒发生一次计时事件，则以下正确的属性设置语句是_。A.Timer.Interval=0.5B.Timer.Interval=5C.Timer.Interval=50D.Timer.Interval=500参考答案：D 第23题：通过设置Line控件的_属性可以绘制多种形状的图形。A.ShapeB.StyleC.FillStyleD.BorderStyle参考答案：A 第24题：若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的
11、区域由BackColor属性填充，则应_。A.将Shape控件的FillStyle属性设置为2至7间的某个值，BackStyle属性设置为1B.将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为1C.将Shape控件的FillStyle属性设置为2至7间的某个值，BackStyle属性设置为0D.将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为0参考答案：A 第25题：设窗体上有一个列表框控件List1，且其中有若干列表项，则以下能表示当前被选中的列表项内容的是_。A.List1.listB.List1.TextC.List1.
12、IntdexD.List1.listIndex参考答案：B 第26题：下列_程序段能删除列表List1中的所有项。A.Private Sub Command1_Click() For I=0 To List.ListCount-1 List1.RemoveItem0 Next I End SubB.Private Sub Command1_Click() For I=0 To List.ListCount-1 List1.RemoveItem 1 Next I End SubC.Private Sub Command1_Click() For I=0 To List1.ListCount Li
13、st1.RemoveItem 0 Next I End SubD.Private Sub Command1_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 1 Next I End Sub参考答案：A 第27题：下面_控件不支持Change事件。A.TextBoxB.ListBoxC.LabelD.PictureBox参考答案：B 第28题：在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load() List1.AddItem357 List1.AddItem245 List1.Add
14、Item123 List1.AddItem456 Text1.Text= End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果是_。A.1245B.456789C.789456D.0参考答案：B 第29题：要使用列表中的列表显示成复选框形式，则应将其Style属性设置为_。A.0B.1C.TrueD.False参考答案：B 第30题：窗体上画一个列表框和一个命令按钮，其名称分别为List1 和Command1，然后编
15、写如下事件过程： 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”插入到列表框的最前面（即item
16、1的前面）参考答案：B 第31题：在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。但单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是_。A.Private Sub List_Click() Label1.Caption=List1.ListIndex List1.RemoveItem List1.Text End SubB.Private Sub List_Click() Label1.Name=List1.ListIndex List1.RemoveItem List1.Text End
17、SubC.Private Sub List_Click() Label1.Caption=List1.Text List1.RemoveItem List1.ListIndex End SubD.Private Sub List_Click() Label1.Name=List1.Text List1.RemoveItem List1.ListIndex End Sub参考答案：C 第32题：以下叙述中错误的是_。A.在KeyPree事件过程中不能识别键盘的按下与释放B.在KeyPree事件过程中不能识别回车键C.在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同字母D
18、.在KeyDown和KeyUp事件过程中，从大键盘输入的“1”和从小键盘输入的“1”被视作不同的字符参考答案：B 第33题：以下关于KeyPress 事件过程中参数KeyAscii的叙述中正确的是_。A.KeyAscii 参数是所按键的ASCII码B.KeyAscii参数的数据类型为字符串C.KeyAscii参数可以省略D.KeyAscii 参数是所按键上标注的字符参考答案：A 第34题：假定编写如下事件过程： Private Sub Form_MouseMove(Button As Integer,Shift As Integer, _ X As Single,Y As Single) If
19、(Button And 2)=2 Then PrintHi End If End Sub 程序运行后，为了在窗体上输出“Hi”，应在窗体上执行以下_操作。A.只能按下左按钮并拖动B.只能按下右按钮并拖动C.必须同时按下左）右按钮并拖动D.按下左按钮拖动或按下右按钮拖动都可参考答案：B 第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
20、Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下_操作。A.同时按下Shift键和鼠标左按钮B.同时按下Shift键和鼠标右按钮C.同时按下Ctrl、Alt键和鼠标左按钮D.同时按下Ctrl、Alt键和鼠标右按钮参考答案：D 二、填空题(每空2分，共30分)第36题：复选框_【1】_属性设置为2Grayed时，变成灰色,禁止用户使用。参考答案：Value详细解答：第37题：组合框是组合了文本框和列表框的特性而形成的一种控件。_【2】_风格的组合不允许用户输入列表框中没有的选项。参考答案：下拉式列表框详细解答：第38题：滚动条响应的重要事件有_【3】_和Change。参考答
21、案：Scroll详细解答：第39题：当用户单击滚动条的空白处时，滑块移动的增量由_【4】_属性决定。参考答案：LargeChange详细解答：第40题：在对象的KeyPress事件过程中，参数KeyAscii表示所按键的_【5】_值。参考答案：ASCII码值详细解答：第41题：在程序运行时，如果将框架_【6】_属性设置为False，则框架的标题呈灰色，表示框架内的所有的对象均被屏蔽，不允许用户对其进行操作。参考答案：Enabled详细解答：第42题：当用户单击右键时，MouseDown、MouseUp和MouseMove事件过程的Button参数值为_【7】_。参考答案：2(vbRightBu
22、tton)详细解答：第43题：当用户同时按下Ctrl和Shift并单击鼠标时，MouseDown、MouseUp和MouseMove事件过程的Shift参数值为_【8】_。参考答案：3(vbShiftMask or vbCtrlMask)详细解答：第44题：只要将MousePoint属性设置为_【9】_，鼠标指针就恢复原样。参考答案：0(vbDefault)详细解答：第45题：如果将窗体的_【10】_属性设置为True，则控件的KeyPress事件过程可以接收到在窗体的KeyPress过程中修改过的KeyAscii 值。参考答案：KeyPreview详细解答：第46题：下面的程序段是将列表框L
23、ist1中重复的项目删除，只保留一项。 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参考答案：i + 1详细解答：第47题：_【12】_参考答案：List1.RemoveItem j详细解答：第48题：下列程序段是允许用户按Enter键将一个组合框(CboComputer)中没有的项目添加到组合框中。 Sub CboComputer_Keypress(KeyAsc
24、ii 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参考答案：CboComputer.Text = CboComputer.List(i)详细解答：第49题：_【14】_参考答案：Not flag详细解答：第50题：_【15】_参考答案：CboComputer.AddItem CboComputer.Text详细解答：
