计算机二级VB_历年试题及答案.pdf

《计算机二级VB_历年试题及答案.pdf》由会员分享，可在线阅读，更多相关《计算机二级VB_历年试题及答案.pdf（149页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、全国计算机等级考试历年试题二级VB试题分类汇编一、集成开发环境基本操作、窗体2002年 9 月二级VB（1）在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 CA）工程资源管理器窗口 B）工具箱窗口 C）代码窗口 D）属性窗口（2）以下叙述中正确的是AA）窗体的N ame属性指定窗体的名称，用来标识一个窗体B）窗体的Name属性的值是显示在窗体标题栏中的文本C）可以在运行期间改变对象的N ame属性的值D）对象的N ame属性值可以为空（3）刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 CA）单 选 按 钮 B）图片框 C）通用对话框 D）文本框（31）以下叙述中错误的是CA）

2、一个工程中只能有一个Sub Main过程B）窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C）窗体的Hide方法和Unload方法的作用完全相同D)若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体(32)以下叙述中错误的是 B(不确定)A)一个工程中可以包含多个窗体文件B)在一个窗体文件中用Private定义的通用过程能被其他窗体调用C)在设计V B 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D)全局变量必须在标准模块中定义2003年 4月二级VB(1)以下不能在 工程资源管理器”窗口中列出的文件类型是DA).Bas B).Res C).Frm D)

3、.Ocx(2)以下关于窗体的描述中，错误的是 AA)执行Unload Forml语句后，窗体Forml消失，但仍在内存中B)窗体的L oad事件在加载窗体时发生C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D)窗体的Height、Width属性用于设置窗体的高和宽2003年 9月二级VB(1)以下叙述中错误的是CA)V i s u a l B a s i c 是事件驱动型可视化编程工具 对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

4、 h)和高度(H e i g h t)属性D)V i s u a l B a s i c 中控件的某些属性只能在运行时设置(2)以下叙述中错误的是 AA)在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B)以.B A S 为扩展名的文件是标准模块文件C)窗体文件包含该窗体及其控件的属性D)一个工程中可以含有多个标准模块文件(4)以下不属于V i s u a l B a s i c 系统的文件类型是 BA).F r m B).B a t C).V b g D).V b p 文件类型，模块类型(5)以下叙述中错误的是CA)打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块

5、等文件B)保存V i s u a l B a s i c 程序时，应分别保存窗体文件及工程 文 件 对C)V i s u a l B a s i c 应用程序只能以解释方式执行D)事件可以由用户引发，也可以由系统引发对(1 3)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 AA）如果工程中含有S u b M a i n 过程，则程序一定首先执行该过程 S u b m a i n 是什么来的？B）不能把标准模块设置为启动模块几个模块的区别？C）用 H i d e 方法只是隐藏一个窗体，不能从内存中清除该窗 体 对D）任何时刻最多只有一个窗体是活动窗体实际操作看看2005 年 9月二级

6、VB（1 1）假定一个V i s u a l B a s i c 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是BA）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件D）只保存工程文件（1 2）为了清除窗体上的一个控件，下列正确的操作是CA）按回车键 实际操作B）按 E s c 键C）选 择（单击）要清除的控件，然后按D e l 键D）选 择（单击）要清除的控件，然后按回车键（1 3）以下叙述中错误的是 CA）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的

7、Dblclick 事件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 DA）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用 Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）如果工程中含有Sub Main过程，则程序一定首先执行该过程二、常用控件2002年 9月二级VB（11）以下能够触发文本框Change事件的操作是A）文本框失去焦点 B）文本框获得焦点C）设置文本框的焦点 D）改变文本框的内容（12）在窗体上有一个文本框控件，名称为Txttime：

8、一个计时器控件，名称为Timed,要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer 1_（）Txttime.Text=TimeEnd Sub在下划线上应填入的内容是A)Enabled B)Visible C)Interval D)Timer(13)在窗体上画两个单选按钮，名称分别为Optionl、Option2,标题分别为“宋体”和“黑体”；一个复选框，名 称 为Checkl,标题为“粗体”；一个文本框，名称为Textl,Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图)，则能够实现上述要求的语句序列是A

9、)Optionl.Value=True B)Option 1.Value=TrueCheck 1 .Value=False Check 1.Value=TrueC)Option2.Value=False D)Option 1.Value=TrueCheck 1 .Value=True Check l.Value=l(14)为 了 在 按 下E sc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为T rue,这个属性是A)Value B)Default C)Cancel D)Enabled(16)图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是A

