模块10--实验.ppt

《模块10--实验.ppt》由会员分享，可在线阅读，更多相关《模块10--实验.ppt（49页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、模块模块10 10 实验实验实验实验1 VB环境的使用和简单应用程序设训环境的使用和简单应用程序设训实验实验2 过程的使用过程的使用实验实验3 常用控件的应用常用控件的应用实验实验4 菜单菜单实验实验5 文件文件模块模块10 10 实验实验 实验是巩固课堂所学知识、掌握可视化程序设计方法、提高分析问题实验是巩固课堂所学知识、掌握可视化程序设计方法、提高分析问题实验是巩固课堂所学知识、掌握可视化程序设计方法、提高分析问题实验是巩固课堂所学知识、掌握可视化程序设计方法、提高分析问题和解决问题能力的最重要的途径。因此明确实验目的、要求、实验步和解决问题能力的最重要的途径。因此明确实验目的、要求、实验

2、步和解决问题能力的最重要的途径。因此明确实验目的、要求、实验步和解决问题能力的最重要的途径。因此明确实验目的、要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做好于养成严谨科学的作风。每个实验都要遵循认真预习准备、认真做

3、好实验、认真写好实验报告三个阶段进行。实验、认真写好实验报告三个阶段进行。实验、认真写好实验报告三个阶段进行。实验、认真写好实验报告三个阶段进行。上一页 下一页返回实验实验1 VB1 VB环境的使用和简单应用程序设训环境的使用和简单应用程序设训实验目的实验目的 熟悉设计用户界面，掌握设置对象属性和编写代码。熟悉设计用户界面，掌握设置对象属性和编写代码。熟悉设计用户界面，掌握设置对象属性和编写代码。熟悉设计用户界面，掌握设置对象属性和编写代码。熟练建立熟练建立熟练建立熟练建立EXEEXE程序，掌握调试并运行程序。程序，掌握调试并运行程序。程序，掌握调试并运行程序。程序，掌握调试并运行程序。掌握发

4、布应用程序。掌握发布应用程序。掌握发布应用程序。掌握发布应用程序。试验内容试验内容 创建一个简单创建一个简单创建一个简单创建一个简单VBVB程序的步骤如下。程序的步骤如下。程序的步骤如下。程序的步骤如下。(1)(1)启动启动启动启动Visual Basic 6.0Visual Basic 6.0，在，在，在，在“新建工程新建工程新建工程新建工程”对话框中选择创建工程类型对话框中选择创建工程类型对话框中选择创建工程类型对话框中选择创建工程类型为为为为“标准标准标准标准EXEEXE，单击，单击，单击，单击“打开打开打开打开”按钮，则出现一个名称为按钮，则出现一个名称为按钮，则出现一个名称为按钮，则

5、出现一个名称为“工程工程工程工程1”1”的的的的设计窗口。在这个窗口中只有一个名称为设计窗口。在这个窗口中只有一个名称为设计窗口。在这个窗口中只有一个名称为设计窗口。在这个窗口中只有一个名称为Form1Form1的窗体。的窗体。的窗体。的窗体。(2)(2)单击工具箱中的控件，用鼠标拖动到窗体单击工具箱中的控件，用鼠标拖动到窗体单击工具箱中的控件，用鼠标拖动到窗体单击工具箱中的控件，用鼠标拖动到窗体 Form1Form1上。摆放到合适的上。摆放到合适的上。摆放到合适的上。摆放到合适的位置，拖动一个标签控件、两个按钮。位置，拖动一个标签控件、两个按钮。位置，拖动一个标签控件、两个按钮。位置，拖动一

