全国计算机等级二级vb考试试题

2002年9月二级VB(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A)工程资源管理器窗口 B)工具箱窗口 C)代码窗口 D)属性窗口(2)以下叙述中正确的是A)窗体的Name属性指定窗体的名称，用来标识一个窗体B)窗体的Name属性的值是显示在窗体标题栏中的文本C)可以在运行期间改变对象的Name属性的值D)对象的Name属性值可以为空(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是A)单选按钮B)图片框C)通用对话框 D)文本框(31)以下叙述中错误的是A)一个工程中只能有一个SubMain过程B)窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C)窗体的Hide方法和Unload方法的作用完全相同D)若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体(32)以下叙述中错误的是A)一个工程中可以包含多个窗体文件B)在一个窗体文件中用Private定义的通用过程能被其他窗体调用C)在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D)全局变量必须在标准模块中定义2003年4月二级VB(1)以下不能在"工程资源管理器”窗口中列出的文件类型是A).BasB).ResC).FrmD).Ocx(2)以下关于窗体的描述中，错误的是A)执行UnloadForrnl语句后，窗体Forml消失，但仍在内存中B)窗体的Load事件在加载窗体时发生C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D)窗体的Height、Width属性用于设置窗体的高和宽2003年9月二级VB(1)以下叙述中错误的是VisualBasic是事件驱动型可视化编程工具VisualBasic应用程序不具有明显的开始和结束语句VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性VisualBasic中控件的某些属性只能在运行时设置(2)以下叙述中错误的是A)在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B)以.BAS为扩展名的文件是标准模块文件C)窗体文件包含该窗体及其控件的属性D)一个工程中可以含有多个标准模块文件(4)以下不属于VisualBasic系统的文件类型是A).FrmB).BatC).VbgD).Vbp(5)以下叙述中错误的是A)打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B)保存VisualBasic程序时，应分别保存窗体文件及工程文件C)VisualBasic应用程序只能以解释方式执行D)事件可以由用户引发，也可以由系统引发(13)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）如果工程中含有SubMain过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体2005年9月二级VB（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是A）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件D）只保存工程文件（12）为了清除窗体上的一个控件，下列正确的操作是A）按回车键B）按Esc键C）选择（单击）要清除的控件，然后按Del键D）选择（单击）耍清除的控件，然后按回车键（13）以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的Dblclick事件C）VisualBasic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏•个窗体，不能从内存中清除该窗体D）如果工程中含有SubMain过程，则程序一定首先执行该过程二、常用控件2002年9月二级VB（11）以下能够触发文本框Change事件的操作是A）文本框失去焦点 B）文本框获得焦点C）设置文本框的焦点 D）改变文本框的内容（12）在窗体上有一个文本框控件，名称为Txttime：一个计时器控件，名称为TimerL要求每•一秒钟在文本框中显示•次当前的时间。程序为：PrivateSubTimer1 （）Txttime.Text=TimeEndSub在下划线上应填入的内容是A）EnabledB）VisibleC）Interval D）Timer（13）在窗体上画两个单选按钮，名称分别为Optionl、Option2,标题分别为“宋体”和“黑体”;一个复选框，名称为Check1,标题为“粗体”：一个文本框，名称为Textl,Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中（窗体外观如下图），则能够实现上述要求的语句序列是

Option!.Value=TrueCheck1.Value=FalseOption1.Value=TrucOption!.Value=TrueCheck1.Value=FalseOption1.Value=TrucCheckl.Value=TrueC)Option2.Value=False D)Option1.Value=TrueCheck1.Value=True Checkl.Value=l(14)为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True,这个属性是A)Value B)DefaultC)CancelD)Enabled(16)图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是A)AutosizeB)StretchC)AutoredrawD)Appearance(26)以下叙述中错误的是A)在Keyup和Keydown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的Keycode)B)在Keyup和Keydown事件过程中，将键盘上的“1”和右侧小键盘上的力”视作不同的数字(具有不同的Keycode)Keypress事件中不能识别键盘上某个键的按下与释放Keypress事件中可以识别键盘上某个键的按下与释放(27)以下叙述中错误的是A)在同•窗体的菜单项中，不允许出现标题相同的菜单项B)在菜单的标题栏中，所引导的字母指明了访问该菜单项的访问键C)程序运行过程中，可以重新设置菜单的Visible属性D)弹出式菜单也在菜单编辑器中定义(28)设在菜单编辑器中定义了一个菜单项，名为Menul。为了在运行时隐藏该菜单项，应使用的语句是A)Menu1.Enabled=TrueB)Munu1.Enabled=FalseC)Menu1.Visible=TrueD)Menu1.Visible=False(29)以下叙述中错误的是A)在程序运行时，通用对话框控件是不可见的B)在同一个程序中，用不同的方法(如Showopen或Showsave等)打开的通用对话框具有不同的作用C)调用通用对话框控件的Showopen方法，可以直接打开在该通用对话框中指定的文件D)调用通用对话框控件的Showcolor方法，可以打开颜色对话框(30)在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.Txt文件)，则正确的描述格式是A)“Text(.Txt)|*.Txt)“ B)”文本文件(.Txt)|(.Txt)”C)“Text(.Txt)||(*.Txt)” D)“Text(.Txt)(*.Txt)”2003年4月二级VB(9)表示滚动条控件取值范围最大值的属性是MaxB)LargechangeC)ValueD)Max-Min(10)在窗体上画一个名称为Listl的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A)PrivateSubListl_Click() B)PrivateSubListl_Click()