10、)Autosize B)StretchC)Autoredraw D)Appearance(26)以下叙述中错误的是A)在 Keyup和 Keydown事件过程中，从键盘上输入A或 A 被视作相同的字母(即具有相同的Keycode)B)在 Keyup和 Keydown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的Keycode)C)Keypress事件中不能识别键盘上某个键的按下与释放D)K eypress事件中可以识别键盘上某个键的按下与释放(27)以下叙述中错误的是A)在同一窗体的菜单项中，不允许出现标题相同的菜单项B)在菜单的标题栏中，所引导的字母指明了访问该

11、菜单项的访问键C)程序运行过程中，可以重新设置菜单的Visible属性D)弹出式菜单也在菜单编辑器中定义(28)设在菜单编辑器中定义了一个菜单项，名为Menul。为了在运行时隐藏该菜单项，应使用的语句是A)Menu 1 .Enabled=True B)Munu 1 .Enabled=FalseC)Menu 1.Visible=True D)Menu 1.Visible=False(29)以下叙述中错误的是A)在程序运行时，通用对话框控件是不可见的B)在同一个程序中，用 不 同 的 方 法(如Showopen或Showsave等)打开的通用对话框具有不同的作用C)调用通用对话框控件的Showop

12、en方法,可以直接打开在该通用对话框中指定的文件D)调用通用对话框控件的Showcolor方法，可以打开颜色对话框(30)在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.Txt文件)，则正确的描述格式是A)“Text(.Txt)l*.Txt)”B)“文本文件(.Txt)I(.Txt)”C)“Text(.Txt)ll(*.Txt)D)“Text(.Txt)(*.Txt)”2003年4月二级VB(9)表示滚动条控件取值范围最大值的属性是A)Max B)Largechange C)Value D)Max-Min(1 0)在窗体上画一个名称为

13、L istl的列表框，一个名称为Label 1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A)Private Sub Listl_Click()B)Private SubListl_Click()Label 1.Caption=Listl.Listindex Label 1.N ame=Listl.ListindexEnd SubEnd SubC)Private Sub Listl_Click()D)Private SubListl_Click()Label 1.N ame=List 1.TextLabel 1 .

14、Caption=List 1.TextEnd Sub End Sub(1 2)以下关于菜单的叙述中，错误的是A)在程序运行过程中可以增加或减少菜单项B)如果把一个菜单项的Enabled属性设置为False,则可删除该菜单项C)弹出式菜单在菜单编辑器中设计D)利用控件数组可以实现菜单项的增加或减少(13)在窗体上画三个单选按钮，组成一个名为Chkoption的控件数组。用于标识各个控件数组元素的参数是A)Tag B)Index C)Listindex D)N ame(19)在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：Private Sub Txta_Keypress(Keyas

15、cii As Integer)End Sub若焦点位于文本框中，则能够触发Keypress事件的操作是A)单击鼠标 B)双击文本框C)鼠标滑过文本框 D)按下键盘上的某个键(2 1)假定有如下事件过程：Private Sub Form_Mousedown(Button As Integer,Shift AsInteger,X As Single,Y As Single)If Button=2 ThenPopupmenu PopformEnd IfEnd Sub则以下描述中错误的是A)该过程的功能是弹出一个菜单B)Popform是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y指明鼠标的当前位

16、置D)Button=2表示按下的是鼠标左键(3 0)在窗体上画一个名称为Commondialog 1的通用对话框,一个名称为Command 1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.Txt。则能够满足上述要求的程序是A)Private Sub Commandl_Click()Commondialog 1 .Filename=SavefileCommondialog 1 .FilterFilesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.Doc”AllCommondialo

17、g 1 .Filterindex=2Commondialog 1 .Dialogtitle=SaveCommondialog 1 .Action=2End SubB)Private Sub Command 1 _Click()Commondialog 1 .Filename=SavefileCommondialog 1 .Filter=AllFilesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.Doc”Commondialog 1.Filterindex=1Commondialog 1 .Dialogtitle=SaveCommondialog 1 .Action=2End Su

18、bC)Private Sub Command 1 _Click()Commondialog 1 .Filename=SaveCommondialog 1 .Filter=AllFilesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.Doc”Commondialog 1 .Filterindex=2Commondialog 1 .Dialogtitle=SavefileCommondialog 1 .Action=2End SubD)Private Sub Commandl_Click()Commondialog 1 .Filename=SavefileCommondialog 1

19、.Filter=AllFilesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.Doc”Commondialog 1 .Filterindex=1Commondialog 1 .Dialogtitle=SaveCommondialog 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,且其中含有若干列表项。则以下