6、个标签控件、两个按钮。下一页返回实验实验1 VB1 VB环境的使用和简单应用程序设训环境的使用和简单应用程序设训 (3)(3)单击工具栏中的单击工具栏中的单击工具栏中的单击工具栏中的“属性窗口属性窗口属性窗口属性窗口”按钮打开按钮打开按钮打开按钮打开“属性属性属性属性”窗口。选中标签窗口。选中标签窗口。选中标签窗口。选中标签控件，在属性窗口标签控件的控件，在属性窗口标签控件的控件，在属性窗口标签控件的控件，在属性窗口标签控件的CaptionCaption属性赋值属性赋值属性赋值属性赋值“第一个第一个第一个第一个Visual BasicVisual Basic程序程序程序程序”，如，如，如，如图

7、图10-1所示。选中按钮控件的所示。选中按钮控件的所示。选中按钮控件的所示。选中按钮控件的CaptionCaption属性分别赋值属性分别赋值属性分别赋值属性分别赋值“改变改变改变改变显示画面显示画面显示画面显示画面”和和和和“退出程序退出程序退出程序退出程序”，如，如，如，如图图10-2所示。所示。所示。所示。(4)(4)双击按钮控件，打开代码窗口，在代码窗口中自动出现了按钮双击按钮控件，打开代码窗口，在代码窗口中自动出现了按钮双击按钮控件，打开代码窗口，在代码窗口中自动出现了按钮双击按钮控件，打开代码窗口，在代码窗口中自动出现了按钮ClickClick事件的框架，如事件的框架，如事件的框架

8、，如事件的框架，如图图10-3所示，用户只需为该过程添加代码即可。所示，用户只需为该过程添加代码即可。所示，用户只需为该过程添加代码即可。所示，用户只需为该过程添加代码即可。上一页 下一页返回实验实验1 VB1 VB环境的使用和简单应用程序设训环境的使用和简单应用程序设训代码添加如下代码添加如下代码添加如下代码添加如下:Private Sub Private Sub Command1-Command1-ClickClick()()Form1.Caption=“Form1.Caption=“第一个第一个第一个第一个Visual BasicVisual Basic程序程序程序程序”设置窗体的标题文

9、字设置窗体的标题文字设置窗体的标题文字设置窗体的标题文字Label1.Caption=“Label1.Caption=“编写编写编写编写Visual BasicVisual Basic程序是一件非常有趣的事情程序是一件非常有趣的事情程序是一件非常有趣的事情程序是一件非常有趣的事情!”!”Command1.Caption=“Command1.Caption=“画面已经改变画面已经改变画面已经改变画面已经改变”Cmmand2.Enabled=TrueCmmand2.Enabled=TruePrintPrintPrint“Print“我们大家一起来轻松学习我们大家一起来轻松学习我们大家一起来轻松学习

10、我们大家一起来轻松学习Visual BasicVisual Basic语言语言语言语言!”!”Private Sub Cotntnand2_Click()Private Sub Cotntnand2_Click()EndEndEnd SubEnd Sub上一页 下一页返回实验实验1 VB1 VB环境的使用和简单应用程序设训环境的使用和简单应用程序设训 (5)(5)调试程序。选择调试程序。选择调试程序。选择调试程序。选择“运行运行运行运行”下的下的下的下的“启动启动启动启动”命令或直接按命令或直接按命令或直接按命令或直接按F5F5键运行调键运行调键运行调键运行调试，如试，如试，如试，如图图10-

11、4所示。所示。所示。所示。(6)(6)生成生成生成生成EXEEXE文件。选择文件。选择文件。选择文件。选择“文件文件文件文件”菜单下的菜单下的菜单下的菜单下的“生成工程生成工程生成工程生成工程1.EXE”1.EXE”命令，命令，命令，命令，可以脱离可以脱离可以脱离可以脱离VB6.0VB6.0环境运行，如环境运行，如环境运行，如环境运行，如图图10-5所示。所示。所示。所示。(7)(7)制作安装程序。在工程窗口右击，弹出工程的快捷菜单，选择制作安装程序。在工程窗口右击，弹出工程的快捷菜单，选择制作安装程序。在工程窗口右击，弹出工程的快捷菜单，选择制作安装程序。在工程窗口右击，弹出工程的快捷菜单，

