2003年9月全国计算机等级考试二级VB语言笔试试题及答案文档格式.doc

1、A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定（4）以下不属于Visual Basic系统的文件类型是 。A）.frm B）.batC）.vbgD）.vbp（5）以下叙述中错误的是 。A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（6）以下能正确定义数据类型TelBook的代码是 。A）Type T

2、elBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Typedef TelBookName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type TelBook End Type（7）以下声明语句中错误的是 。A）Const var1=123 B）Dim var2 = ABCC）DefInt a-z D）Static var

3、3 As Integer（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 。A）List1.List B）List1.ListIndexC）List1.IndexD）List1. Text（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 。A）MouseDown B）MouseUp C）Load D）Click（10）设a=10，b=5，c=1，执行语句Print a b c后，窗体上显示的是 。A）True B）False C）1D）出错信息（11）如果要改变窗体的标题，则需要设置的属性是 。A）CaptionB）NameC

4、）BackColorD）BorderStyle（12）以下能判断是否到达文件尾的函数是 。A）BOF B）LOC C）LOF D）EOF（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 。A）如果工程中含有Sub Main过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体（14）窗体的MouseDown事件过程Form_MouseDown （Button As Integer, Shift As Integer, X As Single, Y As Single）有4个参

5、数，关于这些参数，正确的描述是 。A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数x,y用来设置鼠标当前位置的坐标（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是 。A）Combo1.RemoveItem TextB）Combo1.RemoveItem 2C）Combo1.RemoveItem 3D）Combo1.RemoveItem Combo1.Listcount（16）以下关于焦点的叙述中，错误的是 。A）如果文本框的TabStop属性为False，

6、则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发LostFocus事件C）当文本框的Enabled属性为False时，其Tab顺序不起作用D）可以用TabIndex属性改变Tab顺序（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 。A）= B）* C）& D）-（18）执行语句Open Tel.dat For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是 。A）只能写，不能读B）只能读，不能写C）既可以读，也可以写D）不能读，不能写（19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Te

7、xt2的文本框，然后编写如下事件过程：Private Sub Command1_Click（）n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 。A）10 B）20C）30D）40（20）设有以下循环结构Do循环体Loop While 则以下叙述中错误的是 。A）若条件是一个为0的常数，则一次也不执行循环体B

8、）可以是关系表达式、逻辑表达式或常数C）循环体中可以使用Exit Do语句 D）如果总是为True，则不停地执行循环体（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Dim num As Integernum = 1Do Until num 6Print num;num = num + 2.4LoopEnd Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 。A）1 3.4 5.8B）1 3 5C）1 4 7D）无数据输出（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Dim a As Integer, s As Integer

9、a = 8s = 1s = s + aa = a1Loop While a c Thend = d + x（i）c = x（i）Elsed = dcEnd IfNext iPrint d程序运行后，如果单击命令按钮，则在窗体上输出的内容为 。A）89B）99C）23D）77（26）在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4 Label6分别显示A、BA*B等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮计算时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是