计算机等级考试二级VB教程与真题题库解析

计算机等级考试二级VB教程与真题题库解析1.1VisualBasic概述.VisualBasic是什么VisualBasic(简称VB)是Microsoft公司开发的•种通用的基于对象的程序设计语言。“Visual”指的是开发图形用户界面(GUI)的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。“Basic”指的是BASIC(BeginnersAll-PurposeSymbolicInstruct沁nCode)语言，一种在计算技术发展历史上应用得最为广泛的语言。VisualBasic在原有BASIC语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和WindowsGUI有直接关系。专业人员可以用VisualBasic实现其它任何Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。VisualBasicScriptingEdition(VBScript)是广泛使用的脚本语言，它是VisualBasic语言的子集，可嵌入HTML语言中，用于网页设计,如ASP(ActiveServerPage)文件。VB简单易学，通用性强，用途广泛。.VB的功能VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。数据访问特性允许对包括MicrosoftSQLServer和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。有了ActiveX(TM)技术就可使用其它应用程序提供的功能，例如MicrosoftWord字处理器，MicrosoftExcel电子数据表及其它Windows应用程序。Internet能力强大，很容易在应用程序内通过Internet或intranet访问文档和应用程序,或者创建Internet服务器应用程序。已完成的应用程序是使用VisualBasic虚拟机真正.exe文件，可以自由发布。.VB的发展VB是伴随Windows操作系统而发展的，在中国使用较广的版本有VB4.0、VB5.0,VB6.0。VB4.0是为配合WIN95的问世于1995年推出的，既可用于编写WIN3.X平台的16位应用程序也可编写WIN95平台的32位应用程序；VB5.0主要用于编写WIN95平台的32位应用程序，较之VB4.0主要扩展了数据库、ActiveX和Internet方面的功能;VB6.0是'jWIN98配合于1998年推出的，进一步加强了数据库、Internet和创建控件方面的功能。.VB中的几个常用术语工程(Project)：是指用于创建一个应用程序的文件的集合。对象(object)：可控制的某个东西,VB中主要有两类对象:窗体和控件。窗体(form)：应用程序的用户界面，即windows。控件(control)：指的是各种按扭、标签、文本框等。属性(property)：是指对象的特性，如大小、标题或颜色。ActiveX:ActiveX是基于componentobjectmodel(com)的可视化控件结构的商标 名称.它是一种封装技术，提供封装COM组件并将其置入应用程序(如WEB浏览器)的一种方法.ComponentsObjectModel(COM)：是软件组件互相通讯的一种方式。它是一种二进制和网络标准，允许任意两个组件互相通讯，而不管它们是在什么计算机上运行(只要计算机是相连的)，不管各计算机运行的是什么操作系统(只要该操作系统支持COM),也不管该组件是用什么语言编写的。.VB的系统特性⑴工程限制1)代码限制：可被加载到窗体、类或标准模块的代码总数限于65,534行。一行代码限于1023个字节。在一行中的实际文本之前最多只能有256个空格的前导，在一个逻辑行中最多只能有25个续行符(_)。2)过程、类型相变量对每个模块的过程数没有限制。每个过程可包含至多64K的代码。如果过程或模块超过这一限制，VisualBasic便产生编译时间错误。如果遇到这种错误，可将特别大的过程分割成若干个较小的过程，或将模块级声明移到另模块，来避免此类错误发生。VisualBasic用表来保存代码中的标识符名(变量、过程、常量等)。每个表限于64K。3)动态链接库声明表每个窗体和代码模块使用一个描述动态链接库入口点的结构的表。每个结构约40个字节，表的大小限于64K,形成每个模块大约有1500个声明。4)工程名表整个应用程序用一张包含所有名称的表。这些名称包括：常量名、变量名、自定义的类型定义名、模块名、DLL过程声明名。对工程名表总大小没有限制，但是区分大小写的条目不得超过32K。如果超过了32K的限制，可以在不同的模块中重新使用private标识符以限制区分大小写的条目数到达32K。5)输入表在不同的模块中每引用一个标识符，便在输入表中创建一个条目。每一个这样的入口最小是24字节，但限于64K,这样每个模块大约可以有2000个引用。6)模块条目表该表中每个模块最多达125个字节，但有64K的总限制，这样每个工程大约可以产生400个模块。VB中的变量名不多于255个字符，而窗体、控件、模块和类名不多于40个字符。(2)工程文件格式VB在创建和编译工程时要产生许多文件，分为：设计时文件、杂项开发文件和运行时文件。设计时文件是工程的建造块，例如基本模块(.bas)和窗体模块(.frm)。杂项文件是由VisualBasic开发环境中的各种不同的进程和函数产生的，例如打包和展开向导从属文件(.dep)o1.2VB6.0的集成开发环境简介VB集成开发环境(IDEIntegratedDevelopingEnvironment)由以卜元素组成：全国计算机等级考试历年试题