12、选择“打包和展开向导命令打包和展开向导命令打包和展开向导命令打包和展开向导命令”，如，如，如，如图图10-6所示。所示。所示。所示。单击单击单击单击“打包打包打包打包”按钮进行打包，如按钮进行打包，如按钮进行打包，如按钮进行打包，如图图10-7所示。首先选择所示。首先选择所示。首先选择所示。首先选择“打包脚本打包脚本打包脚本打包脚本”，如，如，如，如图图10-8所示所示所示所示 打包程序的存放目录，如打包程序的存放目录，如打包程序的存放目录，如打包程序的存放目录，如图图10-9所示，生成安装文件所示，生成安装文件所示，生成安装文件所示，生成安装文件Setup.exeSetup.exe，如，如，

13、如，如图图10-10所示。所示。所示。所示。上一页返回实验实验2 过程的使用过程的使用 实验目的实验目的 掌握掌握sub和和function的编写和使用。的编写和使用。实验要求实验要求 通常，过程可以分为通常，过程可以分为通常，过程可以分为通常，过程可以分为subsub子过程和子过程和子过程和子过程和functionfunction函数过程，如函数过程，如函数过程，如函数过程，如图图10-11所示。所示。所示。所示。subsub子过程的编写和使用子过程的编写和使用子过程的编写和使用子过程的编写和使用 子过程的格式如下子过程的格式如下子过程的格式如下子过程的格式如下:private public

14、 static subprivate public static sub(参数表参数表参数表参数表)exit subexit sub EndEnd sub sub 返回实验实验3 常用控件的应用常用控件的应用实验目的实验目的 掌握标签、按钮、文本框、单选钮、复选框的使用。掌握标签、按钮、文本框、单选钮、复选框的使用。掌握标签、按钮、文本框、单选钮、复选框的使用。掌握标签、按钮、文本框、单选钮、复选框的使用。掌握各控件的属性、事件和方法。掌握各控件的属性、事件和方法。掌握各控件的属性、事件和方法。掌握各控件的属性、事件和方法。掌握各控件的事件代码的编写。掌握各控件的事件代码的编写。掌握各控件的事

15、件代码的编写。掌握各控件的事件代码的编写。试验内容试验内容 选项按钮、复选框、标签、按钮的特点如下。选项按钮、复选框、标签、按钮的特点如下。选项按钮、复选框、标签、按钮的特点如下。选项按钮、复选框、标签、按钮的特点如下。选项按钮用于从一组选项中选取一个选项。选项按钮用于从一组选项中选取一个选项。选项按钮用于从一组选项中选取一个选项。选项按钮用于从一组选项中选取一个选项。复选框按钮可以从一组中选择多个选项。复选框按钮可以从一组中选择多个选项。复选框按钮可以从一组中选择多个选项。复选框按钮可以从一组中选择多个选项。标签主要用于显示文本内容。标签主要用于显示文本内容。标签主要用于显示文本内容。标签主

16、要用于显示文本内容。按钮用于激发事件。按钮用于激发事件。按钮用于激发事件。按钮用于激发事件。框架用于对控件的分组。框架用于对控件的分组。框架用于对控件的分组。框架用于对控件的分组。下一页返回实验实验3 常用控件的应用常用控件的应用 下面介绍标签、按钮、文本框、单选钮、复选框的基本使用。下面介绍标签、按钮、文本框、单选钮、复选框的基本使用。下面介绍标签、按钮、文本框、单选钮、复选框的基本使用。下面介绍标签、按钮、文本框、单选钮、复选框的基本使用。(1)1)创建一个窗体。创建一个窗体。创建一个窗体。创建一个窗体。人员管理界面由姓名、爱好和职称组成，爱好和职称分别由框架控件人员管理界面由姓名、爱好和