Label1.Caption=List1.ListindexEndSubLabel1.NameLabel1.Caption=List1.ListindexEndSubLabel1.Name=Listl.ListindexEndSubPrivateSubListl_Click()Label1.Name=Listl.TextEndSubPrivateSubListl_Click()Label1.Caption=Listl.TextEndSub（12）以下关于菜单的叙述中，错误的是A）在程序运行过程中可以增加或减少菜单项B）如果把一个菜单项的Enabled属性设置为False,则可删除该菜单项C）弹出式菜单在菜单编辑器中设计D）利用控件数组可以实现菜单项的增加或减少（13）在窗体上画三个单选按钮，组成一个名为Chkoption的控件数组。用于标识各个控件数组元素的参数是A）TagB）IndexC）ListindexD）Name（19）在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：PrivateSubTxta_Kcypress(KcyasciiAsInteger)EndSub若焦点位于文本框中，则能够触发Keypress事件的操作是A)单击鼠标 B)双击文本框C)鼠标滑过文本框 D)按下键盘上的某个键(21)假定有如下事件过程：PrivateSubForm_Mousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupmenuPopfbrmEndIfEndSub则以下描述中错误的是A)该过程的功能是弹出一个菜单Popform是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y指明鼠标的当前位置D)Button=2表示按卜的是鼠标左键(30)在窗体上画一个名称为Commondialogl的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Saveflle”，在“文件类型”栏中显示*.Txt。则能够满足上述要求的程序是PrivateSubCommand1_Click()Commondialog1.Filename=HSavefileMCommondialog1.Filter="AllFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.DocHCommondialog1.Filterindex=2Commondialog1.Dialogtitle="Save”Commondialog1.Action=2EndSubPrivateSubCommandl_Click()Commondialog1.Filename=HSavefileHCommondialogl.Filter=nAllFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.DocnCommondialogl.Filterindex=1Commondialog1.Dialogtitle="Save”Commondialog1.Action=2EndSubPrivateSubCommandl_Click()Commondialog1.Filename="Save”Commondialog1.Filter="AHFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.DocMCommondialog1.Filterindex=2Commondialog1.Dialogtitle="Savefile"Commondialog1.Action=2EndSubPrivateSubCommandl_Click()Commondialog1.Filename="SavefileMCommondialog1.Filter=MA11Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.DocMCommondialog1.Filterindex=1Commondialog1.Dialogtitle="Save"Commondialog1.Action=1EndSub2003年9月二级VB(3)以下叙述中错误的是A)双击鼠标可以触发Dblclick事件B)窗体或控件的事件的名称可以由编程人员确定C)移动鼠标时，会触发Mousemove事件D)控件的名称可以由编程人员设定(8)设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A)Listl.ListB)List!.ListindexC)Listl.IndexD)Listl.Text(9)程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是MousedownB)MouseupC)LoadD)Click(11)如果要改变窗体的标题，则需要设置的属性是A)CaptionB)NameC)BackcolorD)Borderstyle(14)窗体的Mousedown事件过程FormMousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)有4个参数，关于这些参数，正确的描述是A)通过Button参数判定当前按下的是哪一个鼠标键Shift参数只能用来确定是否按下Shift键Shift参数只能用来确定是否按下Alt和Ctrl键D)参数X,Y用来设置鼠标当前位置的坐标(15)设组合框Combol中有3个项目，则以下能删除最后一项的语句是Combol.RemoveitemTextCombol.Removeitem2Combol.Removeitem3Combol.RemoveitemCombol.Listcount(16)以下关于焦点的叙述中，错误的是A)如果文本框的Tabstop属性为False,则不能接收从键盘上输入的数据B)当文本框失去焦点时，触发Lostfocus事件C)当文本框的Enabled属性为False时，其Tab顺序不起作用D)可以用Tabindex属性改变Tab顺序(17)如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A)=B)*C)&D)-(26)在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2；六个标签,名称分别为Labell、Label2>Label3>Label4>Label5,Label6,其中标签Label4"Label6分别显示"A"、"B"、〃A*B”等文字信息，标签Labell、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮”计算〃时，对标签Labell、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是PrivateSubCommandl_Click()Label3.Caption=Str(Vai(Label1.Caption)*Val(Label2.Caption))EndSubPrivateSubCommand1Click()Label3.Caption=Hscrolll.Value*Hscroll2.ValueEndSubPrivateSubCommandlClick()Label3.Caption=Hscrolll*Hscroll2EndSubPrivateSubCommand1Click()Labe13.Caption=Hscrolll.Text*Hscroll2.TextEndSub(28)在窗体上画一个名称为Textl的文本框，并编写如下程序：PrivateSubFormLoad()ShowTextl.Text=Textl.SetfocusEndSubPrivateSubFormMouseup(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print”程序设计〃EndSubPrivateSubTextl_Keydown(KeycodeAsInteger,ShiftAsInteger)Print"VisualBasic”;EndSub程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是A)VisualBasicB)程序设计C)A程序设计 D)VisualBasic程序设计2004年4月二级VB(1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Move500,500EndSub程序运行后，单击命令按钮，执行的操作为A)命令按钮移动到距窗体左边界、上边界各500的位置B)窗体移动到距屏幕左边界、上边界各500的位置C)命令按钮向左、上方向各移动500D)窗体向左、上方向各移动500(2)在窗体有若干控件，其中有一个名称为Textl的文本框。影响Textl的Tab顺序的属性是A)TabstopB)EnabledC)VisibleD)Tabindex(4)在窗体上画一个名称为Listl的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为For1=0ToListl.Listcount-1NextFor1=0ToListcount-1NextFor1=1ToListl.ListcountNextFor1=1ToListcountNext(6)以下关于图片框控件的说法中，错误的是A)可以通过Print方法在图片框中输出文本B)清空图片框控件中图形的方法之一是加载一个空图形C)图片框控件可以作为容器使用D)用Stretch属性可以自动调整图片框中图形的大小(8)以下叙述中错误的是A)下拉式菜单和弹出式菜单都用菜单编辑器建立B)在多窗体程序中，每个窗体都可以建立自己的菜单系统C)除分隔线外，所有菜单项都能接收Click事件D)如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见(10)以下叙述中错误的是一个工程可以包括多种类型的文件VisualBasic应用程序既能以编译方式执行，也能以解释方式执行C)程序运行后，在内存中只能驻留一个窗体D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(13)确定一个控件在窗体上的位置的属性是A)Width和HeightB)Width或HeightTop和LeftD)Top或Left(14)在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程PrivateSubCommandl_Click()Textl,Text=MVisuarMe.Textl="Basic”Textl="Program"EndSub程序运行后，如果单击命令按钮，则在文本框中显示的是VisualB)BasicC)ProgramD)出错(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Label1和Command1,然后编写如下两个事件过程：PrivateSubCommand1_Click()Strtext=Inputbox(”请输入”)Text1.Text=StrtextEndSubPrivateSubTextl_Change()Label).Caption=Right(Trim(Textl.Text),3)EndSub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef,则在标签中显示的内容是A)空B)abcdefC)abcD)def(22)在窗体上画一个名称为Textl的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A)PrivateSubTextl_Keypress(KeyasciiAsInteger)IfKeyascii<65OrKeyascii>90ThenMsgbox"请输入大写字母"Keyascii=0EndIfEndSubPrivateSubText1_Keydown(KeycodeAsInteger,ShiftAsInteger)IfKeycode<65OrKeycode>90ThenMsgbox”请输入大写字母”Keycode=0EndIfEndSubPrivateSubTextl_Mousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfAsc(Textl.Text)<65OrAsc(Textl,Text)>90ThenMsgbox”请输入大写字母”EndIfEndSubPrivateSubTextl_Change()IfAsc(Textl.Text)>64AndAsc(Textl.Text)<91ThenMsgbox”请输入大写字母”EndIfEndSub2004年9月二级VB(1)设窗体上有一个文本框，名称为Textl,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：A)Textl.Maxiength=O B)Text1.Enabled=FalseC)Textl.Visible=False D)Textl.Width=0(2)以下能在窗体Forml的标题栏中显示“Visualbasic窗体”的语句是Forml.Name="Visualbasic窗体”Forml.Title=*Visualbasic窗体”Forml.Caption="Visualbasic窗体〃Forml.Text=*Visualbasic窗体”(3)在窗体上画一个名称为Textl的文本框，然后画一个名称为HscroHl的滚动条，其Min和Max属性分别为。和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：

