Vb1-4章练习题并附答案(仅供参考).doc

Vb 第一章一、选择题（个别题目为多项选择题）1、激活主菜单的按键是（D）AF1或Ctrl键BCtrl键或Atl键CF10或Ctrl键DF10或Atl键2如果设计时在属性窗口将命令按钮的（A）属性设置为False，则运行时按钮从窗体上消失AVisibleBEnabledCDisabledPictureDDefault3退出VisualBasic的快捷键是（C）ACtrl+QBShift+QCAlt+QDCtrl+Alt+Q4除了系统默认的工具箱布局外，在VisualBasic中还可以通过（A）方*来定义选项卡组织安排控件A在工具箱单击鼠标右键，执行快捷菜单中的“添加选项卡”命令B执行“文件”菜单中的“添加工程”命令C执行“工程”菜单中的“添加窗体”命令D执行“工程”菜单中的“部件”命令5窗体设计器是用来设计（B）A应用程序的代码段B应用程序的界面C对象的属性D对象的事件6启动VisualBasic后，系统为用户新建的工程起一个名为（A）的临时名称A工程1B窗体1C工程D窗体7工程资源管理器窗口中包含的文件类型有（C）种A2B3C4D58VisualBasic的编程机制是（D）A可视化B面向对象C面向图形D事件驱动9VisualBasic集成环境的大部分窗口都可以从主菜单项（B）的下拉菜单中找到相应的打开命令A编辑B视图C格式D调试10要在窗体上显示图片，需设置窗体的（C）属性ACaptionBIconCPictureDControlBox11每个窗体对应一个窗体文件，窗体文件的扩展名是（C）A.basB.clsC.frmD.vbp12双击窗体的任何地方，可以打开的窗口是（A）A代码窗口B属性窗口C工程管理窗口D以上3个选项都不对13工具栏中的“启动”按钮的作用是（A）A运行一个应用程序B运行一个窗体C工程管理窗口D打开被选中对象的代码窗口14运行时，单击窗体将窗体的前景色设置为红色的事件过程是（BD）APrivateSubForm_Click()BPrivateSubForm_Click()BackColor=vbRedForm1.ForeColor=vbRedEndSubEndSubCPrivateSubForm_Click()DPrivateSubForm_Click()Form1.BackColor=vbRedForeColor=vbRedEndSubEndSub15如果要在命令按钮上显示图形文件，应设置命令按钮的（B）AStyle属性和Graphics属性BStyle属性和Picture属性CPicture属性DGraphics属性16英文缩写OLE的含义是（D）A面向对象程序设计B对象链接C对象嵌入D对象链接与嵌入17在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（B）事件过程模板AForm_ClickBForm_LoadCForm1_ClickDForm1_Load18每建立一个窗体，工程管理器窗口中就会增加一个（B）A工程文件B窗体文件C程序模块文件D类模块文件19激活属性窗口使用的键是（C）AF2BF3CF4DF520VisualBasic是一种（B）程序设计语言A过程式B非过程式C机器D低级21不能在运行期间设置窗体的（AD）属性ABorderStyleBCaptionCIconDMaxButton22设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（C）AcmdcBcmdbCcmdADCommand1答案：1-5DACAB 6-10ACDBC 11-15CAA(BD)B 16-20DBBCB 21-22(AD)C第二章一、单项选择题1.为了在按下回车键时执行某个按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（D）(设置为缺省按钮，按回车键就会执行Click事件)AvalueBCancleCEnableDDefault2要把一个命令按钮设置成无效，应设置其哪一属性值（B）AVisibleBEnabledCDefaultDCancel3下列叙述正确的是（C）A对象是包含数据又包含对象数据进行操作的方*的物理实体B对象的属性只能在属性窗口中设置C不同的对象能识别不同的事件D事件过程都要由用户点击对象来触发4事件的名称（C）A都要由用户定义B有的由用户定义，有的由系统定义（常量）C都是由系统预先定义D是不固定的5窗体的Caption属性的作用是（B）A确定窗体的名称B确定窗体的标题C确定窗体的边界类型D确定窗体的字体6Cls方法可以清除窗体或图片框中的（C）内容A在设计阶段使用Picture设置的背景位图B在设计阶段放置的控件C在运行阶段产生的图形和文字D以上全部内容7能够改变窗体边框线类型的属性是（B）AFontStyleBBorderStyleCBackStyleDBorder8要使一个文本框具有水平和垂直滚动条，则应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为（D）A0B1C2D39要使文本框获得输入焦点，则应采用文本框控件的哪个方*（D）AGodFocusBLostFocusCKeyPressDSetFocus10能够获得一个文本框中被选取文本的内容的属性是（C）ATextBLengthCSelTextDSelStart11要使标签能够显示所需要的东西，则在程序中应设置其哪一属性的值（A）ACaptionBTextCNameDAutoSize12要使标签中显示的文本靠右显示，则应将其Alignment属性设置为（B）A0B1C2D313要使标签所在处透明显示背景，应把其Backstyle属性设置为（A）A0B1C2D314“对象”是计算机系统运行的（D）A程序单位B逻辑单位C物理实体D基本实体15窗体的Enable属性的属性值是（C）类型的数据A整型B字符型C逻辑型D实型16下列各种窗体事件中，不能由用户触发的事件是（D）ALoad事件和Unload事件BClick事件和Unload事件CClick事件和Dbclick事件DLoad事件和Initialize事件17控件是（A）A建立对象的工具B设置对象属性的工具C编写程序的编辑器D建立图形界面的编辑窗口18当事件能被触发时，（A）就会对该事件作出响应A对象B程序C控件D窗体19当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（A）事件来完成图形的重画工作APaintBLoadCClickDActive20标准工具箱中的控件（B）A数目是固定不变的B数目可以增加或减少C包含了VisualBasic所有控件D在窗体建立对象时不一定被使用BR答案：1-5DBCCB 6-10CBDDC 11-15ABADC 16-20DAAAB第三章一、 选择题（1）（20）每小题2分，（21）（30）每小题3分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）以下叙述中错误的是CA）Visual Basic 是事件驱动型可视化编程工具B）Visual Basic应用程序不具有明显的开始和结束语句C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D）Visual Basic中控件的某些属性只能在运行时设置（2）以下叙述中错误的是AA）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件（3）以下叙述中错误的是BA）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定（4）以下不属于Visual Basic系统的文件类型是BA）.frm B）.bat C）.vbg D）.vbp（5）以下叙述中错误的是CA）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（6）以下能正确定义数据类型TelBook的代码是AA）Type TelBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Typedef TelBookName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type TelBook End Type（7）以下声明语句中错误的是BA）Const var1=123 B）Dim var2= ABCC）DefInt a-z D）Static var3 As Integer（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是DA）List1.List B）List1.ListIndex C）List1.Index D）List1. Text（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是CA）MouseDown B）MouseUp C）Load D）Click（10）设a=10，b=5，c=1，执行语句Print a b c后，窗体上显示的是BA）True B）False C）1 D）出错信息（11）如果要改变窗体的标题，则需要设置的属性是A A）Caption B）Name C）BackColor D）BorderStyle（12）以下能判断是否到达文件尾的函数是DA）BOF B）LOC C）LOF D）EOF（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是AA）如果工程中含有Sub Main过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体（14）窗体的MouseDown事件过程AForm_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)有4个参数，关于这些参数，正确的描述是A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数x,y用来设置鼠标当前位置的坐标（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是BA）Combo1.RemoveItem TextB）Combo1.RemoveItem 2C）Combo1.RemoveItem 3D）Combo1.RemoveItem Combo1.Listcount（16）以下关于焦点的叙述中，错误的是AA）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发LostFocus事件C）当文本框的Enabled属性为False时，其Tab顺序不起作用D）可以用TabIndex属性改变Tab顺序（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为DA）= B）* C）& D）-（18）执行语句Open Tel.dat For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是C A）只能写，不能读 B）只能读，不能写C）既可以读，也可以写 D）不能读，不能写（19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：APrivate Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是A）10 B） 20 C） 30 D）40（20）设有以下循环结构Do循环体Loop While 则以下叙述中错误的是AA）若条件是一个为0的常数，则一次也不执行循环体B）条件可以是关系表达式、逻辑表达式或常数C）循环体中可以使用Exit Do语句 D）如果条件总是为True，则不停地执行循环体（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num 6Print num;num = num + 2.4LoopEnd Sub 程序运行后，单击命令按钮，则窗体上显示的内容是BA）1 3.4 5.8 B）1 3 5C）1 4 7 D）无数据输出（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a1Loop While a c Thend = d + x(i)c = x(i)Elsed = dcEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为CA）89 B）99 C）23 D）77（26）在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4 Label6分别显示A、B、A*B等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮计算时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是DA）Private Sub Command1_Click()Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)End SubB）Private Sub Command1_Click()Label3.Caption = HScroll1.Value * HScroll2.ValueEnd SubC）Private Sub Command1_Click()Label3.Caption = HScroll1 * HScroll2End SubD）Private Sub Command1_Click()Label3.Caption = HScroll1. Text * HScroll2.TextEnd Sub（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3 0 Then m = m + n 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是CA）15 B）18 C）21 D）24（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：Private Sub Form_Load()ShowText1.Text = Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print 程序设计End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print Visual Basic;End Sub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是DA）Visual Basic B）程序设计C）A程序设计 D）Visual Basic程序设计（29）设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是C A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5（30）以下有关数组定义的语句序列中，错误的是DA） Static arr1(3)B）Dim arr2() As Integerarr1(1) = 100 Dim size As Integer arr1(2) = Hello Private Sub Command2_Click()arr1(3) = 123.45 size = InputBox(输入：)ReDim arr2(size)End SubC）Option Base 1 D）Dim n As IntegerPrivate Sub Command3_Click() Private Sub Command4_Click()Dim arr3(3) As Integer Dim arr4(n) As Integer End Sub End Sub答案：1-5CABBC 6-10ABDCB 11-15ADAAB 16-20ADCAA 21-25BCCAC 26-30DCDCD第四章一、 选择题（1）（20）每小题2分，（21）（30）每小题3分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）以下不能在工程资源管理器窗口中列出的文件类型是DA）.bas B）.res C）.frm D）.ocx（2）以下关于窗体的描述中，错误的是AA）执行Unload Form1语句后，窗体Form1消失，但仍在内存中B）窗体的Load 事件在加载窗体时发生C）当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止D）窗体的Height、Width属性用于设置窗体的高和宽（3）下列可作为Visual Basic变量名的是DA）A#A B）4A C）?xy D）constA（4）设有如下的记录类型BType Studentnumber As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是A） S = 张红 B） Dim s As S = 张红C） Dim s As Type Student D） Dim s As T = 张红 = 张红（5）函数String（n, str）的功能是BA）把数值型数据转换为字符串B）返回由n个字符组成的字符串C）从字符串中取出n个字符D）从字符串中第n个字符的位置开始取子字符串（6）将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是AA）Cos (a+b) 2+5*exp(2) B）Cos2(a+b)+ 5*exp(2)C）Cos (a+b) 2+5*ln(2) D）Cos2(a+b)+ 5*ln(2)（7）在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1_Click()a$ = software and hardwareb$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub则在弹出的信息框的标题栏中显示的信息是CA）software and hardware B）software C）hardware D）1（8）执行如下语句：a = InputBox(Today, Tomorrow, Yesterday, , , Day before yesterday, 5)将显示一个输入对话框，在对话框的输入区中显示的信息是CA）Today B）Tomorrow C）Yesterday D）Day before yesterday（9）表示滚动条控件取值范围最大值的属性是AA）Max B）LargeChange C）Value D）Max-Min（10）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是DA） Private Sub List1_Click() B）Private Sub List1_Click()Label1.Caption = List1.ListIndex Label1. Name = List1. ListIndexEnd Sub End SubC） Private Sub List1_Click() D）Private Sub List1_Click()Label1.Name = List1.Text Label1.Caption = List1.TextEnd Sub End Sub（11）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：DPrivate Sub Command1_Click()x = 0n = InputBox()For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是A）3 B）4 C）5 D）6（12）以下关于菜单的叙述中，错误的是BA）在程序运行过程中可以增加或减少菜单项B）如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C）弹出式菜单在菜单编辑器中设计D）利用控件数组可以实现菜单项的增加或减少（13）在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是BA）Tag B）Index C）ListIndex D）Name（14）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：DOption Base 0Private Sub Command1_Click()Dim city As Variantcity = Array(北京, 上海, 天津, 重庆)Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白 B）错误提示 C）北京 D）上海（15）假定有以下函数过程：Function Fun(S As String) As StringDim s1 As StringFor i = 1 To Len(S)s1 = UCase(Mid(S, i, 1) + s1Next iFun = s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim Str1 As String, Str2 As StringStr1 = InputBox(请输入一个字符串)Str2 = Fun(Str1)Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击确定按钮后在窗体上的输出结果为DA）abcdefg B）ABCDEFG C）gfedcba D）GFEDCBA（16）设有语句Open c:Test.Dat For Output As #1则以下错误的叙述是AA）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件C）该语句建立的文件的文件号为1D）执行该语句后，就可以通过Print #语句向文件Test.Dat中写入信息（17）以下叙述中错误的是BA）用Shell函数可以调用能够在Windows下运行的应用程序B）用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数C）调用Shell函数的格式应为：=Shell ()D）用Shell函数不能执行DOS命令（18）以下关于过程及过程参数的描述中，错误的是CA）过程的参数可以是控件名称B）用数组作为过程的参数时，使用的是传地址方式C）只有函数过程能够将过程中处理的信息传回到调用的程序中D）窗体可以作为过程的参数（19）在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：DPrivate Sub TxtA_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是A）单击鼠标 B）双击文本框C）鼠标滑过文本框 D）按下键盘上的某个键（20）目录列表框的Path属性的作用是AA）显示当前驱动器或指定驱动器上的路径B）显示当前驱动器或指定驱动器上的某目录下的文件名C）显示根目录下的文件名D）只显示当前路径下的文件（21）假定有如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu popForm End IfEnd Sub则以下描述中错误的是DA）该过程的功能是弹出一个菜单B）popForm是在菜单编辑器中定义的弹出式菜单的名称C）参数X、Y指明鼠标的当前位置D）Button = 2表示按下的是鼠标左键（22）以下能够正确计算n!的程序是CA）Private Sub Command1_Click() n = 5: x = 1Dox = x * ii = i + 1Loop While i nPrint xEnd SubB）Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i nPrint xEnd SubC）Private Sub Command1_Click()n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i nPrint xEnd Sub（23）在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：BPrivate X As IntegerPrivate Sub Command1_Click()X = 5: Y = 3Call proc(X, Y)Label1.Caption = XLabel2.Caption = YEnd SubPrivate Sub proc(ByVal a As Integer, ByVal b As Integer)X = a * aY = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是BA）5和3 B）25和3 C）25和6 D）5和6（24）在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：Private Sub Command1_Click()s = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是BA）1 B）5 C）27 D）45（25）在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是CA）10 10 10 B）30 30 30 C）30 30 10 D）10 30 30（26）设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：Private Sub Command1_Click()Static b As Variantb= Array(1,3,5,7,9) End Sub此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是CA）For i = 0 To 5-1 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNextB）For i = 0 To 5tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNextC）For i = 0 To 5 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNextD）For i = 1 To 5 2tmp = b(i)b(i) = b(5 - i - 1)b(5 - i - 1) = tmpNext（27）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和共有文件的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是CA） Private Sub Dir1_Change() B）Private Sub Dir1_Change()File1.Path = Dir1.Path File1.Path = Dir1.PathEnd Sub End SubPrivate Sub Drive1_Change() Private Sub Drive1_Change()Dir1.Path = Drive1.Drive Dir1.Path = Drive1.DriveLabel1.Caption = File1.ListCount Label1.Caption = File1.ListEnd Sub End SubC）Private Sub Dir1_Change() D） Private Sub Dir1_Change()File1.Path = Dir1.Path File1.Path = Dir1.PathLabel1.Caption = File1.ListCount Label1.Caption = File1.ListEnd Sub End SubPrivate Sub Drive1_Change() Private Sub Drive1_Change()Dir1.Path = Drive1.Drive Dir1.Path = Drive1.DriveLabel1.Caption = File1.ListCount Label1.Caption = File1.ListEnd Sub End Sub（28）一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private Sub frmFunction1()End S