二级VB试题分类汇编一、集成开发环境基本操作、窗体2002年9月二级VB(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 CA)工程资源管理器窗口 B)工具箱窗口C)代码窗口 D)属性窗口（2）以下叙述中正确的是AA）窗体的Name属性指定窗体的名称，用来标识一个窗体B）窗体的Name属性的值是显示在窗体标题栏中的文本C）可以在运行期间改变对象的Name属性的值D）对象的Name属性值可以为空（3）刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 CA）单选按钮B）图片框C）通用对话框D）文本框（31）以下叙述中错误的是CA）一个工程中只能有一个SubMain过程B）窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C）窗体的Hide方法和Unload方法的作用完全相同D）若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体（32）以下叙述中错误的是 B（不确定）A）一个工程中可以包含多个窗体文件B）在一个窗体文件中用Private定义的通用过程能被其他窗体调用C)在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D)全局变量必须在标准模块中定义2003年4月二级VB(1)以下不能在"工程资源管理器”窗口中列出的文件类型是DA).BasB).Res C).Frm D).Ocx(2)以下关于窗体的描述中，错误的是AA)执行UnloadForml语句后，窗体Form1消失,但仍在内存中B)窗体的Load事件在加载窗体时发生C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D)窗体的Height、Width属性用于设置窗体的高和宽2003年9月二级VB(1)以下叙述中错误的是CVisualBasic是事件驱动型可视化编程工具对VisualBasic应用程序不具有明显的开始和结束语句VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性VisualBasic中控件的某些属性只能在运行时设置(2)以下叙述中错误的是AA)在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B)以.BAS为扩展名的文件是标准模块文件C)窗体文件包含该窗体及其控件的属性D)一个工程中可以含有多个标准模块文件(4)以下不属于VisualBasic系统的文件类型是BA).FrmB).BatC).VbgD).Vbp文件类型，模块类型(5)以下叙述中错误的是CA)打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B)保存VisualBasic程序时，应分别保存窗体文件及工程文件对C)VisualBasic应用程序只能以解释方式执行D)事件可以由用户引发，也可以由系统引发对(13)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 AA）如果工程中含有SubMain过程，则程序一定首先执行该过程 Submain是什么来的？B）不能把标准模块设置为启动模块几个模块的区别？C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体对D）任何时刻最多只有一个窗体是活动窗体实际操作看看2005年9月二级VB（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是BA）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件D）只保存工程文件（12）为了清除窗体上的一个控件，下列正确的操作是CA）按回车键 实际操作B）按Esc键C）选择（单击）要清除的控件，然后按Del键D）选择（单击）要清除的控件，然后按回车键（13）以下叙述中错误的是CA）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的Dblclick事件C）VisualBasic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是DA）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）如果工程中含有SubMain过程，则程序一定首先执行该过程二、常用控件2002年9月二级VB（11）以下能够触发文本框Change事件的操作是A）文本框失去焦点 B）文本框获得焦占八、、C）设置文本框的焦点 D）改变文本框的内容(12)在窗体上有一个文本框控件，名称为Txttime：一个计时器控件，名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。程序为：PrivateSubTimer1 ()Txttime.Text=TimeEndSub在下划线上应填入的内容是A)EnabledB)VisibleC)IntervalD)Timer(13)在窗体上画两个单选按钮，名称分别为Optionl、Option2,标题分别为“宋体”和“黑体”；一个复选框，名称为Checkl,标题为“粗体”；一个文本框，名称为Textl,Text属性为“改变文字字体”。要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图)，则能够实现上述要求的语句序列是A)Option1.Value=True B)Option1.Value二TrueCheck1.Value=FalseCheck1.Value=TrueOption2.Value=False D)Option1.Value=TrueCheck1.Value=TrueCheckl.Value=l(14)为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True,这个属性是A)Value B)DefaultC)CancelEnabled(16)图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是A)AutosizeB)StretchC)AutoredrawD)Appearance(26)以下叙述中错误的是A)在Keyup和Keydown事件过程中，从键盘上输入A或A被视作相同的字母(即具有相同的Keycode)B)在Keyup和Keydown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的Keycode)Keypress事件中不能识别键盘上某个键的按下与释放Keypress事件中可以识别键盘上某个键的按下与释放(27)以下叙述中错误的是A)在同一窗体的菜单项中，不允许出现标题相同的菜单项B)在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C)程序运行过程中，可以重新设置菜单的Visible属性D)弹出式菜单也在菜单编辑器中定义(28)设在菜单编辑器中定义了一个菜单项，名为Menuk为了在运行时隐藏该菜单项，应使用的语句是A) Menu1.Enabled=True B)Munu1.Enabled=FalseC) Menu1.Visible=True D)Menul.Visible=False(29)以下叙述中错误的是A)在程序运行时，通用对话框控件是不可见的B)在同一个程序中，用不同的方法(如Showopen或Showsave等)打开的通用对话框具有不同的作用C)调用通用对话框控件的Showopen方法，可以直接打开在该通用对话框中指定的文件D)调用通用对话框控件的Showcolor方法，可以打开颜色对话框(30)在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.Txt文件)，则正确的描述格式是A)“Text(.Txt)l*.Txty,B)”文本文件(.Txt)I(Txt)”C) “Text(.Txt)ll(*.Txt)”D)“Text(.Txt)(*.Txt)”2003年4月二级VB(9)表示滚动条控件取值范围最大值的属性是A)MaxB)LargechangeC)ValueD)Max-Min(10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是PrivateSubListl_Click() B)PrivateSubListl_Click()Label1.Caption =Listl.ListindexLabel1.Name=Listl.ListindexEndSub EndSubC)PrivateSubListl_Click() D)PrivateSubListl_Click()Label1.Name = Listl.TextLabel1.Caption=Listl.TextEnd SubEndSub(12)以下关于菜单的叙述中，错误的是A)在程序运行过程中可以增加或减少菜单项B)如果把一个菜单项的Enabled属性设置为False,则可删除该菜单项C)弹出式菜单在菜单编辑器中设计D)利用控件数组可以实现菜单项的增加或减少(13)在窗体上画三个单选按钮，组成一个名为Chkoption的控件数组。用于标识各个控件数组元素的参数是A)TagB)IndexC)ListindexD)Name(19)在窗体上画一个名称为Txta的文本框，然后编写如下的事件过程：PrivateSubTxta_Keypress(KeyasciiAsInteger)EndSub若焦点位于文本框中，则能够触发Keypress事件的操作是A)单击鼠标 B)双击文本框C)鼠标滑过文本框 D)按下键盘上的某个键(21)假定有如下事件过程：PrivateSubForm_Mousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupmenuPopformEndIfEndSub则以下描述中错误的是A)该过程的功能是弹出一个菜单Popform是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y指明鼠标的当前位置D)Button=2表示按下的是鼠标左键(30)在窗体上画一个名称为Commondialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在"文件类型”栏中显示*.Txt。则能够满足上述要求的程序是PrivateSubCommandl_Click()Commondialog1.Filename="Savefile"Commondialog1.Filter = "AllFilesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.Doc”Commondialog1.Filterindex=2Commondialog1.Dialogtitle="Save"Commondialog1.Action=2EndSubPrivateSubCommand1_Click()Commondialog1.Filename="Savefile"Commondialog1.Filter = "AllFilesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.DocMCommondialog1.Filterindex=1Commondialog1.Dialogtitle="Save"Commondialog1.Action=2EndSubPrivateSubCommandl_Click()Commondialog1.Filename="Save"Commondialog1.Filter = "AllFilesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.DocnCommondialog1.Filterindex=2Commondialog1.Dialogtitle="Savefile"Commondialog1.Action=2EndSubPrivateSubCommandl_Click()Commondialog1.Filename="Savefile"Commondialog1.Filter = "AllFilesl*.*l(*.Txt)l*.Txtl(*.Doc)l*.DocnCommondialog1.Filterindex=1Commondialog1.Dialogtitle="Save"Commondialog1.Action=1EndSub2003年9月二级VB(3)以下叙述中错误的是A)双击鼠标可以触发Dblclick事件B)窗体或控件的事件的名称可以由编程人员确定C)移动鼠标时，会触发Mousemove事件D)控件的名称可以由编程人员设定(8)设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A)Listl.ListB)List1.ListindexC)Listl.IndexD)Listl.Text(9)程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是MousedownB)MouseupC)LoadD)Click(ID如果要改变窗体的标题，则需要设置的属性是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.Removeitem2Combo1.Removeitem3Combo1.RemoveitemCombo1.Listcount(16)以下关于焦点的叙述中，错误的是A)如果文本框的Tabstop属性为False,则不能接收从键盘上输入的数据B)当文本框失去焦点时，触发Lostfocus事件C)当文本框的Enabled属性为False时，其Tab顺序不起作用D)可以用Tabindex属性改变Tab顺序(17)如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A)=B)*C)&D)-(26)在窗体上画两个滚动条，名称分别为Hscrolll>Hscroll2；六个标签，名称分别为LabelLabe12>Labe13>Label4>Labe15>Labe16,其中标签1北014~1^^16分别显示为〃、为〃、“*8〃等文字信息，标签Labell、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮〃计算〃时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是PrivateSubCommandl_Click()Label3.Caption二Str(Vai(Label1.Caption)*Val(Label2.Caption))EndSubPrivateSubCommandl_Click()Label3.Caption=Hscroll1.Value*Hscroll2.ValueEndSubPrivateSubCommandl_Click()Label3.Caption=Hscrolll*Hscroll2EndSubPrivateSubCommand1_Click()Label3.Caption=Hscrolll.Text*Hscroll2.TextEndSub(28)在窗体上画一个名称为Textl的文本框，并编写如下程序：PrivateSubForm_Load()ShowTextl.Text=〃〃Textl.SetfocusEndSubPrivateSubForm_Mouseup(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)TabstopC)VisibleB)EnabledD)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和Left D)Top或Left(14)在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程PrivateSubCommand1_Click()Textl.Text="Visual"Me.Textl="Basic"Textl="Program"EndSub程序运行后，如果单击命令按钮，则在文本框中显示的是VisualB)BasicC)ProgramD)出错(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Label1WCommand1,然后编写如下两个事件过程：PrivateSubCommandl_Click()Strtext=Inputbox("请输入")Text1.Text=StrtextEndSubPrivateSubTextl_Change()Label1.Caption=Right(Trim(Text1.Text),3)EndSub程序运行后，单击命令按钮，如果在输入对话框中输入Abcdef,则在标签中显示的内容是A)空 B)AbcdefC)AbeD)Def(22)在窗体上画一个名称为Textl的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A)PrivateSubText1_Keypress(KeyasciiAsInteger)IfKeyascii<65OrKeyascii>90Then

