《计算机二级VB历年试题及答案.pdf》由会员分享，可在线阅读，更多相关《计算机二级VB历年试题及答案.pdf（81页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、全国计算机等级考试历年试题二级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）一个工程中只能有一
2、个Sub Main过程B）窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C）窗体的Hide方法和Unload方法的作用完全相同D）若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体（32）以下叙述中错误的是A）一个工程中可以包含多个窗体文件B）在一个窗体文件中用Private定义的通用过程能被其他窗体调用C）在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D）全局变量必须在标准模块中定义2003年 4 月二级VB（1）以下不能在工程资源管理器”窗口中列出的文件类型是A）.Bas B）.Res C）.Frm D）.Ocx（2）以下关于窗体的描述中，错
3、误的是A）执行Unload Form 1语句后，窗体Forml消失，但仍在内存中B）窗体的Load事件在加载窗体时发生C）当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D）窗体的Height、Width属性用于设置窗体的高和宽2003年 9 月二级VB（1）以下叙述中错误的是A）Visual B asic是事件驱动型可视化编程工具B）V i s u a l B a s i c 应用程序不具有明显的开始和结束语句C）V i s u a l B a s i c 工具箱中的所有控件都具有宽度（W i d t h）和 高 度（H e i g h t）属性D）V i s u
4、 a l B a s i c 中控件的某些属性只能在运行时设置（2）以下叙述中错误的是A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.B A S 为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件（4）以下不属于V i s u a l B a s i c 系统的文件类型是A）.F r m B）.B a t C）.V b g D）.V b p（5）以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存V i s u a l B a s i c 程序时，应分别保存窗体文件及工程
5、文件C）V i s u a l B a s i c 应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（1 3）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）如果工程中含有S u b M a i n 过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块O 用 H i d e 方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体2005年 9 月二级VB（1 1）假定一个V i s u a l B a s i c 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是A）只保存窗体模块文件B）分别保存窗
6、体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件D）只保存工程文件（1 2）为了清除窗体上的一个控件，下列正确的操作是A）按回车键B）按 E s c 键C）选 择（单击）要清除的控件，然后按D e l 键D）选 择（单击）要清除的控件，然后按回车键（1 3）以下叙述中错误的是A）打开一个工程文件时:系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的D b l c l i c k 事件C）V i s u a l B a s i c 应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发(3 3)如果一个工程含有多个窗体及标准模块，则
7、以下叙述中错误的是A)任何时刻最多只有一个窗体是活动窗体B)不能把标准模块设置为启动模块C)用 Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D)如果工程中含有Sub Main过程，则程序一定首先执行该过程二、常用控件2002年 9 月二级VB(11)以下能够触发文本框Change事件的操作是A)文本框失去焦点 B)文本框获得焦点C)设置文本框的焦点 D)改变文本框的内容(12)在窗体上有一个文本框控件，名称为Txttime：-个计时器控件，名称为TimerL 要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer 1 _()Txttime.Text=Tim
8、eEnd Sub在下划线上应填入的内容是A)Enabled B)Visible C)Interval D)Timer(13)在窗体上画两个单选按钮，名称分别为Optionl、Option2,标题分别为“宋体”和“黑体”；一个复选框,名称为Checkl,标题为“粗体”；一个文本框，名称为Textl,Text属性为“改变文字字体”。要求程序运行时;“宋体，单选按钮和“粗体，复选框被选中(窗体外观如下图)，则能够实现上述要求的语句序列是A)Option 1.Value=TrueCheck 1 .Value=FalseC)Option2.Value=FalseCheck 1 .Value=TrueB)
9、Optionl.Value=TrueCheck 1 .Value=TrueD)Option 1.Value=TrueCheck l.Value=l(14)为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是A)Value B)Default C)Cancel D)Enabled(16)图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是A)Autosize B)StretchC)Autoredraw D)Appearance(26)以下叙述中错误的是A)在 Keyup和 Keydown事件过程中，从键盘上输入A 或
10、A 被视作相同的字母(即具有相同的Keycode)B)在 Keyup和 Keydown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的 Keycode)C)Keypress事件中不能识别键盘上某个键的按下与释放D)Keypress事件中可以识别键盘上某个键的按下与释放(27)以下叙述中错误的是A)在同一窗体的菜单项中，不允许出现标题相同的菜单项B)在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C)程序运行过程中，可以重新设置菜单的Visible属性D)弹出式菜单也在菜单编辑器中定义(28)设在菜单编辑器中定义了一个菜单项，名为Menul。为了在运行时
11、隐藏该菜单项，应使用的语句是A)Menu l.Enabled=True B)Munu 1 .Enabled=FalseC)Menu l.Visible=True D)Menu 1 .Visible=False(29)以下叙述中错误的是A)在程序运行时，通用对话框控件是不可见的B)在同一个程序中，用不同的方法(如Showopen或 Showsave等)打开的通用对话框具有不同的作用C)调用通用对话框控件的Showopen方法，可以直接打开在该通用对话框中指定的文件D)调用通用对话框控件的Showcolor方法，可以打开颜色对话框(30)在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需
12、要指定文件列表框所列出的文件类型是文本文件(即.Txt文件)，则正确的描述格式是A),Text(.Txt)l*.Txt),B)“文本文件(.Txt)I(.Txt)C)“Text(.Txt)H(*.Txt)”D)“Text(.Txt)(*.Txt)”2003年 4 月二级VB(9)表示滚动条控件取值范围最大值的属性是A)Max B)L argechange C)Value D)Max-Min(10)在窗体上画一个名称为Listl的列表框，一个名称为L abel 1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A)Pri
13、vate Sub L istl_Click()L abel 1.Caption=L istl.L istindexEnd SubC)Private Sub L istl_Click()L abel 1.Name=L istl.TextEnd Sub(12)以下关于菜单的叙述中，错误的是B)Private Sub L istl_Click()L abel 1.Name=L istl.L istindexEnd SubD)Private Sub L istl_Click()L abel 1 .Caption=L istl.TextEnd SubA)在程序运行过程中可以增加或减少菜单项B)如果把一个
14、菜单项的Enabled属性设置为False,则可删除该菜单项C)弹出式菜单在菜单编辑器中设计D)利用控件数组可以实现菜单项的增加或减少(13)在窗体上画三个单选按钮，组成一个名为Chkoption的控件数组。用于标识各个控件数组元素的参数是A)Tag B)Index C)L istindex D)Name(19)在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：Private Sub T xta_Keypress(Key ascii As Integer)End Sub若焦点位于文本框中，则能够触发Keypress事件的操作是A)单击鼠标 B)双击文本框C)鼠标滑过文本框 D)按下
15、键盘上的某个键(21)假定有如下事件过程：Private Sub Form_Mousedown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 ThenPopupmenu PopformEnd IfEnd Sub则以下描述中错误的是A)该过程的功能是弹出一个菜单B)Popform是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y 指明鼠标的当前位置D)Button=2表示按下的是鼠标左键(30)在窗体上画一个名称为Commondialog 1的通用对话框，一个名称为Command 1的命令按钮。要求
16、单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save”，缺省文件名为“Savefile，在文件类型，栏中显示*.Txt。则能够满足上述要求的程序是A)Private Sub Commandl_Click()Commondialog 1 .Filename=SavefileCommondialog 1 .Filter=All Filesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.DocHCommondialog 1 .Filterindex=2Commondialog 1 .Dialogtitle=SaveCommondialog 1 .Action=2End Su
17、bB)Private Sub Command l_Click()Commondialog 1 .Filename=SavefileCommondialog 1 .Filter=All Filesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.Doc”Commondialog 1.Filterindex=1Commondialog 1 .Dialogtitle=HSaveCommondialog 1 .Action=2End SubC)Private Sub Commandl_Click()Commondialog 1 .Filename=SaveCommondialog 1 .Fil
18、ter=All Filesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.DocnCommondialog 1 .Filterindex=2Commondialog 1 .Dialogtitle=SavefileCommondialog 1 .Action=2End SubD)Private Sub Command l_Click()Commondialog 1 .Filename=Savefile”Commondialog 1 .Filter=All Filesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.DocCommondialog 1.Filterindex=1C
19、ommondialog 1 .Dialogtitle=Save1Commondialog 1.Action=1End Sub2003年 9 月二级VB(3)以下叙述中错误的是A)双击鼠标可以触发D b l c l i c k 事件B)窗体或控件的事件的名称可以由编程人员确定C)移动鼠标时，会触发M o u s e m o v e 事件D)控件的名称可以由编程人员设定(8)设窗体上有一个列表框控件L i s t l,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A)L i s t l.L i s t B)L i s t l.L i s t i n d e x C)L i s t l
20、.I n d e x D)L i s t l.T e x t(9)程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是A)M o u s e d o w n B)M o u s e u p C)L o a d D)C l i c k(1 1)如果要改变窗体的标题，则需要设置的属性是A)Caption B)Name C)Backcolor D)Borderstyle(1 4)窗体的M o u s e d o w n 事件过程F o r m _ M o u s e d o w n (B u t t o n A s I n t e g e r,S h i f t A s I n t e g e
21、r,X A s S i n g l e,Y A s S i n g l e)有 4个参数，关于这些参数，正确的描述是A)通过B u t t o n 参数判定当前按下的是哪一个鼠标键B)S h i f t 参数只能用来确定是否按下S h i f t 键C)S h i f t 参数只能用来确定是否按下A l t 和 C t r l 键D)参数X,Y 用来设置鼠标当前位置的坐标(1 5)设组合框C o m b o 1 中有3 个项目，则以下能删除最后一项的语句是A)C o m b o 1.Re m o v e i t e m T e x tB)C o m b o 1.Re m o v e i t e
22、 m 2C)C o m b o 1.Re m o v e i t e m 3D)C o m b o 1.Re m o v e i t e m C o m b o l.L i s t c o u n t(1 6)以下关于焦点的叙述中，错误的是A)如果文本框的T a b s t o p 属性为F a l s e,则不能接收从键盘上输入的数据B)当文本框失去焦点时，触发L o s t f o c u s 事件C)当文本框的E n a b l e d 属性为F a l s e 时,其 T a b 顺序不起作用D)可以用T a b i n d e x 属性改变T a b 顺序(1 7)如果要在菜单中添加
23、一个分隔线，则应将其C a pti on属性设置为A)=B)*C)&D)-(26)在窗体上画两个滚动条,名称分别为H sc rol l l .H sc rol l 2；六个标签，名称分别为L a b e l K L a b e l 2.L a b e l 3 L a b e l 4、L a b e l 5 L a b e l 6,其中标签 L a b e l 4 L a b e l 6 分别显示A 、B 、A*B 等文字信息，标签L a b e l l、L a b e l 2分别显示其右侧的滚动条的数值，L a b e l 3 显示A*B 的计算结果。如图所示。当移动滚动框时，在相应的标签中显
24、示滚动条的值。当单击命令按钮计算时，对标签L a b e l l、L a b e l 2中显示的两个值求积，并将结果显示在L a b e l 3 中。以下不能实现上述功能的事件过程是A)P ri va te S ub C omma nd l _ C l i c k()L a b e l 3.C a pti on=S tr(V a i(L a b e l 1.C a pti on)*V a l(L a b e l 2.C a pti on)E nd S ubB)P ri va te S ub C omma nd l _ C l i c k()L a b e l 3.C a pti on=H sc
25、 rol l l.V a l ue *I l sc rol l 2.V a l ueE nd S ubC)P ri va te S ub C omma nd l _ C l i c k()L a b e l 3.C a pti on=H sc rol l l *H sc rol l 2E nd S ubD)P ri va te S ub C omma nd l _ C l i c k()L a b e l 3.C a pti on=H sc rol l l.T e xt*H sc rol l 2.T e xtE nd S ub(28)在窗体上画一个名称为T e xtl 的文本框，并编写如下程序
26、:P ri va te S ub F orm L oa d ()S h owT e xtl.T e xt=T e xtl.S e tf oc usE nd S ubP ri va te S ub F orm M ouse up(B utton A s I nte g e r,S h i f t A s I nte g e r,X A s S i ng l e,Y A s S i ng l e)P ri nt 程序设计E nd S ubP ri va te S ub T e xtl _ K e yd own(K e yc od e A s I nte g e r,S h i f t A s I
27、nte g e r)P ri nt V i sua l B a si c”;E nd S ub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是A)V i sua l B a si c B)程序设计C)A程序设计 D)V i sua l B a si c程序设计2004年 4 月二级VB(1)在窗体上画一个名称为C o m m a n d l的命令按钮，然后编写圳下事件过程：P ri va te S ub C omma nd 1 _ C l i c k()M ove 5 00,5 00E nd S ub程序运行后，单击命令按钮，执行的操作为A)命令按钮移动到距窗体左边界、上边界各5
28、0 0的位置B)窗体移动到距屏幕左边界、上边界各5 0 0的位置C)命令按钮向左、上方向各移动5 00D)窗体向左、上方向各移动5 00(2)在窗体上有若干控件，其中有一个名称为T e xtl的文本框。影响T e xtl的T a b顺序的属性是A)T a b stop B)E na b l e dC)V i si b l e D)T a b i nd e x(4)在窗体上画一个名称为L i stl的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A)F or 1=0 T o L i stl.L i stc ount-1N e xtB)F or 1=0 T o L i stc o
29、unt-1N e xtC)F or 1=1 T o L i stl.L i stc ountNextD)For 1=1 To L istcountNext(6)以下关于图片框控件的说法中，错误的是A)可以通过Print方法在图片框中输出文本B)清空图片框控件中图形的方法之一是加载一个空图形C)图片框控件可以作为容器使用D)用 Stretch属性可以自动调整图片框中图形的大小(8)以下叙述中错误的是A)下拉式菜单和弹出式菜单都用菜单编辑器建立B)在多窗体程序中，每个窗体都可以建立自己的菜单系统C)除分隔线外，所有菜单项都能接收Click事件D)如果把一个菜单项的Enabled属性设置为False
30、,则该菜单项不可见(10)以下叙述中错误的是A)一个工程可以包括多种类型的文件B)Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C)程序运行后，在内存中只能驻留一个窗体D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(13)确定一个控件在窗体上的位置的属性是A)Width 和 Height B)Width 或 HeightC)Top 和 L eft D)Top 或 L eft(14)在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command l_Click()Text 1.Text=
31、n VisualMe.Textl=Basic”Textl=ProgramEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A)Visual B)Basic C)Program D)出错(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、L abel 1和 Commandl,然后编写如下两个事件过程：Private Sub Command 1 _Click()Strtext=Inputbox(请输入”)Text 1 .Text=StrtextEnd SubPrivate Sub Textl_Change()L abel 1 .Caption=Right(T
32、rim(Text 1 .Text),3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入A bcdef,则在标签中显示的内容是A)空 B)Abcdef C)Abc D)Def(22)在窗体上画一个名称为Textl的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A)Private Sub Text l_Keypress(Keyascii As Integer)If Keyascii 90 ThenMsgbox”请输入大写字母”Key ascii=0End IfEnd SubB)Private Sub Textl_Keydown(Keycode As Inte
33、ger,Shift As Integer)If Keycode 90 ThenMsgbox”请输入大写字母”Keycode=0End IfEnd SubC)Private Sub Text 1 _Mousedown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Asc(Textl.Text)90 ThenMsgbox”请输入大写字母”End IfEnd SubD)Private Sub Textl_Change()If Asc(Textl.Text)64 And Asc(Text 1 .Text)91 ThenMsg
34、box”请输入大写字母”End IfEnd Sub2004年 9 月二级VB(1)设窗体上有一个文本框，名称为Textl,程序运行后，要求该文本框不能接受键盘输入，但能输出信息,以下属性设置正确的是：A)Textl.Maxlength=0 B)Textl.Enabled=FalseC)Textl.Visible=False D)Textl.Width=O(2)以下能在窗体Forml的标题栏中显示“V isualbasic窗体”的语句是A)Forml.Name=，/Visualbasic 窗体”B)Forml.Title=，Visualbasic 窗体C)Forml.Caption=，Visua
35、lbasic 窗体D)Forml.Text二 Visualbasic 窗体”(3)在窗体上画一个名称为Textl的文本框，然后画一个名称为Hscrolll的滚动条，其 Min和 Max属性分别为0 和 100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是A)Private Sub Hscroll_Change()Textl.Text=Hscrolll.ValueEnd SubB)Private Sub Hscroll_Click()Textl.Text=Hscrolll.ValueEnd SubC)Private Sub Hscrol1 C
36、hange()Textl.Text=Hscroll.CaptionEnd SubD)Private Sub Hscroll_Click()Textl.Text二 Hscrol1 CaptionEnd Sub(4)设菜单中有一个菜单项为0pen。若要为该菜单命令设计访问键，即按下Alt及字母。时、能够执行“Open命令，则在菜单编辑器中设置“Open命令的方式是A)把 Caption属性设置为&0penB)把 Caption属性设置为O&PenC)把 Name属性设置为&0penD)把 Name属性设置为O&Pen在窗体上画一个名称为Timerl的计时器控件，要求每隔0.5 秒发生一次计时器事件
37、，则以下正确的属性设置语句是A)Timerl.Interval=0.5 B)Timerl.Interval=5C)Timer.Interval=50 D)Timerl.Interval=500(9)以下关于多重窗体程序的叙述中，错误的是A)用 Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B)在多重窗体程序中，各窗体的菜单是彼此独立的O 在多重窗体程序中，可以根据需要指定启动窗体D)在多重窗体程序中，需要单独保存每个窗体(1 1)以下叙述中错误的是A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定(
38、1 3)当一个复选框被选中时、它的V a l u e 属性的值是A)3 B)2 C)1 D)0(1 8)以下叙述中错误的是A)在 K e y p re s s 事件过程中不能识别键盘的按下与释放B)在 K e y p re s s 事件过程中不能识别回车键0 在 K e y d o w n 和 K e y u p 事件过程中，将键盘输入的 A 和 A”视作相同的字母D)在 K e y d o w n 和 K e y u p 事件过程中，从大键盘上输入的 I”和从右侧小键盘上输入的 1”被视作不同的字符(2 0)在窗体上画一个名称为C o m m a n d d i a l o g l 的通用对
39、话框，一个名称为C o m m a n d l 的命令按钮。然后编写如下事件过程：P ri v a t e Su b C o m m a n d l C l i c k()C o m m o n d i a l o g l.F i l e n a m eC o m m o n d i a l o g l.F i l t e r=，A l l F i l e|*|(*.D o c)|*.D o c (*.T x t)|*.T x t”C o m m o n d i a l o g l.F i l t e ri n d e x=2C o m m o n d i a l o g l.D i a l
40、o g t i t l e=V b t e s t”C o m m o n d i a l o g l.A c t i o n=lE n d Su b对于这个程序，以下叙述中错误的是A)该对话框被设置为“打开”对话框B)在该对话框中指定的默认文件名为空C)该对话框的标题为V b t e s tD)在该对话框中指定的默认文件类型为文本文件(*.T x t)(2 7)在窗体上画一个名称为L a b e l l、标题为“V i s u a l B a s i c 考试”的标签，两个名称分别为C o m m a n d l和 C o m m a n d 2、标题分别为“开始”和“停止”的命令按钮，然后
41、画一个名称为Ti m e r l 的计时器控件，并把 其 In t e r v a l 属性设置为5 00,如图所示。编写如下程序：Pr i v a t e Su b Fo r m _ Lo a d()Ti m e r l.En a b l e d=Fa l s eEn d Su bPr i v a t e Su b C o m m a n d l _ C l i c k()Ti m e r l.En a b l e d=Tr u eEn d Su bPr i v a t e Su b Ti m e r l _ Ti m e r()If La b e l l.Le f t L a b e l3
42、和L a b e l%标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为O pti onl,标题分别为“+”、“钎 和。程序运行后，在Te xtl、Te xt2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在L a b e l*程序运行情况如图所示。请 在 3、4 和 5 处填入适当的内容，将程序补充完整。P ri va te S ub C omma nd l_ C li c k()F or 1=0 To 3I f 3 二True Th e nO pt=O pti onl(I).C a pti onE nd I fN e
43、xtS e le c t C a se 4 C a se R e sult=V a l(Te xtl.Te xt)+V a l(Te xt2.Te xt)C a seR e sult=V a l(Te xtl.Te xt)-V a i(Te xt2.Te xt)C a se *”R e sult=V a l(Te xt.Te xt)*V a l(Te xt2.Te xt)C a se /R e sult=V a l(Te xtl.Te xt)/V a l(Te xt2.Te xt)E nd S e le c t 5 =R e sultE nd S ub(3)在窗体上画一个名称为C omma n
44、d l的命令按钮和一个名称为Te xtl的文本框。程序运行后，C omma nd 1为禁用(灰色)。当向文框中输入任何字符时，命令按钮C omma nd l变为可用。请 在 6 处填入适当的内容，将程序补充完整。P ri va te S ub F orm L oa d()C omma nd 1.E na b le d二F a lseE nd S ubPrivate Sub Textl_ 6()Command 1 .Enabled=TrueEnd Sub(4)在菜单编辑器中建立了一个菜单，名为Pmenu,用下面的语句可以把它作为弹出式菜单弹出，请填空。Forml.7 Pmenu(6)在窗体上画一
45、个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_L oad()Textl.Text=计算机”End SubPrivate Sub Textl_Change()Picture 1.Print 等级考试”End Sub程序运行后，在文本框中显示的内容是10,而在图片框中显示的内容是11。(9)在窗体上画一个名称为L ablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签L abell中显示所选中的项目，如图所示。请 在 14和H 5J处填入适当的内容将程序补充完整。Private Sub Form_
46、L oad()L istl.Additem北京L istl.Additem”上海”L istl.Additem湖北”End SubPrivate Sub 14J()L abel l.Caption=15End Sub2003年4月二级VB(4)为了在运行时把D:Pic文件夹下的图形文件A.Jpg装入图片框Pictured所使用的语句为【4】。(5)计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。填空题(9)在窗体上画一个名称为C omb ol的组合框，画两个名称分别L a b e ll和 L a b e l2 及 C a pti on属性分别为”城市名称”和空白
47、的标签。程序运行后，当在组合框中输入一个新项后按回车键(A S C H 码 为 1 3)时:如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并 在 La b e l 2 中给出提示”已成功添加输入项”如图所示：如果存在，则 在 La b e l 2 中给出提示”输入项已在组合框中”。请 在【12】、【13 和 14 处将程序补充完整。Pr i v a t e Su b Co mb o 1_ 12 (Ke y a s c i i As In t e ge r)If Ke y a s c i i =13 Th e nFo r I =0 To Co mb o 1 .Li s t c
48、o u n t-1If Co mb o 1 .Te x t =13 Th e nLa b e l 2.Ca p t i o n =输入项已在组合框中Ex i t Su bEn d IfNe x t ILa b e l 2.Ca p t i o n =已成功添加输入项Co mb o 1.14 Co mb o 1 .Te x tEn d IfEn d Su b2003年 9 月二级VB(2)把窗体的Ke y p r e v i e w 属性设置为Tr u e,然后编写如下两个事件过程：Pr i v a t e Su b Fo r m_Ke y d o w n(Ke y c o d e As In
49、t e ge r,Sh i f t As In t e ge r)Pr i n t Ch r(Ke y c o d e)En d Su bPr i v a t e Su b Fo r m_Ke y p r e s s(Ke y a s c i i As In t e ge r)Pr i n t Ch r(Ke y a s c i i)En d Su b程序运行后，如果直接按键盘上的A键(即不按住Sh i f t 键)，则在窗体上输出的字符分别是【3】和 4。(3)在窗体上画一个标签(名称为La b e l l)和一个计时器(名称为Ti me r l),然后编写如下几个事件过程：Pr i v a
50、 t e Su b Fo r m Lo a d ()Ti me r 1.En a b l e d =Fa l s eTi me r l.In t e r v a l =5 En d Su bPr i v a t e Su b Fo r m Cl i c k OTi me r l.En a b l e d =6 En d Su bPr i v a t e Su b Ti me r l _Ti me r()La b e l 1.Ca p t i o n =7 En d Su b程序运行后，单击窗体，将在标签中显示当前时间，每 隔1秒钟变换一次。请填空。(4)在窗体上画一个文本框、一个标签和一个命令