以下能实现上述操作的程序段是PrivateSubHscroll_Change0以下能实现上述操作的程序段是PrivateSubHscroll_Change0Textl.Text=Hscrolll.ValueEndSubPrivateSubHscroll_Click()Textl.Text=Hscrolll.ValueEndSubPrivateSubHscroll_Change()Textl.Text=Hscroll.CaptionEndSubPrivateSubHscroll_Click()Textl.Text=Hscroll.CaptionEndSub(4)设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母0时，能够执行"Open”命令,则在菜单编辑器中设置“Open”命令的方式是A)把Caption属性设置为&0pen 0把Name属性设置为&0penB)把Caption属性设置为O&Pen D)把Name属性设置为O&Pen(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是A)Timerl.Interval=O.5B)Timerl.Interval=5(11)以下叙述中错误的是A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法(11)以下叙述中错误的是A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B)在多重窗体程序中，各窗体的菜单是彼此独立的C)在多重窗体程序中，可以根据需要指定启动窗体D)在多重窗体程序中，需要单独保存每个窗体(13)当一个复选框被选中时，它的Value属性的值是A)3B)2C)1D)0(18)以下叙述中错误的是A)在Keypress事件过程中不能识别键盘的按下与释放B)在Keypress事件过程中不能识别回车键0在Keydown和Keyup事件过程中，将键盘输入的"A"和"a"视作相同的字母D)在Keydown和Keyup事件过程中，从大键盘上输入的"1”和从右侧小键盘上输入的"1”被视作不同的字符(20)在窗体上画一个名称为Commanddialogl的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：PrivateSubCommand1Click()Commondialogl.Filename=””Commondialogl.Filter="AllFile|*.*|(*.Doc)I*.Doc|(*.Txt)|*.Txt*Commondialogl.Filterindex=2Commondialogl.Dialogtitle=/zVbtest/zCommondialogl.Action=lEndSub对于这个程序，以下叙述中错误的是A)该对话框被设置为“打开”对话框B)在该对话框中指定的默认文件名为空C)该对话框的标题为VbtestD)在该对话框中指定的默认文件类型为文本文件(*.Txt)(27)在窗体上画•个名称为Label1、标题为aVisualBasic考试”的标签，两个名称分别为Commandl和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500,如图所示。编写如下程序：PrivateSubFormLoad()Timerl.Enabled二FalseEndSubPrivateSubCommandIClick()Timerl.Enabled=TrueEndSubPrivateSubTimerlTimer()IfLabell.Left<WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是A)标签的移动方向为自右向左B)单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动0当标签全部移出窗体后，将从窗体的另一端出现并重新移动D)标签按指定的时间时隔移动2005年4月二级VB(11)在窗体(名称为Fbrm1)上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试:以下能实现上述操作的事件过程是：PrivateSubIext1_Change()Commandl.Caption="计算机等级考试”EndSubPrivateSubCommand1_aick()Caption="计算机等级考试”EndSubPrivateSubForml_Click()Text1.Caption=Mi+算机等级考试”EndSubPrivateSubCommand1_aick()Textl.Text=''计算机等级考试”EndSub(16)为了使命令按钮(名称为Commandl)右移200,应使用的语句是A)Command1.Move-200Command1.Move200Commandl.Left=Command1.Left+200Commandl.Left=Command1.Left-200(18)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Timeri,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔•秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：PrivateSubCommand1_Click()Timer1. EndSubPrivateSubTimerl_Timer()Textl.Text=TimeEndSub在处应填入的内容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在图片框Picture1中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是：A)选择图片框，然后按Del键B)执行语句Picture1.Picture=Loadpicture(t€^^)C)执行语句Picturel.Picture=^^^^D)选择图片框，在属性窗口中选择Picture属性，然后按回车键(20)在窗体上画一个Listl的列表框，一个名称为Labell的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是PrivateSubListl_Click()Labell.Caption=Listl.ListindexEndSubPrivateSubListl_Click()Labell.Name=Listl.ListindexEndSubPrivateSubListl_Click()Labell.Name=Listl.TextEndSubPrivateSubListl_Click()LabelI.Caption=Listl.TextEndSub(24)在VisualBasic工程中，可以作为启动对象的程序是A)任何窗体或标准模块B)任何窗体或过程C)SubMain过程或其他任何模块D)SubMain过程或任何窗体(25)假定建立了一个名为Commandl的命令按钮数组，则以下说法中错误的是A)数组中每个命令按钮的名称(名称属性)均为CommandlB)数组中每个命令按钮的标题(Caption属性)都一样C)数组中所有命令按钮可以使用同一个事件过程D)用名称Command1(下标)可以访问数组中的每个命令按钮(26)把窗体的Keypreview属性设置为True,然后编写如下事件过程：PrivateSubForm_Kcypress(KeyasciiAsInteger)DimChAsStringCh=Chr(Keyascii)Keyascii=Asc(Ucase(Ch))PrintChr(Keyascii+2)EndSub程序运行后,按键盘上的“A”键，则在窗体上显示的内容是A)AB)BC)CD)D2005年9月二级VB(19)在窗体上画一个列表框和一个命令按钮，其名称分别为List】和Command］，然后编写如下事件过程:PrivateSubForm_Load()List1.AdditemnItem1”List1.Additem"Item2”List1.Additem"Item3”EndSubPrivateSubCommandl_Click()Listl.List(Listl.Listcount)="AAAA”EndSub程序运行后，单击命令按钮，其结果为A)把字符串“AAAA”添加到列表框中，但位置不能确定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C)把列表框中原有的最后一项改为“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)(29)以下关于Keypress事件过程中参数Keyascii的叙述中正确的是Keyascii参数是所按键的ASCH码Keyascii参数的数据类型为字符串Kcyascii参数可以省略Keyascii参数是所按键上标注的字符(30)设窗体上有一个名为Textl的文本框，并编写如下程序：PrivateSubForm_Load()ShowTextl.Text=n"Textl.SetfbcusEndSubPrivateSubForm_Mouseup(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)Print”程序设计”EndSubPrivateSubText1Kcydown(KcycodcAsInteger,ShiftAsInteger)Print"VisualBasic**;EndSub程序运行后，如果在文本框中输入字母“A”，然后单击窗体，则在窗体上显示的内容是A)VisualBasic B)程序设计C)VisualBasic程序设计D)A程序设计