Msgbox”请输入大写字母”Keyascii=0EndIfEndSubPrivateSubTextl_Keydown(KeycodeAsInteger,ShiftAsInteger)IfKeycode<65OrKeycode>90Then

Msgbox”请输入大写字母”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)Text1.Maxlength=OB)Textl.Enabled=FalseC)Text1.Visible=FalseD)Textl.Width=O(2)以下能在窗体Forml的标题栏中显示“Visualbasic窗体〃的语句是Forml.Name="Visualbasic窗体〃Forml.Title="Visualbasic窗体〃Forml.Caption二〃Visualbasic窗体”Forml.Text二〃Visualbasic窗体”(3)在窗体上画一个名称为Textl的文本框，然后画一个名称为Hscrolll的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：■tor・l以下能实现上述操作的程序段是PrivateSubHscroll_Change()Textl.Text=Hscroll1.ValueEndSubPrivateSubHscroll_Click()Textl.Text=Hscrolll.ValueEndSubPrivateSubHscroll_Change()Textl.Text=Hscroll.CaptionEndSubPrivateSubHscroll_Click()Textl.Text=Hscroll.CaptionEndSub(4)设菜单中有一个菜单项为〃Open〃。若要为该菜单命令设计访问键，即按下Alt及字母。时，能够执行〃0pen〃命令，则在菜单编辑器中设置“Open〃命令的方式是A)把Caption属性设置为&0penB)把Caption属性设置为O&Pen0把Name属性设置为&0penD)把Name属性设置为O&Pen(7)在窗体上画一个名称为Timerl的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是A)Timerl.Interval=O.5B)Timerl.Interval=5C)Timer.Interval=50D)Timerl.Interval.二500(9)以下关于多重窗体程序的叙述中，错误的是A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B)在多重窗体程序中，各窗体的菜单是彼此独立的C)在多重窗体程序中，可以根据需要指定启动窗体D)在多重窗体程序中，需要单独保存每个窗体(11)以下叙述中错误的是A)事件过程是响应特定事件的一段程序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的命令按钮。然后编写如下事件过程：PrivateSubCommand1_Click()Commondialogl.Filename二〃〃Commondialogl.Filter—AHFile|*.*|(*.Doc)|*.Doc|(*.Txt)|Txt〃Commondialogl.Filterindex=2Commondialogl.Dialogtitle="Vbtest〃Commondialogl.ActionalEndSub对于这个程序，以下叙述中错误的是A)该对话框被设置为“打开”对话框B)在该对话框中指定的默认文件名为空C)该对话框的标题为VbtestD)在该对话框中指定的默认文件类型为文本文件(*.Txt)(27)在窗体上画一个名称为Labell、标题为"VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500,如图所示。编写如下程序：PrivateSubFormLoad()Timer1.Enabled=FalseEndSubPrivateSubCommand1Click()Timerl.Enabled=TrueEndSubPrivateSubTimerlTimer()IfLabell.Left<WidthThenLabel1.Left=Labell.Left+20ElseLabel1.Left=OEndIfEndSub程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是A)标签的移动方向为自右向左B)单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动0当标签全部移出窗体后，将从窗体的另一端出现并重新移动D)标签按指定的时间时隔移动2005年4月二级VB(11)在窗体(名称为Forml)上画一个名称为Textl的文本框和一个名称为Commanch的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：PrivateSubText1_Change()Commandl.Caption二”计算机等级考试”EndSubPrivateSubCommand1_aick()CaptionB计算机等级考试”EndSubPrivateSubForml_Click()Textl.Caption="计算机等级考试”EndSubPrivateSubCommand1_aick()Text1.Text二”计算机等级考试”EndSub(16)为了使命令按钮(名称为Commandl)右移200,应使用的语句是A)Commandl.Move-200Commandl.Move200Commandl.Left=Command1.Left+200Commandl.Left=Command1.Left-200(18)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Timerl,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：PrivateSubCommand1_Click()Timerl. EndSubPrivateSubTimerl_Timer()Text1.Text=TimeEndSub在处应填入的内容是A)Enabled=True B)Enabled=FalseC)Visible=True D)Visible二False(19)假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是：A)选择图片框，然后按Del键B)执行语句Picture1.Picture二Loadpicturn("")C)执行语句Picture1.Picture=^^^^D)选择图片框，在属性窗口中选择Picture属性，然后按回车键(20)在窗体上画一个Listl的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是PrivateSubListl_Click()Label1.Caption=Listl.ListindexEndSubPrivateSubListl_Click()Label1.Name=List1.ListindexEndSubPrivateSubListl_Click()Label1.Name=List1.TextEndSubPrivateSubListl_Click()Label1.Caption=List1.TextEndSub(24)在VisualBasic工程中，可以作为启动对象的程序是A)任何窗体或标准模块B)任何窗体或过程C)SubMain过程或其他任何模块D)SubMain过程或任何窗体(25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是A)数组中每个命令按钮的名称(名称属性)均为Command1B)数组中每个命令按钮的标题(Caption属性)都一样C)数组中所有命令按钮可以使用同一个事件过程D)用名称Command1(下标)可以访问数组中的每个命令按钮(26)把窗体的Keypreview属性设置为True,然后编写如下事件过程：PrivateSubForm_Keypress(KeyasciiAsInteger)DimChAsStringCh=Chr(Keyascii)Keyascii=Asc(Ucase(Ch))PrintChr(Keyascii+2)EndSub程序运行后,按键盘上的“A”键,则在窗体上显示的内容是A)AB)BC)CD)D2005年9月二级VB(19)在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Command1,然后编写如下事件过工口不王：PrivateSubForm_Load()Listl.Additem"Item1"Listl.Additem"Item2"Listl.Additem"Item3"EndSubPrivateSubCommandl_Click()List1.List(List1.Listcount)="AAAA"EndSub程序运行后，单击命令按钮，其结果为A)把字符串“AAAA”添加到列表框中，但位置不能确定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C)把列表框中原有的最后一项改为“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)(29)以下关于Keypress事件过程中参数Keyascii的叙述中正确的是Keyascii参数是所按键的ASCII码Keyascii参数的数据类型为字符串Keyascii参数可以省略Keyascii参数是所按键上标注的字符(30)设窗体上有一个名为Textl的文本框，并编写如下程序：PrivateSubForm_Load()ShowTextl.Text="”Textl.SetfocusEndSubPrivateSubForm_Mouseup(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)Print”程序设计”EndSubPrivateSubText1_Keydown(KeycodeAsInteger,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=TrueEndSubPrivateSubBigicon_Click()Bigicon.Checked=TrueEndSubPrivateSubBigicon_Click()Appear.Bigicon.Checked=TrueEndSub(32)假定通用对话框的名称为Commondialog1,命令按钮的名称为Command1,则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是PrivateSubCommandl_Click()Commondialog1.Dialogtitle="NewTitle"Commondialog1.ShowprinterEndSubPrivateSubCommandl_Click()Commondialog1.Dialogtitle="NewTitle"Commondialog1.ShowfontEndSubPrivateSubCommandl_Click()Commondialog1.Dialogtitle="NewTitle"Commondialog1.ShowopenEndSubPrivateSubCommandl_Click()Commondialog1.Dialogtitle="NewTitle"Commondialog1.ShowcolorEndSub填空题2002年9月二级VB(1)在窗体上画两个标签，其名称分别为Labell和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscolll的水平滚动条，其Min的值为0,Max的值为100o程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在口］和［2］处填入适当的内容，将程序补充完整。数值pdJ」PrivateSubHscrolll_［1］()Labl2.Caption=Hscrolll.［2］EndSub(2)在窗体上画一个名称为Commandl、标题为“计算”的命令按钮；画两个文本框，名称分别为Textl和Text2；然后画4个标签，名称分别为Labell、Label2、Label3和Label*标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Optionl,标题分别为“+”、、“*”和“/"。程序运行后，在Textl、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label%程序运行情况如图所示。请在［3］、［4］和［5］处填入适当的内容，将程序补充完整。PrivateSubCommand1_Click()For1=0To3If[3]二TrueThen0pt=0ptionl(I).CaptionEndIfNextSelectCase[4]Case"+”Result=Val(Textl.Text)+Val(Text2.Text)Case"-”Result=Val(Textl.Text)-Vai(Text2.Text)Case"Result=Val(Text.Text)*Val(Text2.Text)Case"/"Result=Val(Textl.Text)/Vai(Text2.Text)EndSelect[5]=ResultEndSub(3)在窗体上画一个名称为Command1的命令按钮和一个名称为Textl的文本框。程序运行后，Command1为禁用(灰色)。当向文框中输入任何字符时，命令按钮Command1变为可用。请在[6]处填入适当的内容,将程序补充完整。PrivateSubFormLoad()Command1.Enabled=FalseEndSubPrivateSubTextl_[6]()Command1.Enabled二TrueEndSub(4)在菜单编辑器中建立了一个菜单，名为Pmenu,用下面的语句可以把它作为弹出式菜单弹出，请填空。Form1.[7]Pmenu(6)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：PrivateSubForm_Load()Text1.Text二"计算机”EndSubPrivateSubTextl_Change()Picture1.Print”等级考试”EndSub程序运行后，在文本框中显示的内容是[10],而在图片框中显示的内容是[11]O(9)在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Label1中显示所选中的项目，如图所示。请在[14]和[15]处填入适当的内容将程序补充完整。PrivateSubForm_Load()Listl.Additem“北京”Listl.Additem”上海”Listl.Additem"湖北”EndSubPrivateSub[14]()Labell.Caption=[15]EndSub2003年4月二级VB(4)为了在运行时把D:\Pic文件夹下的图形文件A.Jpg装入图片框Picture1,所使用的语句为【4】。(5)计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。填空题(9)在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为"城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示”已成功添加输入项”如图所示；如果存在，则在Label2中给出提示”输入项已在组合框中”。请在【12】、【13】和【14】处将程序补充完整。*Forml-1□1x|*Forml城市名称已成功添加输入项PrivateSubCombo1_112](KeyasciiAsInteger)IfKeyascii=13ThenForI=0ToCombo1.Listcount-1IfCombol.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】和【】°(3)在窗体上画一个标签(名称为Labell)和一个计时器(名称为Timerl),然后编写如下几个事件过程：PrivateSubForm_Load()Timerl.Enabled=FalseTimerl.Interval=[5]EndSubPrivateSubForm_Click()Timerl.Enabled=[6]EndSubPrivateSubTimerl_Timer()Label1.Caption=[7]EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次。请填空。(4)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Label1和Command1,然后编写如下两个事件过程：PrivateSubCommand1_Click()S$=Inputbox(〃请输入一个字符串〃)Textl.Text=S$EndSubPrivateSubTextl_Change()Label1.Caption=Ucase(Mid(Textl.Text,7))EndSub程序运行后，单击命令按钮，将显示一个输入对话框,如果在该对话框中输入字符串〃Visualbasic〃，则在标签中显示的内容是[8】o(5)在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为Listl、Commandl和Labell,通过属性窗口把列表框中的项目设置为：〃第一个项目〃、〃第二个项目〃、〃第三个项目〃、〃第四个项目〃。程序运行后，在列表框中选择一个项目，然后单击命令按钮,即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择〃第三个项目〃的情况)。下面是实现上述功能的程序，请填空。PrivateSubCommandlClick()IfListl.Listindex〉=[9]ThenListl.Removeitem[10]Label1.Caption=[11]ElseMsgbox〃请选择要删除的项目〃EndIfEndSub2004年4月二级VB(1)VisualBasic应用程序中标准模块文件的扩展名是[1]O(2)在菜单编辑器中建立一个菜单，其主菜单项的名称为Mnuedit,Visible属性为False,程序运行后，如果用鼠标右键单击窗体，则弹出与Mnuedit相应的菜单。以下是实现上述功能的程序，请填空。PrivateSubForm【2】(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then[3]MnueditEndIfEndSub(3)为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】属性设置为【5】。(4)与数学表达式对应的VisualBasic表达式是【6】。(5)将C盘根目录下的图形文件MoonJpg装入图片框Picture1的语句是[7]。(6)在窗体上画一个名称为Textl的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组,名称为Optionl,程序运行后，如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。PrivateSubOptionl_Click(IndexAsInteger)SelectCase[8]Case0A二”宋体”A二“黑体”A="楷体_GB2312”EndSelectTextl.[9]=AEndSub2005年4月二级VB(7)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：PrivateSubForm_Click()Textl.Text二”VB程序设计”EndSubPrivateSubTextl_Change()Picture1.Print"Vbprogramming"EndSub程序运行后，单击窗体，在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】三、基本语法2002年9月二级VB(4)设有如下变量声明DimTestdateAsDate,为变量Testdate正确赋值的表达方式是A)Textdate=#1/1/2002# B)Testdate=#"1/1/2002”#C)Textdate=Date(“1/1/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>10 B)(A>B)Or(B>0)C)(A<0)Eqv(B>0) D)(-3+5>A)And(B>0)(8)设有语句X=Inputbox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键,则下列叙述中正确的是A)变量X的值是数值10B)在Inputbox对话框标题栏中显示的是“示例”C)0是默认值 D)变量X的值是字符串“10”(9)从键盘上输入两个字符串，分别保存在变量Strl、Str2中。确定第二个字符串在第一个字符串中起始位置的函数是A)LeftB)MidC)StringD)Instr(10)设人="％$皿1Basic“，下面使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二”张红"DimSAsTypeStudentD)DimSAsTypeS.Name="张红" S.Name二”张红"(5)函数String(N,"Str")的功能是A)把数值型数据转换为字符串B)返回由N个字符组成的字符串C)从字符串中取出N个字符D)从字符串中第N个字符的位置开始取子字符串(6)将数学表达式Cos2(A+B)+5e2写成VisualBasic的表达式，其正确的形式是A)Cos(A+B)人2+5*Exp(2)CosA2(A+B)+5*Exp⑵C)Cos(A+B)A2+5*Ln(2)CosA2(A+B)+5*Ln(2)B)D)(7)在窗体上回一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过程：PrivateSubCommand1_Click()A$="SoftwareAndHardware"B$=Right(A$,8)C$=Mid(A$,1,8)MsgboxA$,,B$,C$,1EndSub则在弹出的信息框的标题栏中显示的信息是A)SoftwareAndHardware B)SoftwareC)HardwareD)1(8)执行语句：A=Inputbox("Today","Tomorrow","Yesterday",,,"DayBeforeYesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是A)TodayB)TomorrowC)YesterdayD)DayBeforeYesterday(17)以下叙述中错误的是A)用Shell函数可以调用能够在Windows下运行的应用程序B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数C)调用Shell函数的格式应为：〈变量g>=ShellD)用Shell函数不能执行DOS命令2003年9月二级VB(6)以下能正确定义数据类型Telbook的代码是A)TypeTelbook B)TypeTelbookNameAsString*10 NameAsString*10TelnumAsTelnumAsIntegerTelnumAsInteger

