下载文档原格式
计算机二级(VB)63(总分4230, 做题时间90分钟)选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1.对下列程序段，说法正确的是（）。
Text1．Top=2000Text1．Left=800SSS_SINGLE_SELA Text1对象的左边界距窗体的左边界是800twip，上边界距窗体的上边界为2000twipB Text1对象的左边界距屏幕的左边界为800twip，上边界距屏幕的上边界为2000twipC Text1对象的宽度为2000twip，高度为800twipD Text1对象的高度为800点，宽度为2000点分值: 70答案:A如果对象为窗体，Left指的是窗体的左边界与屏幕的左边界的相对距离，Top 指的是窗体的顶边与屏幕的顶边的相对距离；而当对象为控件时，Left指的是控件的左边距窗体的左边的相对距离，Top指的是控件的顶边与窗体的顶边的相对距离，另外Top和Left属性值的单位为twip，是1点的二十分之一，Height和Width是指定对象的高度和宽度的属性，所以只有选项A) 正确。
2.以下说法不正确的是（）。
SSS_SINGLE_SELA ④③②①B ①②③④C ④②③①D ④③①②分值: 70答案:A在Access中的事件主要有键盘事件、鼠标事件、对象事件、窗口事件和操作事件。
没有控件事件。
3.下列对于软件测试的描述中正确的是______。
SSS_SINGLE_SELA 软件测试的目的是证明程序是否正确B 软件测试的目的是使程序运行结果正确C 软件测试的目的是尽可能多地发现程序中的错误D 软件测试的目的是使程序符合结构化原则分值: 70答案:C关于软件测试的目的，Grenford J.Myers 在《The Art of Software Testing》一书中给出了深刻的阐述：软件测试是为了发现错误而执行程序的过程；一个好的测试用例是指很可能找到迄今为止尚未发现的错误的用例；一个成功的测试是发现了至今尚未发现的错误的测试。
一.VB界面的构成:(1)标题栏:蓝色(2)菜单栏:由于呈长条形,因此叫条形菜单(也叫主菜单),当单击任何一个菜单项时,会弹出一个新的菜单(叫弹出式菜单),了解:热键,快捷键,分组线,菜单项为灰色(不可使用) 菜单项后面的省略号(……)代表会弹出一个对话框(3)标准工具栏（也叫常用工具栏）：系统将常用的菜单做成图标的样式放在VB的主窗口中，方便用户的操作。
常用的有：打开，保存，启动（运行),工程资源管理器以及工具箱.(4)由三部分构成：左边的为：工具箱，中间的为：窗口（窗体设计区），右边的是工程资源管理器工程资源管理器：用于在不同的窗口之间进行切换二、设计窗体:分为三步：添加控件，设置属性，写代码(1)添加控件:既可以直接画，也可以双击产生常用的控件有：标签(LabeL),文本框(Textbox),命令按钮(Commandbutton)标签：用于直接显示的文字的叫标签文本框：用于输入和显示文字的框叫文本框命令按钮：可以用鼠标点的叫命令按钮(2)设置属性常用的属性有:caption,text,namecaption:直接看到的文字叫captiontext:框中的内容(只有框才有)name:控件的名称。
默认情况下，每一个控件的名称都为该名称的第一个单词后面加1,2,3,4,如第一个标签叫L abe L1,第二个文本框叫text2,第一个命令按钮叫Command1例：新建一个如图所示的窗体sjt1,要求单击“显示”时，则在文本框中显示系统当前的时间.做法:添加一个标签，一个文本框，一个命令按钮，然后设置窗体的caption为当前时间，Label1的caption为:显示时间，Command1的caption为：显示。
然后在显示中书写代码:(双击“显示”按钮，在弹出的框中写代码: text1.text=time对象:具体的事物.如一个学生,一部手机.窗体(Form)以及窗体中的每一个控件都一个具体的事物,也叫对象.任何对象都由两部分构成:对象的特征(即属性)以及对象所具有的功能(即方法),因此我们对任何对象(即控件)所能做的操作无非是设置对象的属性(更改外观)和调用方法(实现功能) (3)写代码:设置对象的属性:对象名(控件名).属性名=值如text1.text=time调用对象的方法:对象名.方法名方法:为了实现某种功能而进行动作.方法只需要调用即可就可以实现.常用的方法有:show-->让窗体显示hide-->让窗口隐藏.如果希望让窗口之外的对象(即其它控件隐藏),只需要将它们的visible属性设置为false即可.setfocus-->让对象得到焦点.(按钮可以有,文本框也可以有焦点)例:新建一个如图所示的窗体,要求显示"隐藏"时,则ABCDEF消失,同时按钮变为"显示"在"隐藏"按钮中写代码(双击"隐藏",在弹出的代码窗口中书写) label1.visible=falseCommand1.caption="显示"如果希望单击"隐藏"时,则ABCDEF消失,按钮变为"显示",而单击"显示"时,ABCDEF重新出现,按钮变为"隐藏"怎么办??if Command1.caption="隐藏" thenlabel1.visible=falseCommand1.caption="显示"else '否则,即按钮的标题为"显示"label1.visible=trueCommand1.caption="隐藏"end if例:新建一个如图所示的窗口,要求:单击"焦点1"时,文本框1消失,光标在文本框2中闪动(即文本框2得到焦点),单击"焦点2"时,文本框2消失,文本框1得到焦点,单击"关闭"时,关闭窗口.在"焦点1"中写代码(双击"焦点1",在弹出的代码窗口中书写)Text1.Visible = FalseText2.Visible = TrueText2.SetFocus焦点2中的代码和焦点1的代码类似,只需要将text1改为text2即可."关闭"的代码为: endPrivate Sub Command1_Click() '在Command1的Click事件中写代码(双击Command1,则会出现private..end sub,用户只需要书写中间的部分Label3.Caption = "锄禾日当午"End SubPrivate Sub Command2_Click() Label3.Caption = "汗滴禾下土" End SubPrivate Sub Command3_Click() Label3.Caption = "谁知盘中餐" End SubPrivate Sub Command4_Click() Label3.Caption = "粒粒皆辛苦" End Sub事件:由系统预先规定好的,而由系统或用户自动引发的操作(如单击).事件(操作)作用于对象,对象识别事件并做出相应的反应(根据书写的代码决定)常见的事件有:click(单击):当用户单击时引发.dbLclick(双击):当用户双击某一对象引发.change:当对象的值发生改变时引发load(加载):运行窗口时,系统会自动将窗口调入内存,发生的是load事件.(总之,如果希望窗口一出现,就实现功能,就在load事件中书写代码)如果希望操作某一对象后有结果,就将可以实现结果的语句写在这步操作对应的事件中,事件发生后,系统自动调用代码执行(如单击按钮时,实现功能,就将可以实现功能的语句写在单击所对应的事件(Click)中即可)例:新建一个窗口,上面有一个标签,要求运行窗口时,标签中的文字是"江南好"(注意:不允许在设计窗口时,更改任何控件的属性)在form1的load事件中写代码(双击窗口,在其中书写)label1.caption="江南好"例:新建一个如图所示的窗口,要求在文本框1中输入时,文本框2中自动显示相同的内容.在文本框1口书写代码(双击文本框1,出现了一个代码窗口,实际上是在change事件中书写)text2.text=text1.text第二章：数据及数据运算数据在VB中有四种表现形式，分别是：常量，变量，表达式和函数一、常量(具体的值，不变的量)在计算机运行过程中，其值永远不会发生改变的量，叫常量。
计算机二级《VB》考试重要知识点2016计算机二级《VB》考试重要知识点2016年9月计算机二级考试时间为24日-27日，下面店铺为大家搜索整理了关于计算机二级《VB》考试重要知识点，欢迎参考学习，希望对大家有所帮助!想了解更多相关信息请持续关注我们店铺!知识点一：VisualBasic的集成开发环境VB集成开发环境(IDE——IntegratedDevelopingEnvironment)由以下元素组成：1.标题栏用于显示正在开发或调试的工程名和系统的工作状态(设计态、运行态、中止态)。
2.菜单栏用于显示所使用的VisualBasic命令。
VB6.0标准菜单包括：3.工具栏在编程环境下用于快速访问常用命令。
缺省情况下，启动VB后显示“标准”工具栏，附加的编辑、窗体设计和调试的工具栏可以从“视图”菜单上的“工具栏”命令中移进或移出。
4.窗体设计器用来设计应用程序的界面。
启动VB后，窗体设计器中自动出现一个名为Form1的空白窗体，可以在该窗体中添加控件、图形和图片等来创建所希望的外观，窗体的外观设计好后，从菜单中选择“文件”→“保存窗体”→在保存对话框中给出合适的文件名(注意扩展名)，并选择所需的保存位置→确定。
需要再设计另一个窗体时，单击工具栏上的“添加窗体”按钮即可。
5.控件(工具)箱由一组控件按钮组成，用于设计时在窗体中放置控件。
除了缺省的工具箱布局之外，还可以通过从上下文菜单中选定“添加选项卡”并在结果选项卡中添加控件来创建自定义布局。
6.弹出式(上下文)菜单在要使用的对象上单击鼠标右键即可打开快捷菜单，其上会出现与当前对象相关的经常执行的操作，以加快操作速度。
7.工程管理器窗口用于浏览工程中所包含的窗体和模块，还可以从中查看代码、查看对象。
8.属性窗口是VB中一个比较复杂的窗口，其中列出了对选定窗体和控件的属性设置值。
VB中正是通过改变属性来改变对象的特征，如大小、标题或颜色。
9.对象浏览器列出工程中有效的对象，并提供在编码中漫游的快速方法。
2010年9月计算机等考二级VB真题及答案1、若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合适？（ B ）A、IntegerB、LongC、SingleD、String2、在程序中执行Close命令，其作用是（ D ）。
A、关闭当前正在使用的一个文件B、关闭第一个打开的文件C、关闭最近一次打开的文件D、关闭所有文件3、形状控件所显示的图形不可能是（ D ）。
A、圆B、椭圆C、圆角正方形D、等边三角形4、表达式16/4-2^5*8/4 MOD 5\2的值为（ B ）。
A、14B、4C、20D、25、设置（A）属性可以使图片显示在图片框或影像框中。
A、PictureB、ImageC、IconD、DownPicture6、执行以下语句后的结果为(C)。
Dim x As IntegerIf x Then Print x Else Print x-1A、1B、0C、-1D、不确定7、当改变目录列表框控件Dir1中的当前目录时，希望同步改变文件列表框File1中显示的文件，在Dir1_change事件过程中使用的命令是（ A ）。
A、File1.Path=Dir1.PathB、Dir1.Path =File1 .PathC、File1.Path = Dir1.DriveD、Dir1.Drive= File1.Path8、滚动条的（ B ）属性用于指定用户单击滚动条的滚动箭头时，Value属性值的增减量。
A、LargeChangeB、SmallChangeC、ValueD、Change9、窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界（ A ）。
A、下界必须为1B、缺省的下界为1C、下界必须为0D、缺省的下界为010、由“For i=1 T o 16 Step 3”决定的循环结构被执行（ C）次。
A、4B、5C、6D、711、下列（B ）对象具有编辑功能，即运行时可以进行输入或修改。
VB实现窗口的弹出式菜单在Windows95、Windows98或NT的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如T exTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要在窗口中任意位置实现PopUpMenu（弹出式菜单），可借助VB的菜单工具来实现。
首先，打开VB的“工具”菜单条，利用“菜单编辑器”为窗体生成一个菜单：标题(Caption) 菜单条名(Name)编辑 menuEdit……复制 mnuCopy……剪切 munCut其次，将生成的menuEdit菜单设置为不可视。
Private Sub Form_Load()Me.menuEdit.Visibe=False′menuEdit菜单设置为不可视End Sub然后，利用MouseDown事件实现任意位置弹出PopUpMenu，如下例：本例中以RichTexBox控件为例，在其上面实现复制、剪切功能。
1．复制功能的实现。
Private Sub MnuCopy_Click()Clipboar.Clear′将剪贴板清空′将RichTexBox控件上选择上的内容复制到剪贴板Clipboard.SetTextRichT exBox1.SelTextEnd Sub2．剪切功能的实现。
Private Sub MnuCut_Click()Clipboard.Clear ′将剪贴板清空′将RichTextBox控件上选择了的内容复制到剪贴板Clipboard.SetTextRichBox1.SelText′将RichTexBox控件上选择了的内容删除SendKeys″{DELETE}″,TrueEnd Sub3．在RichTexBox控件的MouseDown事件中实现任意位置弹出PopUPMenu。
OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single)Dim MnuFile AS Menu ′声明一个菜单类型的变量Set munFile=Me.MenuEdit ′将MenuEdit赋给菜单变量if Button=2 Then ′判断是否按动鼠标器右键′判断RichTexBox控件上选择了的内容是否存在，决定复制、剪切菜单条是否可操作。
国家计算机二级(VB)86(总分100,考试时间120分钟)选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是（）。
A. 在Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B. 自定义对话框由用户根据自己需要定义的C. 预定义对话框是用户在设置程序代码后定义的D. MssgBox 函数是用户的自定义对话框的函数2. 在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x)) End Sub 运行程序，单击命令按钮，在窗体上显示的是A. 6B. 5C. 7D. 83. 单击窗体时，下列程序的执行结果是( )。
Private Sub Invert(By Val xstr As String，ystr As String)Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1tempstr=tempstr + Mid(xstr，I，1)I=I - 1Loop yStr=tempStr End Sub Private Sub Form_Click( )Dim s1 As String，s2 As String S1="abcdef"Invert S1，S2Print S2End SubA. blooean isAlive( )B. Thread currentThread( )C. String getName( )D. smtic boolean interrupted( )4. Sub过程与Function过程最根本的区别是（）。
计算机等级考试二级VB基础教程1.1Visual Basic 概述1.Visual Basic是什么Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言。
“Visual” 指的是开发图形用户界面(GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。
“Basic”指的是BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。
Visual Basic 在原有BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI 有直接关系。
专业人员可以用Visual Basic 实现其它任何Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。
Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是Visual Basic 语言的子集，可嵌入HTML语言中，用于网页设计，如ASP(Active Server Page)文件。
VB简单易学，通用性强，用途广泛。
2.VB的功能VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。
数据访问特性允许对包括Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。
有了ActiveX(TM) 技术就可使用其它应用程序提供的功能，例如Microsoft Word 字处理器，Microsoft Excel 电子数据表及其它Windows 应用程序。
Internet 能力强大，很容易在应用程序内通过Internet 或intranet访问文档和应用程序，或者创建Internet 服务器应用程序。
国家计算机二级(VB)91(总分100,考试时间120分钟)选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 以下程序段的输出结果为（）。
Dim 1，a(10)，p(3)k=5Fori=0 To 10 a(i)=i Next i For i=0 To 2p(i)=a(i*(i+1))Next i For i=0 To 2 k=k+p(i)*2Next i Frint kA. WHEREB. FROMC. GROUP BYD. ORDER BY2. 有变量定义语句Dim max，min As String，则可以知道max的类型是（）。
A. 除了Click事件之外，菜单项不可以响应其他事件B. 每个菜单项都是一个控件，与其他控件一样也有其属性和事件C. 菜单项的索引号必须从1开始D. 菜单的索引号可以不连续3. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3For j = 2 To 4array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）。
A. 15B. 14C. 13D. 124. 在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项是( )。
A. x=List1．ListCountB. x=ListCountC. x=List1．ListIndexD. x=ListIndex5. 编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode AS Integer，Shift As Integer)Print Chr(KeyCode)End Sub Private Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住Shift键和锁定大写键时)运行程序，如果按"A"键，则程序输出的结果是（）。
1、与传统的程序设计语言相比，Visual Basic最突出的特点是（事件驱动编程机制）2、在正确安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。
以下方式中，不能启动Visual Basic的是（进入DOS方式，执行vb6.exe文件）3、为了用键盘打开菜单和执行菜单命令，第一部应按的键是（功能键F10或Alt）4、Visual Basic6.0集成环境的主窗口不包括（状态栏）*包括：标题栏、菜单栏、工具栏5、用标准工具栏中的工具按钮不能执行的操作是（打印源程序）*能执行：添加工程、运行程序、打开工程6、Visual Basic窗体设计器的主要功能是（建立用户界面）7、Visual Basic6.0分为3种版本，这3种版本是（学习版）（专业版）（企业版）8、可以通过（文件）菜单中的（退出）命令退出VisualBasic9、退出Visual Basic的快捷键是（Alt+Q）10、快捷键Ctrl+O的功能相当于执行（文件）菜单中的（打开工程）命令，或者相当于单击工具栏上的（打开工程）按钮11、如果打开了不需要的菜单或对话框，可以用（Esc）键关闭12、工程文件的扩展名是（vbp）,窗体文件的扩展名是（frm）13、Visual Basic中的菜单栏有两种形式，分别为（固定）形式和（浮动）形式14、不能打开工具箱窗口的操作时（按Alt+F8键）*能打开：执行“视图”菜单中的“工具箱”命令、单击工具栏上的“工具箱”按钮、按Alt+V,然后按Alt+X键15、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（单击窗体上没有控件的地方）16、为了把窗体上的某个控件变为活动的，应执行的操作是（单击该控件的内部）17、确定一个控件在窗体上的位置的属性是（Top和Left）18、确定一个窗体或控件的大小的属性是（Width和Height）19、为了同时改变一个活动控件的高度和宽度，正确的是（拖拉控件4个角上的某个小方块）20、属性窗口分为4个部分，这4个部分分别是（对象框）、（属性显示方式）、（属性列表）和（属性解释）21、确定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”,所使用的语句为（Text1.Text=“Hello!”或Text1=“Hello!”）22、Visual Basic中的控件分为3类，它们是（标准控件）和（Active X控件）和（可插入对象）23、一个控件在窗体上的位置由（Top）和（Left）属性决定，其大小由（Width）和（Height）属性决定24、可以通过多种方式激活属性窗口（用鼠标单击属性窗口的任何部位）、（执行“视图”菜单中的“属性窗口”按钮）、（按F4键）、（单击工具栏上的“属性窗口”按钮）、（按组合键Ctrl+PgDn或Ctrl+PgUp 25、为了选择多个控件，可以按住（Ctrl或Shift）键，然后单击每个控件26、假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（Caption=“VB Test”）27、下列不能打开代码窗口的操作是（单击窗体或控件）*能打开：双击窗体上的某个控件、双击窗体、按F7键28、为了保存一个Visual Basic应用程序，应当（分别保存工程文件、窗体文件和标准模块文件）29、为了装入一个Visual Basic应用程序，应当（只装入工程文件（.vbp））30、为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（2）31、再用Visual Basic开发应用程序时，一般需要（建立界面）、（设置属性）和（编写代码）3步32、控件和窗体的Name属性只能通过（属性窗口）设置，不能在（运行）期间设置33、代码窗口分为左右两栏，左边一栏称为（对象），右边一栏称为（过程）34、为了在输入程序时能自动进行语法检查，必须执行（工具）菜单中的（选项）命令，打开（选项）对话框，然后选择“编辑器”选项卡中的（自动语法检测）选项35、在保存Visual Basic应用程序时，窗体文件和工程文件的扩展名分别为（frm）和（vbp）36、为了把一个Visual Basic应用程序装入内存，只要装入（工程）文件即可37、Visual Basic应用程序通常由3类模块组成，即（窗体模块）、（标准模块）和（类模块）38、实现字符的Unicode编码方式与ANSI编码方式相互转换的函数是（StrConv）39、在Visual Basic中，字符串常量要用双引号括起来，日期/时间型常量要用（#）括起来40、在5.0/6.0版的Visual Basic中，字符采用（大字符）编码方式。
1一、(1)【解题思路】窗体对象和命令按钮控件的标题均由其Caption属性来设置，Visible 属性用于设置窗体或控件在运行时是否可见，设计时可通过修改命令按钮的Font属性来设置标题的字体、字号和字型。
【操作步骤】步骤1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性。
程序中用到的属性见表3.25。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2) 【解题思路】标签的BorderStyle属性用于设置标签的边框样式，值为0表示无边框，值为1表示有固定边框。
要使标签位于窗体的右上角，其Top属性值应为0, Left属性值应为窗体的内部有效宽度减去标签宽度后的值。
【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。
程序中用到的控件及属性见表3.26。
表3.26步骤2参考答案Private Sub Form_Click()Label1.Top = 0Label1.Left = Form1.Width - Label1.WidthEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
二、(1)【解题思路】Rnd()函数用于产生一个小于1但大于或等于0的随机数，其语法格式为：Rnd[(number) ]可选的number参数是Single或任何有效的数值表达式。
为使每次程序运行时，得到不同的随机数数列，在使用Rnd()函数产生随机数前应用Randomize语句对随机数生成器进行初始化，该生成器能根据系统计时器得到新的种子值。
为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound －lowerbound ＋1) * Rnd ＋lowerbound)。
其中，upperbound 是随机数范围的上限，lowerbound 则是随机数范围的下限。
本题程序用变量Min记录最小数，最初把数组的第一个元素的值赋给Min，然后通过For 循环语句将其后的元素依次与之比较，如果其值小于Min，则将其赋值给Min，依次类推，最终Min的值就是数组各元素中的最小值。
这些题型是本套全国计算机等级考试VB所常见的。
便将此整理一下，以供大学考前使用。
祝大家能顺利通过二级。
谢谢。
上机第1套一、基本操作题（1）在名为Form1的窗体上绘制一个名为Fra1的框架，标题为"框架示例"，高度为2000，宽度为3500；在框架中绘制一个文本框。
名为Txt1，高度为600，宽度为2000，其位置距框架的左边框和上边框均为800，文本框中的初始内容设置为"文本框示例"二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。
在名为Form1的窗体上有一个单选按钮数组，含3个单选按钮，均没有标题。
程序功能：在运行时，如果选中一个单选按钮后，单击"显示"按钮，则根据单选按钮的选中情况，在窗体上显示"你所在的城市是北京"、"你所在的城市是上海"或"你所在的城市是天津"。
要求：①请利用属性窗口，为单选按钮依次添加标题："北京"、"上海"和"天津"，设初始选取中的是"北京"，再添加一个标题为"显示"的命令按钮，如图1-3所示。
②删除程序中语句前面的注释符"'"，把程序中的问号"？"改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。
最后，将修改后的文件按原文件名保存在原文件夹中。
程序源码：Private Sub Cmd1_Click()For i = 0 To 2If Opt1(i).Value = True ThenPrint "你所在的城市是" + Opt1(i).CaptionEnd IfNextEnd Sub上机第2套题二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。
窗体的常用事件（1）Load事件这个事件发生在窗体被装入内存时且发生在窗体出现在屏幕之前窗体出现之前Visual Basic会看一看Load事件里有没有代码如果有那么它先执行这些代码再让窗体出现在屏幕上（2）Click事件Dblclick事件这两个事件在单击或双击窗体时发生不过单击窗体里的控件时窗体的Click事件并不会发生Visual Basic会去看控件的Click事件里有没有代码（3）Activate （活动事件）与Deactivate（非活动事件）显示多个窗体时可以从一个窗体切换到另一个窗体每次激活一个窗体时发生Activate 事件而前一个窗体发生Deactivate事件（4）Resize事件在窗体被改变大小时会触发此事件4.窗体的控制（1）装入或卸出窗体要装入或卸出窗体用Load或Unload语句装入窗体Load formName卸出窗体UnLoad formNameFormName变量是要装入或卸出的窗体名Load语句只是把窗体装入内存并不显示出来要显示窗体可以使用窗体的Show方法（2）显示或隐藏窗体要显示或隐藏窗体用Show或Hide方法若尚未装入内存则先装入再显示显示窗体formNameshow mode隐藏窗体formNamehideFormName变量是窗体名可选变元mode为（缺省值）时窗体为非模态为时窗体为模态模态窗体完全占有应用程序控制权不允许切换到别的应用程序除非关闭！而非模态窗体则反之（3）END语句END语句的功能是终止应用程序的执行并从内存卸在所有窗体语法是END窗体的属性（1）设置属性的方法1）在设计态通过属性窗口设置直接在属性窗口中选择或输入既可2）在程序代码中改变属性值代码中的格式为对象名属性= 属性值例FormBackColor=RGB（255,0,0）窗体的常用方法（）Hide方法用以隐藏MDIForm 或Form 对象但不能使其卸载语法objectHideobject 所在处代表一个对象表达式其值为应用于列表中的一个对象如果省略object则带有焦点的窗体就认为是该object说明隐藏窗体时它就从屏幕上被删除并将其Visible 属性设置为False 用户将无法访问隐藏窗体上的控件但是对于运行中的Visual Basic 应用程序或对于通过DDE 与该应用程序通讯的进程及对于Timer 控件的事件隐藏窗体的控件仍然是可用的窗体被隐藏时用户只有等到被隐藏窗体的事件过程的全部代码执行完后才能够与该应用程序交互如果调用Hide 方法时窗体还没有加载那么Hide 方法将加载该窗体但不显示它（）Move方法用以移动MDIFormForm 或控件语法object Move left top width heightMove 方法的语法包含下列部分说明只有left 参数是必须的但是要指定任何其它的参数必须先指定出现在语法中该参数前面的全部参数例如如果不先指定left 和top 参数则无法指定width 参数任何没有指定的尾部的参数则保持不变（）Print 方法在Immediate 窗口中显示文本语法object Print [outputlist]Print 方法的语法具有下列对象限定符和部分outputlist 参数具有以下语法和部分{Spc（n）| Tab（n）} expression charpos说明可以用空白或分号来分隔多个表达式对系统指定的国别设置用小数点分隔符将所有打印到Immediate 视窗的数据正确格式化关键字要用适用于主应用程序的语言输出对于Boolean 数据或者打印True 或者打印False根据主机应用程序的地区设置来翻译True 和False 关键字使用系统能识别的标准短日期格式书写Date 数据当日期或时间部件丢失或为零时只书写已提供的部件如果outputlist 数据是Empty则无内容可写但是如果outputlist 数据是Null则输出Null在输出Null 关键字时要把关键字正确翻译出来要把错误数据作为Error errorcode 输出在输出Error 关键字时要把关键字正确翻译出来如果在具有缺省显示空间的模块外使用此方法则需要object例如如果没有指定对象就在标准模块上调用此方法则将导致错误发生但是如果在窗体模块上进行调用则会在窗体上显示outputlist注意因为Print 方法是按照字符比例进行打印所以字符数与字符所占据的宽度固定的列的数目无关例如像W 这样的宽字母占据的宽度超过一固定列宽而像i 这样的窄字母占据的宽度则较小考虑到要使用比平均字符更宽的空间表列一定要留有足够余地另外也可以使用固定间距的字体（像Courier 字体）来确保每一字符均只占一列（）Print From方法用以将Form 对象的图象逐位发送给打印机语法objectPrintForm说明Print Form 将打印Form 对象的全部可见对象和位图在绘制图形时如果Auto Redraw 属性为True则在运行时Print Form 将打印Form 对象或PictureBox 控件上的图形Print Form 所使用的打印机是由操作系统的控制面板中的设置来决定Style属性外观属性取时系统创建一个带下拉式列表框的组合框为时系统创建一个由文本框和列表框直接组合在一起的简单组合框可以从列表框中选择也可以直接在文本框中输入为时系统创建一个没有文本框的下拉式列表框单击列表框上的按钮才显示文本框用户不能在文本框中输入只能在列表框中选择控件常用控件介绍（）常用控件的属性方法和事件boBox 组合框（将列表框和文本框结合在一起）其值为用户从列表框中选定的文本或直接输入的文本AddItem方法添加列表项使用格式[ 对象名] AddItem<列表项文本>[插入位置序号]若不指定位置则插入到列表末尾Clear方法删除列表所有项目RemoveItem 方法删除列表项使用格式[ 对象名] RemoveItem 删除项序号mandButton命令按钮Cancel属性取消属性它为True时按〖ESC〗即等于单击此按钮Default属性缺省属性它为True时按回车键即等于单击此按钮Timer计时器Interval属性两次调用Timer事件的事件间隔用于创建动态效果Frame 框架CheckBox 复选框OptionButton选项按钮Alignment属性决定它们的对齐方式=左对齐=右对齐V alue属性决定它们是否被选中的属性常用控件的使用辨析（）文本框和标签的区别文本框通常用于向计算机输入信息而标签通常用于输出信息文本框是一个十分重要的控件因为由复选框和选项按钮向程序输入的信息毕竟只有少数的几条信息而已标签和文本框的区别很小标签可以看成是一个在运行时不能修改正文的文本框因此标签主要用于输出信息（）Label的AutoSize属性和WordWrap属性为了使标签具有垂直伸展和字换行处理必须设置它的AutoSize属性和WordWrap属性同时为TrueAutoSize属性为FalseWordWrap属性为False时若标签不够高而Caption太长时Caption将被切割掉AutoSize属性为FalseWordWrap属性为True时情况也如此AutoSize属性为TrueWordWrap属性为False时表示可以水平伸展但只显示一行信息（）Picture Box和Image的Stretch属性和AutoSize属性Image只有Stretch属性而Picture Box只有AutoSize属性AutoSize属性设为True则Picture Box改变自己的大小来适应其中的图形Stretch属性设为True则Image中的图形将改变自己的大小来适应外面的边框（）Frame 框架CheckBox 复选框OptionButton选项按钮的区别复选框和选项按钮用于向程序输入信息框架用来对复选框和选项按钮进行分组复选框选中时会在小方框里打一个钩选项按钮选中时会在小圆圈里点一个点定制菜单菜单概述Windows中的菜单一般由菜单条菜单菜单项子菜单弹出式菜单组成普通菜单的设计（）给菜单命名菜单标题和菜单命令也有Caption和Name属性设置了这两个属性就等于创建了菜单Name是一个抽象名称Caption是屏幕上可见的可在Caption里加入& 来设置热键（）增加和删除菜单在Menu Editor中部有三个命令钮分别是下一个插入删除插入可用来增加新的菜单在这三个键下面的Caption列表框里选中菜单项（这时它的底色就变成深蓝色）单击插入键Visual Basic将上一个增亮菜单下推并增亮一空行就可以输入新菜单名和标题了删除键可用来删掉菜单选中要删掉的菜单单击Delete键就可以删掉它了（）移动菜单标题有四种情况向上移动向下移动向左缩排向右缩排选中某一菜单标题安上下箭头则这个菜单将上下移动到你喜欢的位置上这也决定了它在界面中的位置如果按左右箭头情况则有所不同由于菜单是分级的所以如果它没有缩排则它是一个菜单标题如果它缩排一次那么它将变成一个菜单命令如果缩排两次那么它将成为一个子菜单命令VB里可以总共设计四层子菜单（）设置分离条分离条是指在菜单中将命令分组的线VB将分离条也看成一个菜单项它也需要Caption和Name属性而且也有其它属性分离条与菜单项的区别是分离条的Caption 属性必须是连字号即减号也就是当设置了一个Caption属性为的菜单项时实际上就设置了一个分离条分离条的名字可以是barFile之类以表明分离条的位置（）菜单的各种简单属性在菜单编辑器里有许多确认框和一些文本框及一个下拉式的列表框这些决定了菜单的各种属性）Checked 复选属性这个属性值设置为真将在菜单命令左边产生一个打勾的确认标志）Enabled有效属性各种各样的用户会产生千奇百怪的操作在许多Edit菜单里都会有不同形式的让菜单命令模糊的情况Enabled属性为真则菜单命令是清晰的Enabled属性为假则菜单命令是模糊的这时用户就不能选中这个菜单项了）Visible 可见属性对暂时不用的菜单如果把Visible属性设为假则菜单根本不会出现在屏幕上这样做比把Enabled属性设为假显得更加干脆！）Index属性可以生成菜单命令数组用索引号区分开例如向File菜单中添加一系列最近打开的文件名添加菜单可用Load方法以上属性可以在运行时设置形成动态的菜单的情况例如mnuUndoEnabled = FalsemnuPropertyVisible = False还可以改变Caption等属性mnuUndoCaption = Redo生成弹出式菜单（或浮动菜单）几乎每个Windows应用程序都提供弹出式菜单用户可以右键单击窗体或控件取得这个菜单弹出式菜单也属于普通菜单只是不固定在窗体上而是可以在任何地方显示弹出式菜单用PopupMenu方法调用假设已经用菜单编辑器生成了名为mnuedit的菜单则可以在MouseUp事件加入如下代码就可以生成弹出式菜单If Button = Then PopupMenu mnuedit设计状态条工具栏进程条等创建状态条选中状态条按F键进入属性窗口双击（Custom）可以进入主要的设置窗口SBarCtrl属性窗口（1）选择面板形状在SBarCtrl属性窗口里选择General标签在Style列表框里选择多面板（缺省形式）或单面板简单文本形式（2）添加或删除状态条面板在SBarCtrl属性窗口里选择Panels标签单击Insert按钮添加一个面板或单击Remove按钮删除一个面板（3）在单面板里显示文本在SBarCtrl属性窗口里选择General标签在SimpleText框里输入想显示在状态条面板里的文本用代码显示的方式是StatusBarSimpleText = New string to appear（4）在多面板里显示文本或图形1）在SBarCtrl属性窗口里选择Panels标签用Index旁的按钮选择面板序号2）在Text框里输入想显示在状态条面板里的文本3）如果想加入图形单击Browse按钮打开一个图形选择对话框选择想加入的图形然后单击打开按钮4）最后按确定按钮5）用代码显示的方式是StatusBarPanels（x）Text = New string toappear6）编写代码如果是一个单面板状态条当用户单击状态条时只需用下面的事件过程来响应Private Sub StatusBar_Click（）End Sub如果是一个多面板状态条就需要鉴别用户单击的是哪一个面板可用下面的事件过程来识别用户所单击的面板Private Sub StatusBar_PanelClick（ByVal Panel As Panel）Select Case PanelIndexCase 1Code to follow if user clicks the first panelCase 2Code to follow if user clicks the second panelCase 3Code to follow if user clicks the third panelEnd SelectEnd Sub创建工具栏（）建立工具条）在工具箱里单击工具条图标拖到窗体的任何位置Visual Basic自动将ToolBar移到顶部）按F键打开属性窗口）双击（Custom）打开ToolBar属性窗口）选择Buttons标签）单击Insert按钮Visual Basic就会在你的工具条上显示一个空按钮现在为你的每一个按钮重复这一步）单击确定按钮如果想把按钮分组首先生成一个分隔的按钮再在刚才提到的对话框里将这个按钮的Style属性改为Separator（）为工具条增加图画）在Visual Basic工具箱里单击ImageList图标并将它拖到窗体的任何位置（位置不重要因为它总是不可见的））按F打开属性窗口）双击（Custom）打开ImageListCtrl属性窗口）选择Image标签）单击Insert Picture在现在图形的对话框里选择想使用的位图或图标然后单击打开按钮为每个想添加图形的工具条按钮重复此步）单击确定按钮）单击工具条按F双击（Custom）显示ToolBar属性对话框）选择General标签在ImageList框里选择刚才添加的ImageList控件）选择Buttons标签单击紧挨Index框的向左或向右箭头以选择一个按钮序号出现在工具条最左边的按钮序号为）在Image框里输入一个数输入为则显示刚才ImageList控件里的第一个图形输入为则显示刚才ImageList控件里的第二个图形）为每个按钮重复第步）单击确定按钮现在Visual Basic就会在工具条上显示精美的图形了Visual Basic的输入机制程序的基本操作就是数据的输入数据处理和数据的输出Visual Basic可中用于输入的控件主要有文本框Text Box复选框Check Box选项按钮Option Button列表框List Box组合框bo Box滚动条Scroll Bar通用对话框控件还有一个函数叫InputBox函数也可用于数据的输入通过文本框输入数据只要取得文本框的Text属性就可以对其进行操作了下面的代码可将Text文本框的正文变成大写输出至Text文本框Private Sub Form_Click （）TextText = UCase（TextText）End Sub通过复选框和选项按钮输入数据只要检测到Check Box和Radio Button的Value属性值就可以知道它们是否被选上了通过列表框和组合框输入数据（）列表框List Box和组合框bo Box的不同它们在Windows的OpenSave As对话框里最为常见组合框又包括三种类型这三种类型要在它的Style属性里设置列表框仅仅把可以选择的项目列出来而组合框里有的类型可以允许用户输入数据（）列表项目的增减使用AddItemRemoveItem语句可以增减列表项目通常将项目增减的语句放入Form_Load事件里ListBoxName AddItem itemboBoxName AddItem itemitem是新项目名称必须是字符串类型非字符串类型可通过Str函数或Format函数来转换转列表框组合框的每一项目都有一个Index值第一个项目的Index值是第二个是依此类推删除项目可通过删除其Index值来实现ListBoxName RemoveItem itemboBoxName RemoveItem item如ListBoxName RemoveItem 则删除了第一项这时原来的第二项就变成了第一项可以在设计阶段设定列表项目方法是在属性窗口选择List属性将出现一个下拉列表在列表中输入第一项按Ctrl+Enter输入第二项……最后用Enter结束（）取得列表框/组合框的数据可以通过取得Text属性或通过取得ListIndex属性来判断哪一项被选择了ListIndex属性的值也同样是第一个为第二个为……如If ListText = Visual Basic Then InstructionsIf ListListIndex = Then Instructions组合框有时允许用户自己输入数据这时所输入数据的ListIndex值为通过滚动条Scroll Bar取得数据在Visual Basic的工具箱里有两种滚动条一种是垂直的一种是水平的它们的差异无非是摆放的方向不一样（）滚动条的主要属性及事件）MinMax属性Min属性决定滚动条最左端或最顶端所代表的值Max属性决定滚动条最右端或最下端所代表的值）LargeChangeSmallChange属性SmallChange决定在滚动条两端的箭头钮上单击时改变的值LargeChange决定在滑块上方或下方区域单击时改变的值）Value属性V alue属性代表当前滑块所处位置的值这个值由滑块的相对位置决定）Change事件当滑块位置发生变化时就引发了Change事件（）取得滚动条的数据滚动条并不是一个数据输入的好控件因为无法从滚动条上直接看出输入的数据但它的优点是可以表示一定范围里的相对位置为了得到数据只要取得滚动条的Value属性就可以了InputBox函数InputBox函数提供一个简单的对话框供用户输入信息在把其它版本的BASIC程序移植到Visual Basic时InputBox函数通常用来代替INPUT语句这个对话框的样子基本上是上面的样子它的完整语法是x = InputBox （prompt title default xpos yposhelpfile context）其中prompt是提示的字符串这个参数是必须的title是对话框的标题是可选的default是文本框里的缺省值也是可选的xposypos决定输入框的位置helpfilecontext用于显示与该框相关的帮助屏幕返回值x 将是用户在文本框里输入的数据x是一个字符串类型的值如果用户按了Cancel钮则x 将为空字符串设计状态条工具栏进程条等创建状态条选中状态条按F键进入属性窗口双击（Custom）可以进入主要的设置窗口SBarCtrl属性窗口（）选择面板形状在SBarCtrl属性窗口里选择General标签在Style列表框里选择多面板（缺省形式）或单面板简单文本形式（）添加或删除状态条面板在SBarCtrl属性窗口里选择Panels标签单击Insert按钮添加一个面板或单击Remove按钮删除一个面板（）在单面板里显示文本在SBarCtrl属性窗口里选择General标签在SimpleText框里输入想显示在状态条面板里的文本用代码显示的方式是StatusBarSimpleText = New string to appear（）在多面板里显示文本或图形）在SBarCtrl属性窗口里选择Panels标签用Index旁的按钮选择面板序号）在Text框里输入想显示在状态条面板里的文本）如果想加入图形单击Browse按钮打开一个图形选择对话框选择想加入的图形然后单击打开按钮）最后按确定按钮）用代码显示的方式是StatusBarPanels（x）Text = New string to appear）编写代码如果是一个单面板状态条当用户单击状态条时只需用下面的事件过程来响应Private Sub StatusBar_Click（）End Sub如果是一个多面板状态条就需要鉴别用户单击的是哪一个面板可用下面的事件过程来识别用户所单击的面板Private Sub StatusBar_PanelClick（ByVal Panel As Panel）Select Case PanelIndexCaseCode to follow if user clicks the first panelCaseCode to follow if user clicks the second panelCaseCode to follow if user clicks the third panelEnd SelectEnd Sub11 / 11。
在Windows应用程序中，利用弹出式菜单（Pop-up Menu）是增加软件易用性的一个重要方式。
本文将向大家介绍在VB6.0中实现弹出式菜单的几种方法。
利用VB6.0内置的PopupMenu方法PopupMenu方法（Method）是VB6.0内置的实现弹出式菜单的方法，用于在MDIForm或Form等对象中的鼠标点位置或指定位置显示弹出式菜单。
其语法为：Object.PopupMenu menuname, flags, x, y, boldcommand说明如下：通过设置对象（Object）的Scalemode属性来规定X，Y坐标的度量单位，X，Y坐标设定弹出式菜单在对象（Object）中显示的相对位置，如果省略X，Y，则弹出式菜单将显示在当前鼠标点位置。
当用PopupMenu方法激活弹出菜单后，要等到用户选择了弹出菜单中的某个菜单项之后（这种情况下，还要先运行被选择菜单项的相应代码）或在表单其它位置单击鼠标左键消除弹出菜单后，后面的代码才能继续执行。
并且，一次只能激活一个弹出式菜单，当已经有一个弹处菜单被激活或已经有一个下拉菜单被打开时，对PopupMenu方法的调用将被忽略。
下面的例子演示当用户在表单上点击鼠标右键时，在鼠标点处显示弹出式菜单。
欲试验此例子，建立一个表单，在表单中建立一个菜单控件，将其命名为mnuFile（mnuFile菜单至少包含一个子菜单）。
在表单的声明（Declaration）区域加入如下代码：Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton ThenPopupMenu mnuFileEnd IfEnd SubPopupMenu方法是VB6.0内置的方法，使用起来方便简单，但该方法有一个不足，即当点击鼠标弹出菜单后，如果不选择菜单项而在其他位置点击鼠标，则菜单并不会在新的鼠标点处显示。
全国计算机等级考试二级VB上机试题及答案(九)基本操作（2小题，每题15分，共30分）****************************************************************请根据以下各小题的要求设计VB应用程序（包括界面和代码）。
请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上，画一个文本框和两个单选按钮。
窗体的标题为"选课"，文本框的名称为Txt1，初始时内容为空。
单选按钮的名称为Opt1，Opt2，标题分别为"生物化学"；"地球物理"。
编写适当的事件过程，初始状态选择按钮都未被选中，如果单击Opt1按钮，文本框中显示的内容是"我选的课是生物化学"，如果单击Opt2按钮，文本框中显示的内容是"我选的课是地球物理"，程序中不得使用任何变量。
程序运行时的界面如图所示。
（2）新建一个工程，在窗体上创建命令按钮，名称为C1。
创建一个组合框控件，命名为Com1。
程序运行，实现功能单击C1按钮，读取打印机的字体。
并在组合框中的列表框中显示第一种字体。
程序运行时的界面如图所示。
****************************************************************参考答案与分析（1）【解析】本题主要考查了单选按钮的使用，单选按钮是否被选中取决于其Value属性，设置为False时为未选中，True时为选中。
单选按钮的Caption属性返回了它的标题，且为字符串类型，故将"我选的课是"与单选按钮的Caption值连接赋给文本框的Text属性即可在文本框中显示题目指定的内容。
【答案】第一步：启动VB，新建一个工程文件。
第二步：在窗体上画一个文本框，文本框的Name属性设为Txt1，Text属性为空；单击工具箱上的"单选按钮"控件，在窗体上画两个单选按钮，Name属性分别为Opt1和Opt2，Caption属性分别为"生物化学"、"地球物理"， Value均为False；最后将窗体的Caption属性设为"选课"。
计算机二级VB考试重点知识2017计算机二级VB考试重点知识以下是店铺整理的2017计算机二级VB考试重点知识，欢迎大家参考学习!更多考试内容请关注店铺!常用控件与界面设计重点：1、掌握列表框、组合框、选项按钮、复选按钮、滚动条等控件的常用的属性、方法、事件2、掌握菜单的设计(7)列表框(ListBox)：用于列出可供用户选择的项目列表。
用户可以从中选择一个或多个项目。
属性：名称：(通常以“List”作为前缀。
)List：列表属性。
用于保存列表的内容。
List实际上是一个一维数组，数组中元素的值，就是在执行时看到的列表项(item)一维数组：List中有5个元素，List(0),List(1)List(2),List(3),List(4) 列表项文本List(0)=68List(1)=78List(2)=88List(3)=80List(4)=76数组名：List列表项序号：0，1，2，3，4，(从0开始)列表项文本(数组元素值)分别为：6878888076Listcount：列表框内所有选项的总数，也就是List()数组元素的总个数。
ListIndex：用户最后单击的列表项在List()数组中的编号顺序。
(无选中时其值为-1)Text：列表项的正文。
其值为最后选中的列表项的文本。
请记住如下关系：[对象名称.]List(ListIndex)=TextColumns：列表框显示形式。
设定Listbox的列表项若超过显示范围时，其卷动方式使用垂直滚动条或是水平滚动条。
取值：0：(默认值)使用垂直滚动条。
逐行显示列表项，可能有垂直滚动条。
1~n：使用水平滚动条。
此时列表框内一次可显示的列数(Column)即为n值。
MultiSelect：设定是否允许用户多重选取对象的列表项取值：0：不能多重选取。
(默认值)1：简易多重选取。
(用鼠标或空格键来选取，一次一个)2：高级多重选取。
可用[shift]或[ctrl]来选取。
弹出式菜单（快捷菜单）：9，[14]
1、在菜单编辑器中建立菜单结构，主菜单设置为不可见
2、在窗体中调用菜单：popupmenu 主菜单的名称
单击右键时调用：对象名称_MouseDown(……)
if button=2 then
popupmenu 主菜单的名称
end if
通用对话框：23，43，[12，14，22]
添加通用对话框控件：P313
在工具箱的空白处单击右键→部件→勾选“Microsoft Common Dialog control 6.0”
CommonDialog1.DialogTitle=”Open”‘标题
CommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt" ‘设置文件过滤器CommonDialog1.FilterIndex = 2 ‘设置默认文件类型
CommonDialog1.InitDir = App.Path ‘设置默认目录
CommonDialog1.ShowOpen ‘设置对话框的类型
Open CommonDialog1.FileName For Input As #1 ‘打开在对话框中选择的文件
Input #1, s
Text1.Text = s
Close #1
例题：将打开对话框中所选择的文件里的内容读到文本框中
CommonDialog1.DialogTitle = "Open"
CommonDialog1.InitDir = "D:\"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, a
Text1.Text = Text1.Text + a + Chr(13) + Chr(10)
Loop
Close #1。