17、职称组成，爱好和职称分别由框架控件人员管理界面由姓名、爱好和职称组成，爱好和职称分别由框架控件人员管理界面由姓名、爱好和职称组成，爱好和职称分别由框架控件分组，爱好可以同时选择多个选项，职称只能选择其中的一个。姓名分组，爱好可以同时选择多个选项，职称只能选择其中的一个。姓名分组，爱好可以同时选择多个选项，职称只能选择其中的一个。姓名分组，爱好可以同时选择多个选项，职称只能选择其中的一个。姓名通过文本框输入，按钮显示输入和选择的信息，多行文本框显示信息，通过文本框输入，按钮显示输入和选择的信息，多行文本框显示信息，通过文本框输入，按钮显示输入和选择的信息，多行文本框显示信息，通过文本框输入，按钮

18、显示输入和选择的信息，多行文本框显示信息，如如如如图图10-12所示。创建一个工程，由一个窗体和若干个控件组成，如所示。创建一个工程，由一个窗体和若干个控件组成，如所示。创建一个工程，由一个窗体和若干个控件组成，如所示。创建一个工程，由一个窗体和若干个控件组成，如图图10-12所示。各控件的功能如所示。各控件的功能如所示。各控件的功能如所示。各控件的功能如表表10-1所示所示所示所示)(2)2)设计控件的属性，属性如设计控件的属性，属性如设计控件的属性，属性如设计控件的属性，属性如表表10-2所示。所示。所示。所示。(3)(3)运行调试，运行界面如运行调试，运行界面如运行调试，运行界面如运行调

19、试，运行界面如图图10-13所示。所示。所示。所示。上一页返回实验实验4 菜单菜单实验目的实验目的 掌握菜单的制作使用技术。掌握菜单的制作使用技术。掌握菜单的制作使用技术。掌握菜单的制作使用技术。实验要求实验要求 1.1.下拉式菜单设计下拉式菜单设计下拉式菜单设计下拉式菜单设计 (1)(1)窗体设计。设计一个窗体和一个多行文本框，如窗体设计。设计一个窗体和一个多行文本框，如窗体设计。设计一个窗体和一个多行文本框，如窗体设计。设计一个窗体和一个多行文本框，如图图10-14所示。所示。所示。所示。(2)(2)通过快捷工具蔺编辑菜单，如通过快捷工具蔺编辑菜单，如通过快捷工具蔺编辑菜单，如通过快捷工具

20、蔺编辑菜单，如图图10-15所示。所示。所示。所示。(3)(3)代码设计。代码设计。代码设计。代码设计。Clipboard.Clipboard.SetTextSetText Form1.Text1.Form1.Text1.SetTextSetText,1,1语句可以语句可以语句可以语句可以把当前选中的数据复制到剪贴板上。把当前选中的数据复制到剪贴板上。把当前选中的数据复制到剪贴板上。把当前选中的数据复制到剪贴板上。下一页返回实验实验4 菜单菜单 Private Private Sub Form Load()Sub Form Load()Clipboard.Clear Clipboard.Cle

21、ar End End Sub Sub Private Private Sub Menu Edit Copy Click()Sub Menu Edit Copy Click()ClipboardClipboard.SetTextSetText Form1.Text1.Form1.Text1.SetTextSetText，1 1 把当前选中的数据复制到剪贴板上把当前选中的数据复制到剪贴板上把当前选中的数据复制到剪贴板上把当前选中的数据复制到剪贴板上 End End Sub Sub Private Private Sub Menu Edit Cut Click()Sub Menu Edit Cut

22、Click()ClipboardClipboard.SetTextSetText Form1.Text1.Form1.Text1.SetTextSetText，1 1 把当前选中的数据复制到剪贴板上把当前选中的数据复制到剪贴板上把当前选中的数据复制到剪贴板上把当前选中的数据复制到剪贴板上 Form Form 1.Text1.1.Text1.SelTextSelText=“”=“”删除选中内容删除选中内容删除选中内容删除选中内容 End End Sub Sub上一页 下一页返回实验实验4 菜单菜单 Private Private Sub Menu Edit del Click()Sub Menu