20、能表示当前被选中的列表项内容的是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.I n d e xD)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)N ame C)Backcolor D)Borderstyle(1 4)窗体的M o u s e d o w n 事件过程F o r m

21、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 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 l中有3个项目，则以下能删除最后一项的语句是A)C o

22、m b o l.R e m o v e i t e m T e x tB)C o m b o l.R e m o v e i t e m 2C)C o m b o l.R e m o v e i t e m 3D)C o m b o l.R e 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)当文本框的En a b l e d属性为F a l s e

23、时,其T a b顺序不起作用D)可以用T a b i n d e x属性改变T a b顺序(1 7)如果要在菜单中添加一个分隔线，则应将其C a pti on属性设置为A)=B)*C)&D)-(26)在窗体上画两个滚动条，名称分别为H sc rol l l、H sc rol l 2；六个标签，名称分别为 L a b e l l、L a b e l 2 L a b e 13L 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分别显示其

24、右侧的滚动条的数值，L a b e l 3显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮计算时，对标签L a b e l l、L a b e l 2中显示的两个值求积，并将结果显示在L a b e l 3中。以下不能实现上述功能的事件过程是A-B眄 /3年1A)P ri va te S ub C om m a 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 l.C a pti on)*V a l(L a b e l 2.C a pti on)E nd S ubB)P ri

25、va te S ub C om m a nd I C l i c k OL a b e l 3.C a pti on=H sc rol l l.V a l ue *H sc rol l 2.V a l ueE nd S ubC)P ri va te S ub C om m a nd l C l i c k OL 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 om m a nd I C l i c k OL a b e l 3.C a pti on=H sc rol l l.T e xt*H

26、 sc rol l 2.T e xtEnd Sub(28)在窗体上画一个名称为T e xtl的文本框，并编写如下程序：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 sI 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 x

27、tl K e yd own(K e yc od e A s I nte g e r,S h i f t A sI 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)Visual Basic程序设计2004年4月二级VB(1)在窗体上画一个名称为Command 1的命令按钮，然后编写如下事件过程：Private Sub Command 1 _Click()Move 500,500End Sub程序运行后，单击命令按钮

28、，执行的操作为A)命令按钮移动到距窗体左边界、上边界各500的位置B)窗体移动到距屏幕左边界、上边界各500的位置C)命令按钮向左、上方向各移动500D)窗体向左、上方向各移动500(2)在窗体上有若干控件，其中有一个名称为Textl的文本框。影响Textl的Tab顺序的属性是A)Tabstop B)EnabledC)Visible D)Tabindex(4)在窗体上画一个名称为L istl的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A)For 1=0 To Listl.Listcount-1N extB)For 1=0 To Listcount-1N extC)For

29、1=1 To List 1.ListcountN extD)For 1=1 To ListcountN ext（6）以下关于图片框控件的说法中，错误的是A）可以通过Print方法在图片框中输出文本B）清空图片框控件中图形的方法之一是加载一个空图形C）图片框控件可以作为容器使用D）用Stretch属性可以自动调整图片框中图形的大小（8）以下叙述中错误的是A）下拉式菜单和弹出式菜单都用菜单编辑器建立B）在多窗体程序中，每个窗体都可以建立自己的菜单系统C）除分隔线外，所有菜单项都能接收Click事件D）如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见(10)以下叙述中错误的是A

30、)一个工程可以包括多种类型的文件B)Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C)程序运行后，在内存中只能驻留一个窗体D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(13)确定一个控件在窗体上的位置的属性是A)Width 和 Height B)Width 或 HeightC)Top 和 Left D)Top 或 Left(14)在窗体上画一个名称为T ex tl的文本框和一个名称为Command 1的命令按钮，然后编写如下事件过程Private Sub Command 1 _Click()Textl.Text=VisualMe.Textl=BasicTe

31、xtl=ProgramEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A)Visual B)Basic C)Program D)出错(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl Label 1和Command1,然后编写如下两个事件过程：Private Sub Command 1 _Click()Strtext=Inputbox(请输入)Text 1.Text=StrtextEnd SubPrivate Sub Textl_Change()Label 1.Caption=Right(Trim(Textl.Text),3)End Sub程序运行后，

32、单击命令按钮，如果在输入对话框中输入A bcdef,则在标签中显示的内容是A)空 B)Abcdef C)Abe D)Def(22)在窗体上画一个名称为Textl的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A)Private Sub Text 1 _Keypress(Keyascii As Integer)If Keyascii 90 ThenMsgbox”请输入大写字母”Keyascii=0End IfEnd SubB)Private Sub Text 1 _Keydown(Keycode As Integer,Shift AsInteger)If Keycode

