VB指导书范文.doc

VB指导书范文 它功能强大，使用容易，是培养学生程序开发思想、程序设计能力的重要课程。 本指导书的实验是Visual Basic程序设计的重要实践环节。 通过实验，使学生巩固课堂的理论教学内容，加深对可视化及面向对象编程思想的理解，强化了利用Visual Basic进行程序流程控制，以及熟练使用常用控件的属性、事件和方法。 通过实验，不仅培养了学生的编程能力和理论联系实际的能力，而且提高了学生的程序调试能力及创新能力。 本实验指导书一共安排了11个实验，主要内容包括语言基础、控件和窗体、菜单设计等，对每个实验都给出了参考答案。 需要说明的是，这里的参考答案只是一种帮助大家解决问题的参考，既不是“标准”答案，更不是“最佳”答案，希望大家不要局限于参考答案，要深刻理解教材的基本内容，在此基础上才能有所突破，有所创新，编写出质量更高的最佳程序。 本实验指导书最后安排了类似于综合练习的课程设计，在课程结束前可以选做。 最后，由于编者水平所限，书中难免有疏漏和不足之处，敬请大家批评指正。 实验1QQ登录界面程序设计实验目的 1、掌握VB的启动方法； 2、熟悉VB的开发环境； 3、学会建立简单的VB应用程序。 实验内容 1、实验要求学会向窗体中放置控件的方法，掌握工具栏中启动按钮、结束按钮的使用。 做一个简单的VB程序，实现以下简单的功能模仿QQ登录界面，对输入的用户名和密码进行判断，如果正确或错误弹出相应的提示窗口。 2、窗体属性对象名From1Command1Command2Command3Command4Label1Label2Label3Frame1Check1Check2Combo1属性名caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption text设置值QQ登录窗体高级设置登录取消申请号码QQ账号QQ密码忘了密码？自动登录隐身登录 3、窗体设计 4、源代码Private Sub Command2_Click()If Combo1.Text=sheAnd Text1.Text=111Then MsgBox登录成功！Else MsgBox密码或用户名错误，请重新输入！End If End Sub实验思考本次实验主要目的是帮助初学者了解VB程序的运行环境，在完成上述实验内容后，应该进一步了解运行环境中的其它功能。 实验2简单文本器实验目的 1、学会创建应用程序界面； 2、学习编写程序代码； 3、掌握常用控件的使用。 实验内容 1、实验要求设计出来的器能够对文本框中的文字进行剪切、复制和粘贴。 并且选中文本剪切、复制按钮可用，而粘贴按钮不可用。 没选中则相反。 单击“结束”按钮时结束程序运行。 2、窗体属性对象名form1Text1Command1Command2Command3Command 43、窗体设计属性名caption textpicture picturepicture caption设置值简单文本器-图标文件图标文件图标文件结束 4、源代码Dim stAs String Private SubcmdCopy_Click()st=Text1.SelText将选中的内容存放到st变量中End Sub Private SubcmdCut_Click()st=Text1.SelText将选中的内容存放到st变量中Text1.SelText=将选中的内容清除,实现了剪切cmdCopy.Enabled=False cmdCut.Enabled=False cmdPaste.Enabled=True End Sub Private Sub cmdExit_Click()End End Sub Private Sub cmdPaste_Click()将st变量中的内容插入到光标所在的位置,实现了粘贴Text1.SelText=st End Sub Private Sub Form_Load()设置剪切、复制、粘贴按钮无效cmdCut.Enabled=False cmdCopy.Enabled=False cmdPaste.Enabled=False End Sub Private Sub Text1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle)If Text1.SelTextThen cmdCut.Enabled=True当拖动鼠标选中要操作的文本后,剪切、复制按钮有效cmdCopy.Enabled=True cmdPaste.Enabled=False ElsecmdCut.Enabled=False当拖动鼠标未选中文本,剪切、复制按钮无效cmdCopy.Enabled=False cmdPaste.Enabled=True End If End Sub实验思考假设只给用户三次登录机会，超过三次则自动退出登录界面，应该如何修改程序？实验3编写四则运算程序实验目的 1、掌握VB常量的定义和使用方法； 2、掌握各种表达式的使用方法； 3、掌握常用函数的使用方法； 4、掌握选择结构的程序设计方法。 实验内容: 1、实验要求运行时，能够随机产生加、减、乘、除四则运算，并对用户输入的答案进行判断，并在Picture控件上显示判断结果。 2、分析设计用随机函数Rnd()产生随机数和运算符，并利用函数Val()将文本框内容转换为数值型进行运算。 3、窗体属性对象名属性名设置值Label1caption显示题目Label2caption题次Text1text计算结果Picture1Picture-Command1caption计分Command2caption继续Command3caption退出 4、窗体设计 5、源代码Dim iAs Integer Dim resultAs IntegerDim okAs Integer,error As Integer Private Sub Command1_Click()Label1=Text1.Visible=False Picture1.Print-Picture1.Print你一共计算&i&题，;Picture1.Print得分为&Int(ok/i*100)End Sub Private Sub Command2_Click()Text1.Visible=True Picture1.Cls Text1.SetFocus Form_Load End Sub Private Sub Command3_Click()End End Sub Private Sub Form_Load()Label2.Caption=第&i+1&题Dim xAsInteger,y AsInteger,z AsInteger,temp AsIntegerDimop As String Randomizex=Int(9*Rnd)y=Int(8*Rnd+1)z=Int(4*Rnd+1)Text1=Select Casez Case1op=+result=x+y Case2op=-If xxy ThenForm_Load Exit Sub End If result=x/y End Select Label1.Caption=x&op&y&=End Sub Private SubText1_KeyPress(KeyAscii AsInteger)If KeyAscii=13Then IfVal(Text1.Text)=result ThenPicture1.Print Label1.Caption;Text1.Text;Tab (10);ok=ok+1Else Picture1.Print Label1.Caption;Text1.Text;Tab (10);End If Text1=Text1.SetFocus i=i+1Form_Load End If End Sub实验思考想一想，如何进行加、减、乘、除混合运算，比如5+8- 6、9/3*7等。 实验4选票统计实验目的:1.进一步掌握Vb中变量的定义和使用；2.能够根据要求设计窗体界面。 实验内容:1实验要求有4位候选人，如果同意某人，就单击一下某人的按钮，在对应的文本框中显示已得的票数。 2界面设计设计界面如图所示，控件属性设置如下表。 控件名称form1Label1Label2Label3Label4Text1Text2Text3Text4Command1控件类型Form Label1Label1Label1Label1TextBox TextBox TextBoxTextBoxCommand属性Caption Caption CaptionCaptionCaption Text Text Text Text Caption值选票统计得票数为得票数为得票数为得票数为刘明Command2Command3Command4Command CommandCommand CaptionCaptionCaption王红李刚许伟3程序代码用4个命令按钮的Click事件过程中用Static定义统计票数变量x，每单击一下命令按钮，使变量自动加1，即x=x+1。 程序代码略。 4思考该项目的编程方法有多种，请同学们尝试使用其他方法实现。 实验5简单文本器实验目的: 1、学会根据要求设计窗体界面，并对窗体进行合理布局； 2、掌握标签、文本框、单选、复选框、框架等控件的使用； 3、掌握用程序代码方式设置属性的方法。 实验内容: 1、实验要求可以设置文本框中内容的字体、字号、字型、颜色及其他效果 2、分析设计用单选框实现字体、字号的变化，用复选框实现字型的变化 3、窗体属性对象名Form1Frame1Frame2Frame3Frame4Option1Option2Option3Option4Option5属性名caption caption caption caption caption caption caption caption caption caption设置值简单文本器字体字型字号字色宋体黑体隶书8号字14号字Option6Option7Option8Option9Check1Check2Check3Command1Command 24、窗体设计caption caption caption caption caption caption caption caption caption24号字蓝色绿色红色粗体斜体下划线确定取消 5、源代码Private Sub Command1_Click()If Option1.Value=True Then Text1.Font.Name=宋体End If If Option2.Value=True Then Text1.Font.Name=黑体End If If Option3.Value=True Then Text1.Font.Name=隶书End If If Option4.Value=True Then Text1.Font.Size=8End If If Option5.Value=True Then Text1.Font.Size=14End If If Option7.Value=True Then Text1.ForeColor=vbBlue End If If Option8.Value=True Then Text1.ForeColor=vbGreen End If IfOption9.Value=True Then Text1.ForeColor=vbRed End IfIfCheck1.Value=vbChecked Then Text1.Font.Bold=True Else Text1.Font.Bold=False End IfIfCheck2.Value=1Then Text1.Font.Italic=True Else Text1.Font.Italic=False End IfIfCheck3.Value=1Then Text1.Font.Underline=True ElseText1.Font.Underline=False End If End Sub Private Sub Command2_Click()End End Sub实验思考试实现文本内容的其他效果，如删除线、字母大小写改变等。 实验6温度计模拟程序实验目的: 1、学会定时器、滚动条等控件的使用； 2、掌握控件属性的设置和方法的调用； 3、掌握控件常用事件过程的编写。 实验内容: 1、实验要求用一个垂直滚动条模拟温度计，用标签显示当前水温，单击命令按钮启动定时器，当水温达到100度时，显示“水开了”，并关闭定时器。 2、分析设计用一个定时器控件每隔100毫秒水温升高1度，用垂直滚动条的value属性值作为当前温度值 3、窗体属性对象名Form1Label1Label2Label3Label4Vscroll1属性名caption caption caption captioncaption value设置值温度计模拟1000水温水开了0Command1Timer 14、窗体设计caption interval开始加热 1005、源代码Private Sub Command1_Click()Timer1.Enabled=True End Sub Private Sub Form_Load()Timer1.Enabled=False Timer1.Interval=100Label4.Visible=False VScroll1.Max=0VScroll1.Min=100End Sub Private SubTimer1_Timer()VScroll1.Value=VScroll1.Value+1End Sub Private SubVScroll1_Change()Label3.Caption=水温&VScroll1.Value IfVScroll1.Value=100Then Timer1.Enabled=False Label4.Visible=True End If End Sub实验思考在本实验基础上，如何增加代码，实现“暂停加热”、“继续加热”、“重新加热”等功能。 实验7学生信息的录入实验目的:1掌握列表框常用属性的设置；2学会使用列表框中项目的添加、删除和清空的方法。 实验内容在窗体上添加三个文本框、四个标签控件、四个命令按钮、一个框架控件和列表框控件。 实现将文本框里的内容逐条添加到列表框，并统计添加学生信息的数目。 当选中列表项目时在文本框中能够显示学生的姓名和学号，同时可以删除所选列表项目以及列表框的清空。 设计界面如图所示窗体上各控件的属性设置如下（没有列出的控件或控件的属性均为默认值）默认控件名Form1Command1Command2Command3Command4Text1Text2Labe4Label1Label2Label3Fram1List1控件属性名Caption NameCaption NameCaption NameCaption NameCaption Name NameNameCaptionCaptionCaptionCaption属性值学生信息的录入Cmdadd添加Cmddelete删除Cmdclear清除Cmdexit退出Txtname TxtstuidLbtotalnum姓名学号总数为操作程序代码如下Private Subcmdadd_Click()With List1.AddItem(txtname.Text).ItemData(.NewIndex)=Val(txtstuid.Text)lbtotalnum.Caption=.ListCount End With End Sub Private Sub cmdclear_Click()List1.Clear lbtotalnum.Caption=List1.ListCount End Sub Private Sub cmddelete_Click()Dim iAsIntegerWith List1If.ListIndex=-1Then ExitSub End If i=.ListIndex.RemoveItem.ListIndex If i=.ListCount Then i=i-1End If.ListIndex=i lbtotalnum.Caption=.ListCount EndWith End Sub Private Sub cmdexit_Click()Unload MeEnd Sub Private SubList1_Click()With List1txtname.Text=.Text txtstuid.Text=.ItemData(.ListIndex)EndWith End Sub实验思考请大家思考添加、删除功能是怎样实现的？学生信息数目是如何统计的？实验8编写计算器程序实验目的: 1、掌握控件数组的创建方法； 2、理解控件数组中控件名称组成特点； 3、掌握运用控件数组编程的方法。 实验内容: 1、实验要求使用控件数组设计一个简易计算器，能实现算术运算和简单函数运算，并具有清除结果和退格键的功能。 2、分析设计用一文本框显示计算过程及结果，使用以命令按钮控件为元素的控件数组，并编写控件数组的Click事件。 3、窗体属性对象名属性名设置值Form1caption计算器Text1text-Command1（0-9）caption0-9Command1（10-13）caption+、-、*、Command1 （14）caption.Command1 （15）caption=Command1 （16）caption退格Command1 （17）caption CCommand1(18-24)caption平方、Sqrt、Sin、Cos、Tan、Atn、log 4、窗体设计 5、源代码Dim xAsSingle,y AsSingle Dimop AsStringPrivate Sub Command1_Click(Index AsInteger)Select CaseIndex Case0To9Text1.Text=Text1&Command1(Index).Caption Case14If InStr(Text1,.)=0Then Text1.Text=Text1&Command1(Index).Caption ElseIf Right(Text1,1)=.ThenText1.Text=Text1&End IfCase10To13x=Val(Text1)If Index=10Then op=+If Index=11Then op=-If Index=12Then op=*If Index=13Then op=/Text1=Case15y=Val(Text1)Text1=If op=+ThenText1=x+y Ifop=-ThenText1=x-y Ifop=*ThenText1=x*y Ifop=/Then Ify0ThenText1=x/y ElseText1=除数不能为零End If End IfCase16If Len(Text1)0ThenText1=Left(Text1,Len(Text1)-1)End IfCase17Text1=x=0:y=0Case18x=Val(Text1)If x0ThenText1=负数的平方根无意义ElseText1=Sqr(x)End IfCase19x=Val(Text1):Text1=x*x Case20x=Val(Text1):Text1=Sin(x*3.1415926/180)Case21x=Val(Text1):Text1=Cos(x*3.1415926/180)Case22x=Val(Text1):Text1=Tan(x*3.1415926/180)Case23x=Val(Text1):Text1=Atn(x)*180/3.1415926Case24x=Val(Text1)If x60Theni=0j=j+1Else i=i+1EndIf a=a-pi/30Line1.X2=1.2*Cos(a)Line1.Y2=1.2*Sin(a)Text1.Text=Format(j,00)&:&Format(i,00)End Sub实验思考1如果需要显示百分秒数，应该怎样实现？2添加分针和时针，实现钟表的功能，应该如何修改代码？实验10编写函数过程实现数制转换实验目的: 1、掌握通用子过程的定义和调用方法； 2、掌握函数过程的定义和调用方法； 3、了解传值和传地址的区别。 实验内容: 1、实验要求编写并调用函数或子过程，能实现不同进制数据之间的相互转换。 2、分析设计从键盘输入待转换的数据，将转换结果显示在文本框中。 3、窗体属性对象名Form1Frame1Label1Option1Option2Option3Command1Text1Text 24、窗体设计属性名captioncaptioncaptioncaptioncaptioncaptioncaption texttext设置值数制转换选择进制请输入十进制数二进制八进制十六进制转换- 5、源代码Dim x%,y%Private SubCommand1_Click()x=Val(Text1)IfText1=Then MsgBox请先输入一个十进制数！Text1.SetFocus ExitSub EndIfIfOption1=False AndOption2=False AndOption3=False ThenMsgBox请选择进制ExitSubEndIfIfOption1.Value=True Theny=2ElseIf Option2.Value=True Theny=8ElseIf Option3.Value=True Theny=16EndIfText2=convert(x,y)End Sub Private SubForm_Load()Text1.Text=Text2=Option1.Value=False Option2.Value=False Option3.Value=False End Sub PublicFunction convert(ByVal a%,ByVal b%)AsStringDim str$,temp%str=Do Whilea0temp=a Modb a=ab Iftemp=10Then str=Chr(temp-10+65)&str Elsestr=temp&str EndIf Loopconvert=str EndFunction实验思考在本实验基础上，实现各种进制之间的相互转换。 实验11设计自定义对话框实验目的 1、掌握设计用户自定义对话框的一般方法； 2、熟练使用通用对话框。 实验内容 1、实验要求设计一个对话框，能够实现打开文件、保存文件、设置字体、设置颜色等功能。 2、窗体属性对象名属性名设置值Form1Richtextbox1Command1Command2Command3Command4Command 53、窗体设计captioncaptioncaptioncaptioncaptioncaptioncaption通用对话框-打开文件另存为字体颜色退出 4、源代码Private Submand1_Click()CommonDialog1.ShowOpen CommonDialog1.Filter=Text(*.txt)|*.txt|Doc(*.doc)|*.doc|all(*.*)|*.*RichTextBox1.LoadFile CommonDialog1.FileName,1End Sub Private SubCommand2_Click()CommonDialog1.ShowSave RichTextBox1.SaveFile CommonDialog1.FileName,1End Sub Private SubCommand3_Click()CommonDialog1.Flags=1+256即&H1+&H100CommonDialog1.ShowFont RichTextBox1.SelFontName=CommonDialog1.FontName RichTextBox1.SelFontSize=CommonDialog1.FontSize RichTextBox1.SelItalic=CommonDialog1.FontItalic RichTextBox1.SelBold=CommonDialog1.FontBold RichTextBox1.SelStrikeThru=CommonDialog1.FontStrikethru RichTextBox1.SelUnderline=CommonDialog1.FontUnderline RichTextBox1.SelColor=CommonDialog1.Color End Sub Private SubCommand4_Click()CommonDialog1.ShowColor RichTextBox1.BackColor=CommonDialog1.Color End Sub Private SubCommand5_Click()End End Sub实验思考如果将RichTextBox控件改为Text控件，能否实现程序的功能？实验12带菜单的文本器实验目的1掌握用菜单器设计菜单的方法；2，学会编写菜单代码，实现菜单功能。 实验内容1创建一个简单的文本器，界面设计如下左图所示，运行时如下右图所示。 编写代码实现文本器的功能。 2、窗体属性标题文件(&F)新建(&N)打开(&O)保存(&S)另存为(&A)退出(&Q)(&E)剪切复制粘贴查找字形(&F)粗体斜体名称Menu_File Menu_New Menu_Open L1Menu_Save Menu_SaveAs L2Menu_Quit Menu_Edit Menu_Cut Menu_Copy Menu_Paste L3Menu_Find Menu_Style Menu_FontBold Menu_FontItalic Ctrl+N Ctrl+O Ctrl+S Ctrl+X Ctrl+C Ctrl+V Ctrl+F快捷键主菜单项子菜单项子菜单项分隔条子菜单项子菜单项分隔条子菜单项主菜单项子菜单项子菜单项子菜单项分隔条子菜单项主菜单项“复选”，子菜单项“复选”，子菜单项说明3程序部分代码如下Private SubForm_Load()RichTextBox1.Text=Menu_FontBold.Checked=False Menu_FontItalic.Checked=False End Sub Private Sub Menu_Copy_Click()“复制”代码Clipboard.SetText RichTextBox1.SelText文本框所选内容复制到剪贴板End Sub Private Sub Menu_Cut_Click()“剪切”代码Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText=清除所选文本End Sub Private SubMenu_Paste_Click()“粘贴”代码RichTextBox1.SelText=Clipboard.GetText调用剪贴板的GetText方法EndSub Private SubMenu_Find_Click()“查找”代码Dim str$str=InputBox(请输入要查找的内容,查找)输入查找内容i=InStr(i+1,RichTextBox1.Text,str)调用InStr()函数If i0Then查找到的内容以深色显示RichTextBox1.SelStart=i-1RichTextBox1.SelLength=Len(str)RichTextBox1.SetFocus EndIf EndSub Private SubMenu_New_Click()新建”代码RichTextBox1.Text=EndSubPrivate SubMenu_Quit_Click()退出”代码End EndSub实训思考菜单程序能实现多少功能，就应该创建多少个菜单项。 通过本实训的练习，请你总结菜单的设计方法及菜单响应的事件。 实验13创建记事本实验目的 1、掌握菜单器的使用方法； 2、熟悉菜单事件的编程方法； 3、了解手工创建工具栏和状态栏的基本方法。 实验内容 1、实验要求设计一个文本器，能够实现文本的基本功能。 2、分析设计在“文件”菜单中至少有“保存”、“另存为?”对话框。 在“格式”菜单中有“字体”和“颜色”菜单项。 在状态栏显示系统时间、状态等，在工具栏上添加新建、打开、保存、剪切、复制、粘贴等按钮。 3、窗体属性对象名Form1StatusBar1RichTextBox 14、窗体设计属性名caption Panels (2).Text text设置值文本器锁定空 5、源代码Private SubEcopy_Click()Clipboard.SetText RichTextBox1.SelText EndSubPrivate Sub Ecut_Click()Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText=EndSubPrivate SubEpaste_Click()RichTextBox1.SelText=Clipboard.GetText EndSubPrivate Sub fexit_Click()End EndSubPrivateSubForm_MouseDown(Button AsInteger,Shift AsInteger,X AsSingle,Y AsSingle)If Button=2Then PopupMenutpopmenu,tpop3EndIfEndSubPrivateSubForm_Resize()RichTextBox1.Left=0If Vtoolbar.Checked=True Then RichTextBox1.Top=Toolbar1.Height ElseRichTextBox1.Top=0EndIfRichTextBox1.Width=ScaleWidth If Vstatusbar.Checked=True ThenRichTextBox1.Height=ScaleHeight-RichTextBox1.Top-StatusBar1.Height ElseRichTextBox1.Height=ScaleHeight-RichTextBox1.Top EndIfEndSubPrivateSub fnew_Click()RichTextBox1.Text=EndSubPrivateSubfopen_Click()CommonDialog1.Filter=text(*.txt)|*.txt|all(*.*)|*.*CommonDialog1.ShowOpen RichTextBox1.LoadFile CommonDialog1.FileName,1EndSubPrivateSubfsave_as_Click()CommonDialog1.ShowSave RichTextBox1.SaveFile CommonDialog1.FileName,1EndSubPrivateSubfsave_Click()RichTextBox1.SaveFile CommonDialog1.FileName,1EndSubPrivateSubhelp1_Click()SendKeysF1将一个或多个按键消息发送到活动窗口EndSubPrivateSubRichTextBox1_MouseDown(Button AsInteger,Shift AsInteger,X AsSingle,Y AsSingle)If Button=2Then PopupMenutpopmenu,tpop3EndIfEndSubPrivateSubsearch_Click()Static iDim str$str=InputBox(请输入要查找的内容)i=InStr(i+1,RichTextBox1.text,str)Ifi0ThenRichTextBox1.SelStart=i-1RichTextBox1.SelLength=Len(str)RichTextBox1.SetFocus ElseMsgBox查找结束EndIfEndSubPrivateSubToolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select CaseButton.Index Case1fnew_Click Case2fopen_Click Case3fsave_Click Case5Ecut_Click Case6Ecopy_Click Case7Epaste_Click EndSelectEndSubPrivateSub tpop1_Click()RichTextBox1.SelFontSize=RichTextBox1.SelFontSize+1EndSubPrivateSubtpop2_Click()RichTextBox1.SelFontSize=RichTextBox1.SelFontSize-1EndSubPrivateSubtpop3_Click()If tpop3.Caption=锁定Then tpop3.Caption=取消锁定RichTextBox1.Locked=True StatusBar1.Panels (2).Text=锁定Else tpop3.Caption=锁定RichTextBox1.Locked=False StatusBar1.Panels (2).Text=EndIfEndSubPrivateSubVstatusbar_Click()IfVstatusbar.Checked=False ThenVstatusbar.Checked=True StatusBar1.Visible=True ElseVstatusbar.Checked=False StatusBar1.Visible=False EndIf Form_Resize EndSubPrivateSub Vtoolbar_Click()If Vtoolbar.Checked=False ThenVtoolbar.Checked=True Toolbar1.Visible=True ElseVtoolbar.Checked=False Toolbar1.Visible=False EndIf Form_Resize EndSub实验思考试参考Windows操作系统附件中的记事本，完善“文件”、“”、“帮助”菜单的功能。 实验14多文档界面程序设计实验目的 1、了解MDI窗体和子窗体的特点； 2、掌握简单的多文档界面程序的设计。 实验内容 1、实验要求设计一个多文档界面的应用程序，能够新建多个子窗体，实现子窗体之间的复制，并对子窗体进行排列。 2、分析设计 （1）先设计一个主界面，单击右键选择进入MDIForm1； （2）创建MDI窗体，并添加窗体菜单“文件”、“”、“窗口”等； （3）在窗口菜单中，显示打开的子窗体列表，并实现子窗体的层叠、平铺、排列图标的排列方式。 3、窗体属性对象名FrmMain Label1Label2MDIForm1Text 14、窗体设计属性名captioncaptioncaptioncaptiontext设置值主界面应用程序演示单击右键选择多文档窗体- 5、源代码主界面代码PrivateSubForm_MouseDown(ButtonAsInteger,Shift AsInteger,X AsSingle,Y AsSingle)If Button=2Then PopupMenukjcd EndSubPrivateSub pcontinue_Click()Me.Hide MDIForm1.Show EndSubPrivateSub pend_Click()End EndSub MDI窗体代码Dim no%PrivateSubarrangicon_Click()MDIForm1.Arrange3EndSubPrivateSubcd_Click()MDIForm1.Arrange0EndSubPrivateSubcopy_Click()Clipboard.SetText Me.ActiveForm.ActiveControl.SelText EndSubPrivateSub exit_Click()Unload MeFrmMain.Show EndSubPrivateSub MDIForm_QueryUnload(Cancel AsInteger,Integer)Cancel=-1EndSubPrivateSubnew_Click()Dim NewformAs NewForm1no=no+1Newform.Caption=子窗体&no Newform.Show EndSubPrivateSub paste_Click()Me.ActiveForm.Text1.SelText=Clipboard.GetText EndSubPrivateSub pp_Click()MDIForm1.Arrange1EndSub实验思考试与实验9内容合并，完成一个类似WORD的应用程序。 UnloadMode As实验15设计文本浏览器实验目的 1、掌握文件系统控件（文件、目录、驱动器列表框）的应用； 2、掌握顺序文件的打开、关闭和读写的基本操作； 3、掌握常用文件函数和文件命令的使用方法。 实验内容 1、实验要求用文件列表框、目录列表框、驱动器列表框和文本框编制一个文本浏览器。 2、分析设计通过驱动器控件、目录控件和文件控件的组合使用，选择需要显示的源文件，并将文本文件内容显示在文本框中。 3、窗体属性对象名File1Text1Text2属性名pattern texttext multiline设置值*.txt-true 4、窗体设计 5、源代码Priva