EndTypeOTypeTelbookNameString*10String*10EndTypeOTypeTelbookNameString*10String*10TelnumIntegerIntegerEndTypeTelbook(7)以下声明语句中错误的是ConstVarl=123C)DefintA-ZEndTelbookD)TypedefTelbookNameTelnumEndTypeDimVar2='ABC'D)StaticVar3AsInteger(10)设A=10,B=5,C=l,执行语句PrintA>B>C后，窗体上显示的是A)TrueB)FalseC)1D)出错信息2004年4月二级VB(7)执行语句S=Len(Mid(”Visualbasic”,l,6))B,S的值是A)VisualB)Basic C)611(9)在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommand1_Click()A=12345PrintFormat$(A,"000.00")EndSub程序运行后，单击命令按钮，窗体上显示的是A)123,45B)12345.00C)12345D)00123.45(15)以下关系表达式中，其值为False的是TOC\o"1-5"\h\zA)nABC">"Abc" B)nThe"o"They"C)"VISUAL"=UcaseC'Visual") D)nInteger">"Int"(16)语句Print5/4*6\5Mod2的输出结果是A)0B)1 C)2 D)3(18)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()X=-5IfSgn(X)ThenY=Sgn(X八2)ElseY=Sgn(X)EndIfPrintYEndSub程序运行后，单击命令按钮，窗体上显示的是A)-5 B)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)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_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)FalseD)2(13)设A="Microsoftvisualbasic"，则以下使变量B的值为“Visualbasic”的语句是A)B=Left(A,10)B=Mid(A,10)B=Right(A,10)B=Mid(A,ll,10)(14)假定有如下的窗体事件过程：PrivateSubForm_Click()A$="MicrosoftVisualBasic"B$=Right(A$,5)C=Mid(A$,1,9)MsgboxA$,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)+1后，C值的范围为A)5〜10B)6〜9C)6〜10D)5〜9(16)在窗体上画一个命令按钮，名称为Command1,然后编写如下事件过程：PrivateSubCommandl_Click()A$="SoftwareAndHardware"B$=Right(A$,8)C$=Mid(A$,1,8)MsgboxA$,,B$,C$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A)SoftwareAndHardwareB)Software C)HardwareD)1(17)在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1,把文本框的Text属性设置为空白，然后编写如下事件过程：PrivateSubCommandl_Click()A=Inputbox("EnterAnInteger")B=Inputbox("EnterAnInteger")Text1.Text=B+AEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内容是A)108B)18C)810D)出错(18)在窗体上画两个文本框，其名称分别为Textl和Text2,然后编写如下程序：PrivateSubForm_Load()ShowTextl.Text二"”Text2.Text二"”Textl.SetfocusEndSubPrivateSubTextl_Change()Text2.Text=Mid(Textl.Text,8)EndSub程序运行后，如果在文本框Textl中输入Beijingchina,则在文本框Text2中显示的内容是A)BeijingchinaB)ChinaC)BeijingBeijingc填空题2004年9月二级VB(1)设有如下程序段：A$二〃Beijingshanghai〃B$=Mid(A$,Instr(A$,〃G〃)+1)执行上面的程序段后，变量B$的值为_1_。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的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimXAsInteger,NAsIntegerX=1N=0DoWhileX<20X=X*3N=N+1LoopText1.Text=Str(X)Text2.T