23、 Edit del Click()通过设置通过设置通过设置通过设置deltextdeltext属性删除选中内容属性删除选中内容属性删除选中内容属性删除选中内容 Form Form 1.Text1.1.Text1.SelTextSelText=“”=“”End End Sub Sub Private Private Sub Menu Edit Paste Click()Sub Menu Edit Paste Click()i=Forml.Text1.SelStart i=Forml.Text1.SelStart strlstrl=Mid(Form1.Text1.Text=Mid(Form1.Te

24、xt1.Text，1 1，i)i)str2=str2=Mid(FortnlMid(Fortnl.Text1.Text.Text1.Text，)Form1.Text1.SelStart+1 Form1.Text1.SelStart+1，Len(Form1.Text1)Len(Form1.Text1)一一一一Len(str1)Len(str1)Form1.Text1=str1&Clipboard.GetText&str2 Form1.Text1=str1&Clipboard.GetText&str2 把剪贴板上的数据粘贴到当前位置处把剪贴板上的数据粘贴到当前位置处把剪贴板上的数据粘贴到当前位置处把

25、剪贴板上的数据粘贴到当前位置处 End End Sub Sub (4)4)运行结果如运行结果如运行结果如运行结果如图图10-16所示。所示。所示。所示。上一页 下一页返回实验实验4 菜单菜单2.2.弹出式菜单设计弹出式菜单设计弹出式菜单设计弹出式菜单设计使用弹出式菜单可以改变窗体和按钮的背景颜色及按钮的字体。使用弹出式菜单可以改变窗体和按钮的背景颜色及按钮的字体。使用弹出式菜单可以改变窗体和按钮的背景颜色及按钮的字体。使用弹出式菜单可以改变窗体和按钮的背景颜色及按钮的字体。使用弹出式菜单的使用弹出式菜单的使用弹出式菜单的使用弹出式菜单的PopupMenuPopupMenu方法的一般格式是方法的

26、一般格式是方法的一般格式是方法的一般格式是:PopupMenuPopupMenu菜单名菜单名菜单名菜单名flings,x,y,flings,x,y,BoldcotntnandBoldcotntnand(1)(1)界面设计。建立一个窗体、一个按钮和颜色对活框，如界面设计。建立一个窗体、一个按钮和颜色对活框，如界面设计。建立一个窗体、一个按钮和颜色对活框，如界面设计。建立一个窗体、一个按钮和颜色对活框，如图图10-17所示。所示。所示。所示。(2)(2)通过快捷工具编辑菜单，如通过快捷工具编辑菜单，如通过快捷工具编辑菜单，如通过快捷工具编辑菜单，如图图10-18所示。所示。所示。所示。上一页 下一

27、页返回实验实验4 菜单菜单 (3)3)代码设计如下。代码设计如下。代码设计如下。代码设计如下。Private Private Sub Com Sub Com MouseUpMouseUp(Button As Integer,Shift As Integer,X As (Button As Integer,Shift As Integer,X As SingleSingle，Y As Single)Y As Single)If If Button=2 Then Button=2 Then 右击右击右击右击 PopupMenuPopupMenu PopCotmPopCotm EndEnd If I

28、f EndEnd Sub Sub Private Private Sub Form Sub Form MouseUpMouseUp(Button As Integer,Shift As Integer,X As (Button As Integer,Shift As Integer,X As SingleSingle，Y As Single)Y As Single)If If Button=2 Then Button=2 Then PopupMenu PopupMenu PopFormPopForm End End If If 弹出菜单弹出菜单弹出菜单弹出菜单 End End Sub Sub上