(31)假定有下表所列的菜单结构:标题名称层次显示Appear1(主菜单)大图标Bigicon2(子菜单)小图标Smallicon2(子菜单)要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个以下正确的事件过程是PrivateSubBigicon_Click()Bigicon.Checked=FalseEndSubPrivateSubBigicon_Click()Me.Appear.Bigicon.Checked=TruePrivateSubBigicon_Click()Bigicon.Checked=TrueEndSubPrivateSubBigicon_Click()Appear.Bigicon.Checked=TrueEndSub话框的标题为“NewTitle”的事件过程是PrivateSubCommand1PrivateSubBigicon_Click()Bigicon.Checked=TrueEndSubPrivateSubBigicon_Click()Appear.Bigicon.Checked=TrueEndSub话框的标题为“NewTitle”的事件过程是PrivateSubCommand1_Click()Commondialog1.Dialogtitle="NewTitle**Commondialog1.ShowprinterEndSubPrivateSubCommand1_Click()Commondialog1.Dialogtitle="NewTitle”Commondialog1.ShowfbntEndSubPrivateSubCommandl_Click()Commondialog1.Dialogtitle="NewTitle”Commondialog1.ShowopenEndSubPrivateSubCommandl_Click()Commondialog1.Dialogtitle="NewTitle"Commondialog1.ShowcolorEndSub填空题2002年9月二级VB(1)在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscolll的水平滚动条，其Min的值为0,Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在口］和［2］处填入适当的内容，将程序补充完整。PrivateSubIIscrolll_［1］()Lab12.Caption=Hscro111.［2］EndSub(2)在窗体上画一个名称为Commandl、标题为“计算”的命令按钮：画两个文本框，名称分别为Textl和Text2；然后画4个标签，名称分别为LabelhLabel2,Label3和Label%标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Optionl,标题分别为“+”程序运行后，在Textl、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label*程序运行情况如图所示。请在［3］、［4］和［5］处填入适当的内容，将程序补充完整。Fl画白PrivateSubCommand1_Click()For1=0To3If[3]=TrueThen0pt=0ptionl(I).CaptionEndIfNextSelectCase[4]Case"Result=Val(Textl.Text)+Val(Text2.Text)Case”-”Result=Val(Textl.Text)-Val(Text2.Text)Case"*”Result=Val(Text.Text)*Val(Text2.Text)Case"/"Result=Val(Textl.Text)/Vai(Text2.Text)EndSelect[5]=ResultEndSub(3)在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框。程序运行后,Commandl为禁用(灰色)。当向文框中输入任何字符时，命令按钮Commandl变为可用。请在[6]处填入适当的内容，将程序补充完整。PrivateSubFormLoad()Commandl.Enabled=FaIseEndSubPrivateSubTextl_[6]()Commandl.Enabled=TrueEndSub(4)在菜单编辑器中建立了一个菜单，名为Pmenu,用下面的语句可以把它作为弹出式菜单弹出，请填空。Forml.[7]Pmenu(6)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：PrivateSubForm_Load()Textl.Text=''计算机”EndSubPrivateSubTextl_Change()Picture1.Print"等级考试”EndSub程序运行后，在文本框中显示的内容是[10],而在图片框中显示的内容是[11]。(9)在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在[14]和[15]处填入适当的内容将程序补充完整。PrivateSubForm_Load()List1.Additem"北京“List1.Additem"上海"List1.Additem"湖北“EndSubPrivateSub[14]()Labell.Caption=[15]EndSub2003年4月二级VB(4)为了在运行时把D:\Pic文件夹下的图形文件A.Jpg装入图片框Picture]，所使用的语句为【4】。(5)计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。填空题(9)在窗体上画一个名称为Combo1的组合框，画两个名称分别Labell和Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCH码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"己成功添加输入项"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中"。请在【12】、【13】和【14】处将程序补充完整。PrivateSubCombo1_112](KeyasciiAsInteger)IfKeyascii=13ThenForI=0ToCombo1.Listcount-1IfCombo1.Text=[13]ThenLabel2.Caption="输入项已在组合框中”ExitSubEndIfNextILabel2.Caption="已成功添加输入项”Combo1.[14]Combo1.TextEndIfEndSub2003年9月二级VB(2)把窗体的Keypreview属性设置为True,然后编写如下两个事件过程：PrivateSubFormKeydown(KeycodeAsInteger,ShiftAsInteger)PrintChr(Keycode)EndSubPrivateSubForm_Keypress(KeyasciiAsInteger)PrintChr(Keyascii)EndSub程序运行后，如果直接按键盘上的〃A〃键(即不按住Shift键)，则在窗体上输出的字符分别是[3】和【4】o(3)在窗体上画一个标签(名称为Labell)和一个计时器(名称为Time)),然后编写如下几个事件过程：PrivateSubFormLoad()Timerl.Enabled=FalseTimerl.Interval=[5]EndSubPrivateSubFormClickOTimerl.Enabled=[6]EndSubPrivateSubTimerl_Timer()Labell.Caption=[7]EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次。请填空。(4)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和Commandl,然后编写如下.两个事件过程：PrivateSubCommand1_C1ick()S$=Inputbox("请输入一个字符串”)Textl.Text=S$EndSubPrivateSubTextlChangeOLabell.Caption=Ucase(Mid(Textl.Text,7))EndSub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visualbasic”,则在标签中显示的内容是[8】o(5)在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为Listl、Commandl和Labell,通过属性窗口把列表框中的项目设置为：〃第一个项目"、〃第二个项目〃、〃第三个项目〃、〃第四个项目〃。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择〃第三个项目〃的情况)。下面是实现上述功能的程序，请填空。PrivateSubCommand1_C1ick()IfListl.Listindex>=[9]ThenListl.Removeitem[10]Labell.Caption=[11]ElseMsgbox〃请选择要删除的项目“EndIfEndSub2004年4月二级VB(1)VisualBasic应用程序中标准模块文件的扩展名是【1】。(2)在菜单编辑器中建立一个菜单，其主菜单项的名称为Mnuedit,Visible属性为False,程序运行后，如果用鼠标右键单击窗体，则弹出与Mnuedit相应的菜单。以下是实现上述功能的程序，请填空。PrivateSubForm[2](ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then[3]MnueditEndIfEndSub(3)为了使计时器控件Timerl每隔0.5秒触发一次Timer事件，应将Timer1控件的14】属性设置为【5】。(4)与数学表达式对应的VisualBasic表达式是[6]。⑸将C盘根目录下的图形文件MoonJpg装入图片框Picturel的语句是【7】.(6)在窗体上画一个名称为Textl的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1,程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。PrivateSubOption1_Click(IndexAsInteger)SelectCase[8]Case0A="宋体”A="黑体”A="楷体_GB2312”EndSelectTextl.[9]=AEndSub2005年4月二级VB(7)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：PrivateSubForm_Click()Textl.Text=”VB程序设计”EndSubPrivateSubTextl_Change()Picture1.PrintHVbprogrammingHEndSub程序运行后，单击窗体，在文本框中显示的内容是【7]，而在图片框中显示的内容是[8】三、基本语法2002年9月二级VB(4)设有如下变量声明DimTestdateAsDate,为变量Testdate正确赋值的表达方式是A)Textdate=#l/1/2002# B)Testdate=#"1/1/2002”#C)Textdate=Date("l/l/2002'') D)Testdate=Format("M/D/Yy'',"1/1/2002")(5)设有如下声明:DimXAsInteger,如果Sgn(X)的值为-1,则X的值是A)整数B)大于0的整数C)等于0的整数D)小于0的数(7)设A=3,B=5,则以下表达式值为真的是A)A>=BAndB>10B)(A>B)Or(B>0)C)(A<0)Eqv(B>0) D)(-3+5>A)And(B>0)(8)设有语句X=Inputbox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则F列叙述中正确的是A)变量X的值是数值10B)在Inputbox对话框标题栏中显示的是“示例”C)0是默认值 D)变量X的值是字符串“10”(9)从键盘上输入两个字符串，分别保存在变量Strl、Str2中。确定第二个字符串在第一个字符串中起始位置的函数是A)LeftB)MidC)StringD)Instr(10)设A="VisualBasic"，下面使B="Basic”的语句是A)B=Left(A,8,12) B)B=Mid(A,8,5)C)B=Rigth(A,5,5) D)B=Left(A,8,5)2003年4月二级VB(3)下列可作为VisualBasic变量名的是A)A#AB)4AC)?XyD)Consta(4)设有如下的记录类型TypeStudentNumberAsStringNameAsStringAgeAsIntegerEndType则正确引用该记录类型变量的代码是A)Student.Name="张红" B)DimSAsStudentS.Name="张红"C)DimSAsTypeStudentD)DimSAsTypeS.Name="张红" S.Name="张红"(5)函数String(N,"Str")的功能是A)把数值型数据转换为字符串 C)从字符串中取出N个字符B)返回由N个字符组成的字符串 D)从字符串中第N个字符的位置开始取子字符串(6)将数学表达式Cos2(A+B)+5e2写成VisualBasic的表达式，其正确的形式是A)Cos(A+B)A2+5*Exp(2) B)CosA2(A+B)+5*Exp(2)C)Cos(A+B)A2+5*Ln(2) D)CosA2(A+B)+5*Ln(2)(7)在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：PrivateSubCommand1_Click()AS="SoftwareAndHardware*'B$=Right(A$,8)C$=Mid(A$,1,8)MsgboxA$,,B$,C$,1EndSub则在弹出的信息框的标题栏中显示的信息是A)SoftwareAndHardwareB)SoftwareC)HardwareD)1(8)执行语句sA=Inputbox("Today","Tomorrow","Yesterday",,,"DayBeforeYesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是A)TodayB)TomorrowC)YesterdayD)DayBeforeYesterday(17)以下叙述中错误的是A)用Shell函数可以调用能够在WindowsF运行的应用程序B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数C)调用Shell函数的格式应为：<变量g>=Shell(……)D)用Shell函数不能执行DOS命令2003年9月二级VB(6)以下能正确定义数据类型Telbook的代码是TypeTelbook B)TypeTelbookNameAsString*10 NameAsString*10