33、90 ThenMsgbox”请输入大写字母”Keycode=0End IfEnd SubC)Private Sub Textl_Mousedown(Button As Integer,ShiftAs 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(Textl.Text)91ThenMsgbox”请输入大写字母”End IfEnd Sub2004年 9 月二级VB

34、(1)设窗体上有一个文本框，名称为Textl,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：A)T e xtl.Ma xl e n g th=O B)T e xtl.E n a bl e d=F a l seC)T e xtl.V i si bl e=F a l se D)T e xtl.W i d th=O(2)以卜能在窗体F o rm l 的标题栏中显示“V i sua l ba si c 窗体 的 语句是A)F o rm l.N a m e 二 V i sua l ba si c 窗体B)F o rm l.T i tl e 二 V i sua l ba s

35、i c 窗体C)F o rm l.C a pti o n 二 V i sua l ba si c 窗体D)F o rm l.T e xt二 V i sua l ba si c 窗体”(3)在窗体上画一个名称为T e xtl 的文本框，然后画一个名称为 H sc ro l l l 的滚动条，其 Mi n 和 Ma x属性分别为0和 1 0 0。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是A)P ri va te S ub H sc ro l l C h a n g e()T e xtl.T e xt=H sc ro l l l.V a l u

36、eE n d S ubB)P ri va te S ub H sc ro l l C l i c k()T e xtl.T e xt=H sc ro l l l.V a l ueE n d S ubC)P ri va te S ub H sc ro l l C h a n g e()T e xtl.T e xt=H sc ro l l.C a pti o nE n d S ubD)P ri va te S ub H sc ro l l C l i c k()T e xtl.T e xt=H sc ro l l.C a pti o nE n d S ub(4)设菜单中有一个菜单项为O pe n

37、。若要为该菜单命令设计访问键，即按下A l t及字母。时,能够执行O pe n 命令，则在菜单编辑器中设置“O pe n 命令的方式是A)把 C a pti o n 属性设置为&0 pe nB)把 C a pti o n 属性设置为O&P e nC)把 N a m e 属性设置为&0 pe nD)把 N a m e 属性设置为O&P e n(7)在窗体上画一个名称为T i m e rl 的计时器控件，要求每隔0.5 秒发生一次计时器事件，则以下正确的属性设置语句是A)T i m e rl.I n te rva l=0.5 B)T i m e rl.I n te rva l=5C)T i m e

38、 r.I n te rva l=5 0 D)T i m e rl.I n te rva l=5 0 0(9)以下关于多重窗体程序的叙述中，错误的是A)用 H i d e 方法不但可以隐藏窗体，而且能清除内存中的窗体B)在多重窗体程序中，各窗体的菜单是彼此独立的C)在多重窗体程序中，可以根据需要指定启动窗体D)在多重窗体程序中，需要单独保存每个窗体(1 1)以下叙述中错误的是A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定(1 3)当一个复选框被选中时，它的V a l ue 属性的值是A)3 B)2 C)

39、1 D)0(1 8)以下叙述中错误的是A)在 K e ypre ss事件过程中不能识别键盘的按下与释放B)在 K e ypre ss事件过程中不能识别回车键C)在 K e yd o wn 和 K e yup事件过程中，将键盘输入的A 和 A 视作相同的字母D)在K e yd o wn 和K e yup事件过程中，从大键盘上输入的 1 和从右侧小键盘上输入的 1 被视作不同的字符(2 0)在窗体上画一个名称为C o m m a n d d i a l o g l 的通用对话框，一个名称为C o m m a n d l 的命令按钮。然后编写如下事件过程：P ri va te S ub C o m

40、m a n d l _ C 1 i c k()C o m m o n d i a l o g l.F i l e n a m e 二 C o m m o n d i a l o g l.F i l te r二 A l lF i l e|*.*|(*.D o c)|*.D o c|(*.T xt)|*.T xt”C o m m o n d i a l o g l.F i l te ri n d e x=2C o m m o n d i a l o g l.D i a l o g ti tl e=，V bte st，zC o m m o n d i a l o g l.A c ti o nE nd

41、 Su b对于这个程序，以下叙述中错误的是A)该对话框被设置为“打开”对话框B)在该对话框中指定的默认文件名为空C)该对话框的标题为V b t e s tD)在该对话框中指定的默认文件类型为文本文件(*.Txt)(27)在窗体上画一个名称为La b e l 1标题为“V is u a l B a s ic考试”的标签，两个名称分别为C o mma nd 1和C o mma nd 2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Time r l的计时器控件，并把其Int e r v a l属性设置为50 0,如图所示。编写如下程序：.VI sualB：:二 二；：；固：二；开始 停止