29、一页 下一页返回实验实验4 菜单菜单 Private Private Sub Sub PopCc-PopCc-Click()Click()DiaColor DiaColor.Action=3.Action=3 Com.Com.BackColorBackColor=DiaColorDiaColor.Color.Color End End Sub Sub Private Private Sub Sub PopFc-ClickPopFc-Click()()DiaColor DiaColor.Action=3.Action=3 Form Form 1.1.BackColorBackColor=DiaC

30、olorDiaColor.Color.Color End End Sub Sub Private Private Sub Sub PopFontPopFont -Click(IndexClick(Index As Integer)As Integer)SelectSelect Case Index Case Index CaseCase 0 0 ComCom.FontNameFontName=“=“宋体宋体宋体宋体”PopFont(0)CheckedPopFont(0)Checked=True=True PopFont(1)Checked=False PopFont(1)Checked=Fal

31、se PopFont(2)Checked=FalsePopFont(2)Checked=False上一页 下一页返回实验实验4 菜单菜单 Case Case 1 1 Com.Com.FontNameFontName=“=“隶书隶书隶书隶书”PopFont(1)Checked=TruePopFont(1)Checked=True PopFont(0)Checked=False PopFont(0)Checked=False PopFont(2)Checked=False PopFont(2)Checked=False Case Case 2 2 Com.Com.FontNameFontName=

32、“=“幼圆幼圆幼圆幼圆”PopFont(2)Checked=TruePopFont(2)Checked=True PopFont(1)Checked=False PopFont(1)Checked=False PopFont(0)Checked=False PopFont(0)Checked=False End End Select Select End End Sub Sub上一页返回实验实验5 文件文件实验目的实验目的 掌握文件系统的控件的操作，设计文件管理界面。掌握文件系统的控件的操作，设计文件管理界面。掌握文件系统的控件的操作，设计文件管理界面。掌握文件系统的控件的操作，设计文件管理界

33、面。访问文件访问文件访问文件访问文件求求、建立文件存储数据，从文件中读取数据。、建立文件存储数据，从文件中读取数据。、建立文件存储数据，从文件中读取数据。、建立文件存储数据，从文件中读取数据。实验要求实验要求 1.1.建立文件系统界面建立文件系统界面建立文件系统界面建立文件系统界面 在此系统下可以更换驱动器和目录，在文本框中输入文件名可以查在此系统下可以更换驱动器和目录，在文本框中输入文件名可以查在此系统下可以更换驱动器和目录，在文本框中输入文件名可以查在此系统下可以更换驱动器和目录，在文本框中输入文件名可以查 找文件，在文本框中输入文件名也可以删除文件。找文件，在文本框中输入文件名也可以删除

34、文件。找文件，在文本框中输入文件名也可以删除文件。找文件，在文本框中输入文件名也可以删除文件。界面如界面如界面如界面如图图10-19所示。包括驱动器列表框、目录列表框、文件列表框、所示。包括驱动器列表框、目录列表框、文件列表框、所示。包括驱动器列表框、目录列表框、文件列表框、所示。包括驱动器列表框、目录列表框、文件列表框、文本框和三个按钮。文本框和三个按钮。文本框和三个按钮。文本框和三个按钮。2.2.建立一个顺序文件建立一个顺序文件建立一个顺序文件建立一个顺序文件 可利用此文件从键盘上输入、输出数据，查询数据。可利用此文件从键盘上输入、输出数据，查询数据。可利用此文件从键盘上输入、输出数据，查

35、询数据。可利用此文件从键盘上输入、输出数据，查询数据。(1)(1)界面设计如界面设计如界面设计如界面设计如图图10-20所示。拖放所示。拖放所示。拖放所示。拖放4 4个按钮控件。个按钮控件。个按钮控件。个按钮控件。(2)(2)选择选择选择选择“工程工程工程工程”菜单中的菜单中的菜单中的菜单中的“添加模块添加模块添加模块添加模块”命令，在工程中添加一个新命令，在工程中添加一个新命令，在工程中添加一个新命令，在工程中添加一个新的标准模块，然后在该模块中定义如下记录类型和全局变量。的标准模块，然后在该模块中定义如下记录类型和全局变量。的标准模块，然后在该模块中定义如下记录类型和全局变量。的标准模块，