TelnumAsIntegerEndTelbookD)TypedefTelbookNameString*10TelnumAsIntegerEndTelbookD)TypedefTelbookNameString*10TelnumIntegerEndTypeEndTypeC)TypeTelbookNameString*10TelnumIntegerEndTypeTelbook(7)以下声明语句中错误的是A)ConstVarl=123C)DefintA-Z(10)设A)ConstVarl=123C)DefintA-Z(10)设A=10,B=5,C=l,A)TrueB)False2004年4月二级VBD)StaticVar3AsInteger执行语句PrintA>B>C后，窗体上显示的是1D)出错信息(7)执行语句S=Len(Mid("Visualbasic”,l,6))B,S的值是A)VisualB)BasicC)6D)11(9)在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程:PrivateSubCommand1_Click()A=12345PrintFormat$(A,n000.00H)EndSub程序运行后，单击命令按钮，窗体上显示的是A)123.45B)12345.00C)12345 D)00123.45(15)以下关系表达式中，其值为False的是A)“ABC”>“Abc" B)HThe,,o,,TheynC)”VISUAL”=Ucase("Visual”)D)MIntegerH>MIntM(16)语句Print5/4*6\5Mod2的输出结果是A)0B)1 C)2 D)3(18)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:PrivateSubCommandl_Click()X=-5IfSgn(X)ThenY=Sgn(XA2)ElseY=Sgn(X)EndIfPrintYEndSub程序运行后，单击命令按钮，窗体上显示的是A)-5B)25C)1D)-l2004年9月二级VB(6)以下关于Msgbox的叙述中，错误的是Msgbox函数返回一个整数B)通过Msgbox函数可以设置信息框中图标和按钮的类型Msgbox语句没有返回值Msgbox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量(12)以下合法的VisualBasic标识符是A)ForloopB)ConstC)9abcD)A#X(14)表达式5Mod3+3\5*2的值是A)0B)2 C)4D)6(15)设X=4,Y=8,Z=7,表达式X<YAnd(NotY>Z)OrZ<X的值是A)1B)-1C)TrueD)False(16)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()A$="Visualbasic”PrintString(3,A$)EndSub程序运行后，单击命令按钮，在窗体上显示的内容是A)VWB)VisC)SicD)11(19)执行如下两条语句，窗体上显示的是A=9.8596PrintFormat(A,*$00,00.00")0,009.86B)$9.86C)9.86D)$0,009.862005年4月二级VB(12)设A=5,B=4,C=3,D=2,下列表达式的值是3>2*BOrA=CAndBoCOrC>DA)1B)TrueC)False D)2(13)设A=,,Microsoftvisualbasic,,J则以下使变量B的值为"Visualbasic”的语句是A)B=Left(A,10)B=Mid(A,10)B=Right(A,10)B=Mid(A,11,10)(14)假定有如下的窗体事件过程：PrivateSubForm_Click()AS=0MicrosoftVisualBasic”B$=Right(A$,5)C=Mid(A$,1,9)MsgboxAS,34,B$,C$,5EndSub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：A)MicrosoftVisualMicrosoftBasicD)5(17)在窗体上画一个文本框，然后编写如下事件过程：PrivateSubForm_Click()X=Inputbox("请输入一个整数”)PrintX+Text1.TextEndSub程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单击“确定”按钮后，在窗体上显示的内容是：A)123 B)456 C)579D)1234562005年9月二级VB(14)设A=2,B=3,C=4,D=5,下列表达式的值是NotA<=COr4*C=BA2AndBoA+CA)-1B)1C)TrueD)False(15)设A=5,B=10,则执行C=Int((B・A)*Rnd+A)+l后，C值的范围为A)5〜10B)6〜9C)6〜10D)5〜9(16)在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：PrivateSubCommand1_Click()A$="SoftwareAndHardware"B$=Right(A$,8)C$=Mid(A$,1,8)MsgboxAS,,B$,C$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A)SoftwareAndHardwareB)SoftwareC)HardwareD)1(17)在窗体上画•个命令按钮和•个文本框，其名称分别为Commandl和Textl,把文本框的Text属性设置为空白,然后编写如下事件过程：PrivateSubCommand1_Click()A=Inputbox(nEnterAnInteger**)B=Inputbox(HEnterAnInteger")Textl.Text=B+AEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内容是A)108B)18C)810D)出错(18)在窗体上画两个文本框，其名称分别为Textl和Text2,然后编写如下程序：PrivateSubForm_Load()ShowTextl.Text=,H,Text2.Text=Textl.SetfbcusEndSubPrivateSubTcxtl_Change()Text2.Text=Mid(Textl.Text,8)EndSub程序运行后，如果在文本框Textl中输入Beijingchina,则在文本框Text2中显示的内容是A)BeijingchinaB)ChinaC)BeijingD)Beijingc填空题2004年9月二级VB(1)设有如下程序段：A$="Beijingshanghai”B$=Mid(A$,Instr(A$,"G")+l)执行上面的程序段后，变量B$的值为2005年4月二级VB(6)以下语句的输出结果是：【6】PrintInt(l2345.6789*100+0.5)/100四、分支、循环2002年9月二级VB(15)在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序：PrivateSubCommand1_Click()For1=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A)BBB)AC)BD)AACCCBBCCBBBDDDDCCCDDDCCCCEEEEEDDDDEEEEDDDDD(17)在窗体上画两个名称分别为Textl>Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimXAsInteger,NAsIntegerX=1N=0DoWhileX<20X=X*3N=N+1LoopText1.Text=Str(X)Text2.Text=Str(N)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别是A)15和1 B)27和3C)195和3D)600和4(18)在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如卜事件过程：PrivateSubCommand1_CIick()DimIAsInteger,NAsIntegerFor1=0To501=1+3N=N+1IfI>10ThenExitForNextTextl.Text=Str(N)EndSub程序运行后，单击命令按钮，在文本框中显示的值是A)2 B)3 D)4 D)52003年4月二级VB(11)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()X=0N=Inputbox(巧ForI=1ToNForJ=lToIX=X+1NextJNextIPrintXEndSub程序运行后，单击命令按钮，如果输入3,则在窗体上显示的内容是A)3B)4C)5D)6(22)以下能够正确计算N!的程序是PrivateSubCommand1_Click()N=5:X=1DoX=X*I=1+1LoopWhileI<NPrintXEndSubPrivateSubCommand1_Click()N=5:X=1:I=1DoX=X*I=1+1LoopWhileI<NPrintXEndSubPrivateSubCommandl_Click()N=5:X=1:I=1DoX=X*I1=1+1LoopWhileI<=NPrintXEndSubPrivateSubCommandl_Click()N=5:X=1:1=1DoX=X*I=1+1LoopWhileI>NPrintXEndSub2003年9月二级VB(19)在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl、Text2的文本框，然后编写如下事件过程：PrivateSubCommandl_Click()N=Textl.TextSelectCaseNCase1To20X=10Case2,4,6X=20CaseIs<10X=30Case10X=40EndSelectText2.Text=XEndSub程序运行后，如果在文本框Textl中输入10,然后单击命令按钮，则在Text2中显示的内容是10B)20C)30D)40(20)设有以下循环结构Do循环体LoopWhile〈条件》则以下叙述中错误的是A)若"条件”是一个为0的常数，则一次也不执行循环体〃条件"可以是关系表达式、逻辑表达式或常数C)循环体中可以使用ExitDo语句D)如果”条件〃总是为True,则不停地执行循环体(21)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubCommand1_C1ick()DimNumAsIntegerNum=1DoUntilNum>6PrintNum;Num=Num+2.4LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是A)13.45.8B)135C)147 D)无数据输出(22)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubCommand1Click()DimAAsInteger,SAsIntegerA=8S=1DoS=S+AA=A-lLoopWhileA<=0PrintS;AEndSub程序运行后，单击命令按钮，则窗体上显示的内容是A)79 B)340097 D)死循环(27)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:PrivateSubCommandl_Click()ForN=1To20IfNMod300ThenM=M+N\3NextNPrintNEndSub程序运行后，如果单击命令按钮，则窗体上显示的内容是A)15B)18C)21D)24(29)设有如下程序:PrivateSubCommandl_Click()DimSumAsDouble,XAsDoubleSum=0N=0ForI=1To5X=N/IN=N+1Sum=Sum+XNextEndSub该程序通过For循环计算一个表达式的值，这个表达式是A)1+1/2+2/3+3/4+4/5B)1+1