42、P r iv a t e Su b Fo r m_ Lo a d()Time r l.E na b le d=Fa ls eE nd Su bP r iv a t e Su b C o mma nd 1_ C 1ic k()Time r l.E na b le d=Tr u eE nd Su bP r iv a t e Su b Time r LTime r ()If La b e ll.Le f t L a be l 3和L a be l*标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为O p t i o n l,标题分别为“+、和“/。

43、程序运行后，在T e x t l、T e x t 2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在L a be l 4,程序运行情况如图所示。请 在 3、4 和 5 处填入适当的内容，将程序补充完整。P r i v a t e S u b C o m m a n d l _ C l i c k()F o r 1=0 T o 3I f 3 =T r u e T h e n0 p t=0 p t i o n l (I).C a p t i o nE n d I fN e x tS e l e c t C a s e 4 C a s e +”R e s u l t=V a l(

44、T e x t l.T e x t)+V a l(T e x t 2.T e x t)C a s e -R e s u l t=V a l(T e x t l.T e x t)-V a i(T e x t 2.T e x t)C a s e R e s u l t=V a l(T e x t.T e x t)*V a l(T e x t 2.T e x t)C a s e /R e s u l t=V a l(T e x t l.T e x t)/V a i(T e x t 2.T e x t)E n d S e l e c t 5 二 R e s u l tE n d S u b(3)在窗体

45、上画一个名称为C o m m a n d 1 的命令按钮和一个名称为 T e x t l 的文本框。程序运行后，C o m m a n d l 为禁用(灰色)。当向文框中输入任何字符时，命令按钮C o m m a n d l 变为可用。请 在 6 处填入适当的内容，将程序补充完整。P r i v a t e S u b F o r m _ L o a d()C o m m a n d 1.E n a bl e d 二 F a l s eE n d S u bPrivate Sub Textl_ 6()Command 1 .Enabled=TrueEnd Sub(4)在菜单编辑器中建立了一个菜单

46、，名为Pm enu,用下面的语句可以把它作为弹出式菜单弹出，请填空。Forml.7 Pmenu(6)在窗体上画一个文本框和一个图片框，然后编写如卜两个事件过程：Private Sub Form_Load()Text 1.Text=计算机”End SubPrivate Sub Textl_Change()PictureLPrint 等级考试”End Sub程序运行后，在文本框中显示的内容是 10,而在图片框中显示的内容是 H。在窗体上画一个名称为L ablel的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时;在标签L abell中显示所选中的

47、项目，如图所示。请 在 14和 15处填入适当的内容将程序补充完整。Private Sub Form_Load()List 1.Additem”北京”List 1.Additem”上海”List 1.Additem湖北”End SubPrivate Sub 14()Label l.Caption=15End Sub2003年 4 月二级VB(4)为了在运行时把D:Pic文件夹下的图形文件A Jpg装入图片框Pictured所使用的语句为【4】。(5)计时器控件能有规律的以一定时间间隔触发【5】事件,并执行该事件过程中的程序代码。填空题(9)在窗体上画一个名称为Combo 1 的组合框，画两个名

48、称分 别 Label 1 和 Label2及 Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码 为 13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示”已成功添加输入项”如图所示；如果存在，则在Label2中给出提示”输入项已在组合框中”。请 在【12】、【13】和【14】处将程序补充完整。Private Sub Combo 1_ 12(Keyascii As Integer)If Keyascii=13 ThenFor I=0 To Combo 1 .Listcount-1If C

49、ombo 1 .Text=13 ThenLabel2.Caption=输入项已在组合框中Exit SubEnd IfN ext ILabel2.Caption=已成功添加输入项Combo 1.14 Combo 1.TextEnd IfEnd Sub2003年9月二级VB(2)把窗体的K e y p r e v i e w属性设置为T r u e,然后编写如下两个事件过程：Pr i v a t e S u b F o r m K e y d o w n(K e y c o d e A s I n t e g e r,S h i ft A sI n t e g e r)Pr i n t C h r

50、 (K e y c o d e)E n d S u bPr i v a t e S u b F o r m K e y p r e s s(K e y a s c i i A s I n t e g e r)Pr i n t C h r(K e y a s c i i)E n d S u b程序运行后，如果直接按键盘上的A键(即不按住S h i ft键),则在窗体上输出的字符分别是 3】和【4】。(3)在窗体上画一个标签(名称为L a b e l 1)和一个计时器(名称为T i m e r l),然后编写如下几个事件过程：Pr i v a t e S u b F o r m L o a d()