36、然后在该模块中定义如下记录类型和全局变量。下一页返回实验实验5 文件文件用户可以通过用户可以通过用户可以通过用户可以通过VBVB提供的提供的提供的提供的typetype语句来创建自定义类型，它的一般形式为语句来创建自定义类型，它的一般形式为语句来创建自定义类型，它的一般形式为语句来创建自定义类型，它的一般形式为:TypeType类型名类型名类型名类型名成员成员成员成员1 as1 as类型类型类型类型成员成员成员成员2 as2 as类型类型类型类型成员成员成员成员3 as3 as类型类型类型类型EndEnd type type定义如下定义如下定义如下定义如下:Type bole infoType

37、 bole infoBole num As IntegerBole num As IntegerBole name As StringBole name As Stringprice As Singleprice As SingleStock data As StringStock data As Stringamount As Singleamount As SingleEnd TypeEnd TypeOption Base 1Option Base 1Public bole stock()As bole infoPublic bole stock()As bole infoPublic n

38、 As IntegerPublic n As Integer上一页 下一页返回实验实验5 文件文件 (3)编写代码如下。编写代码如下。Private Sub Command1_ Click()num=InputBox(请输入货物种类数请输入货物种类数)num=Int(num)n=n+num ReDim bole _ stock(num)As bole info Open d:letupbole.txt For Append As#1 For i=1 To num bole _ stock(i).Bole num=InputBox(请输入货物号请输入货物号)bole _ stock(i).Bol

39、e name=InputBox(请输入货物名称请输入货物名称)bole _ stock(i).price=InputBox(请输入货物单价请输入货物单价)bole _ stock(i).Stock data=InputBox(请输入进库口期请输入进库口期)bole _ stock(i).amount=InputBox(请输入货物数量请输入货物数量)Write#1，bole _ stock(i).bole _ num，bole _ stock(i).bole _ name，bole _ stock(i).price，bole _ stock(i).stock _ data，bole _ stoc

40、k(i).amount Next i Close#1 上一页 下一页返回实验实验5 文件文件 Open Open d:tempbole.d:tempbole.lxllxl For Output As#1 For Output As#1 Print#1 Print#1，n n Close#1Close#1 End Sub End Sub Private Private Sub Command2_ Click()Sub Command2_ Click()Open Open d:letupbole.txt For Input As#1 d:letupbole.txt For Input As#1 I

41、nput#1 Input#1，n n Clase#1 Clase#1 ReDim ReDim bole stock(n)As bole info bole stock(n)As bole info Open Open d:letupbole.txt For Input As#2 d:letupbole.txt For Input As#2 x=1 x=1 Print Print 货号货号货号货号,货名货名货名货名,单价单价单价单价 ，进库口期进库口期进库口期进库口期 货物数量货物数量货物数量货物数量 Print上一页 下一页返回实验实验5 文件文件 Do Do While Not EOF(2)

42、While Not EOF(2)Input#2 Input#2，bole bole stock(istock(i).).bole _bole _ numnum，_ _ bolebole _ stock(i_ stock(i).).bole_namebole_name，_ _ bole bole _ stock(i)._ stock(i).priceprice，_ _ bole bole _ stock(i_ stock(i).).stock_datastock_data，bolebole _ stock(i_ stock(i).).atnountatnount Print _ Print _

43、bole bole stock(istock(i).Print).Print;_ _ bole _bole _ stock(istock(i).).bole_natne;bole_natne;_ _ bole bole _ _ stock(istock(i).bole).bole num;num;_ _ bole bole _ stock(i_ stock(i).).slock_data;slock_data;_ _ bolebole _ _ stock(istock(i).amount).amount x=x+1x=x+1 Loop Loop Close#2 Close#2 End Sub上

44、一页 下一页返回实验实验5 文件文件 Private Private Sub Command3_ Click()Sub Command3_ Click()Dim Dim y As String y As String Open Open d:letupbole.txt For Input As#1 d:letupbole.txt For Input As#1 Input#1 Input#1，n n Close#1 Close#1 ReDimReDim bole stock(n)As bole bole stock(n)As bole _ _ info info Open d:letupbole

45、.txt For Input As#2 Open d:letupbole.txt For Input As#2 x=1 x=1 Print Print 货号货号货号货号 ，货名货名货名货名 ，单价单价单价单价 ，进库口期进库口期进库口期进库口期 ，货物数量货物数量货物数量货物数量 Print上一页 下一页返回实验实验5 文件文件 y y=InputBoxInputBox(请输入货物号请输入货物号请输入货物号请输入货物号)Do Do While Not EOF(2)While Not EOF(2)Input#2 Input#2，bole _ stock(ibole _ stock(i).bole

46、).bole _ num_ num，_ _ bole _ stock(ibole _ stock(i).).bole _bole _ namename，_ _ bole bole _ _ stock(i).stock(i).PricePrice，_ _ bole _bole _ stock(i).stockstock(i).stock _ _ data,_ data,_ bole _ bole _ stock(i).amountstock(i).amount If If y=hole _ stock(i).bole _y=hole _ stock(i).bole _ nutnnutn Then

47、 Then 上一页 下一页返回实验实验5 文件文件 Print Print bole bole _ stock(i_ stock(i).).bole_name;bole_name;_;_ bolebole _ _ stock(istock(i).).bole_name;bole_name;_ _ bolebole _ _ stock(istock(i).bole num).bole num，;_ _ bole _bole _ stock(istock(i).).stock_data;stock_data;_ _ bolebole _ _ stock(istock(i).Amount).Amou

48、nt ExitExit Do Do x=x+1 x=x+1 End If End If LoopLoop Close#2Close#2 End End Sub Sub Private Private Sub Comand4_ Click()Sub Comand4_ Click()End End End End Sub Sub上一页 下一页返回实验实验5 文件文件 (4)(4)首先必须加载添加模块，如首先必须加载添加模块，如首先必须加载添加模块，如首先必须加载添加模块，如图图10-21所示，选择所示，选择所示，选择所示，选择“工程工程工程工程”菜单下的菜单下的菜单下的菜单下的“添加模块添加模块添

49、加模块添加模块”命令，打开命令，打开命令，打开命令，打开“现存现存现存现存”选项卡，选中已编辑的模块。运行选项卡，选中已编辑的模块。运行选项卡，选中已编辑的模块。运行选项卡，选中已编辑的模块。运行结果如结果如结果如结果如图图10-22所示。所示。所示。所示。上一页返回图图10-1 为为Caption属性赋值属性赋值返回图图10-2 Form1窗口窗口返回图图10-3 代码窗口代码窗口返回图图10-4 运行调试运行调试返回图图10-5 生成生成.exe文件文件返回图图10-6 打包和展开向导打包和展开向导返回图图10-7 进行打包进行打包返回图图10-8 选择选择“打包脚本打包脚本”返回图图10

50、-9 选择存放目录选择存放目录返回图图10-10 生成安装义件生成安装义件返回图图10-11 过程使用示例过程使用示例返回图图10-12 创建窗体示例创建窗体示例返回表表10-1 控件功能表控件功能表返回表表10-2 控件的属性表控件的属性表返回图图10-13 运行界面运行界面返回图图10-14 窗体设计示例窗体设计示例返回图图10-15 编辑菜单编辑菜单返回图图10-16 运行结果运行结果返回图图10-17 界面设计界面设计返回图图10-18 编辑菜单编辑菜单返回图图10-19 运行界面运行界面返回图图10-20 界面设计界面设计返回图图10-21 “现存现存”选项卡选项卡返回图图10-22