VB实验报告答案

VB实验报告 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 福建农林大学计算机与信息学院 (计算机公共基础二级课程) 实 验 报 告 课程名称: Visual Basic 程序设计 姓 名: 邹丽平 学 院: 食品科学学院 专 业: 食品科学与工程 年 级: 2010级 学 号: 102258016001 指导老师: 黄红兵 职 称: 讲师 2012 年 5 月 20 日 manager must clearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responsible 实验项目列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 序号 实验项目名称 成绩 指导教师 1 实验一 VB环境和简单应用程序设计 黄红兵 2 实验二 顺序结构程序设计 黄红兵 3 实验三 选择结构程序设计 黄红兵 4 实验四 循环结构程序设计 黄红兵 5 实验五 数组 黄红兵 6 实验六 过程 黄红兵 7 实验七 窗体和常用控件(一) 黄红兵 8 实验八 常用控件(二) 黄红兵 9 实验九 菜单设计和多文档界面 黄红兵 10 实验十 文件管理与操作 黄红兵 总成绩 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 2 福建农林大学计算机与信息学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹 丽 平 学号: 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间: 2012.3.5 指导教师签字: 黄红兵 成绩: 报告退发(订正、重做) 实验一 VB环境和简单应用程序设计 一、 实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境(IDE)。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件(窗体、标签、文本框、命令按钮)的简单应用。 二、 实验 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 1.启动Visual Basic 6.0，熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签( Label1和Label2)，Label1的字体为隶 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf ，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜;然后再设计一个初始文本 为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮(C1、C2和C3)。运行时，如果单击“禁止用C3”按钮，则C3按钮无效(如图10-2所示);如果单击“允许用C3”按钮，则C3按钮有效。 图1-2 运行界面 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c3 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框(Text1和Text2)，其初始文本为空，设置适当的属性使文本框Text2可以显示多行文本，有一个垂直滚动条，而且Text2不可编辑文本。运行时，在文本框Text1中输入一个字符串，单击窗体，则将Text1中的文本复制到Text2中。 图1-3 运行界面 5.按图1-4在标题为“标签内容显示”的窗体Form1上画一个标题为空、带有单边框的标签Label1,再画两个标签分别为“显示”和“清空”的命令按钮(Command1和Command2)。运行时，单击“显示”按钮，则在标签Label1中显示“欢迎使用Visual Basic 6.0～”;单击“清空”按钮，则Label1的标题为空。 图1-4 运行界面 三、 实验步骤 1、实验内容1的操作步骤: (1) 单击“开始”按钮，在“程序”中执行 “Microsoft Visual Basic6.0 中文版”命令，系统将自动显示“新建工程”对话框。 (2) 在“新建工程”对话框中选中“标准EXE”图标，单击“打开”按钮，就 可以打开Visual Basic集成开发环境(IDE)。 (3) 观察其标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处。 (4) 将鼠标指向工具箱上的各个标准控件，了解它们各自的默认名称。 (5) 分别单击“工程”、“属性”、“窗体布局”窗口及“工具箱”窗口右上角的 “关闭”按钮，将其全部关闭。 (6) 执行“视图”菜单中的“工程资源管理器”、“属性窗口”、“窗体布局窗口” accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 4 及“工具箱”命令，分别打开相应的窗口。 2、实验内容2的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个标签和 一个文本框。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 第一个应用程序 Caption 欢迎您使用Visual Basic Label1 Font,字体 选择“隶书” AutoSize Ture Caption 请输入您的姓名 Label2 Font,字体 选择“斜体” Text1 Text (空白) (3)各控件的布局如下: (4) 单击“文件,保存工程”菜单项，以Fe.frm为窗体文件名和为Fe.vbp 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1) 新建一个新建一个“标准EXE”类型的工程，然后在窗体Form1上添加三 个命令按钮，并将它们名称分别改为C1、C2和C3。 (2) 各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 命令按钮设置 C1 Caption 禁止用C3 C2 Caption 允许用C3 C3 Caption C3 (3)各控件的布局如下: siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c5 (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Command3.Enabled = False ’禁止使用C3命令按钮 End Sub Private Sub Command2_Click() Command3.Enabled = True ’允许使用C3命令按钮 End Sub (5) 单击“文件,保存工程”菜单项，以Cs.frm为窗体文件名和为Cs.vbp 为工程文件名保存在 VB实验 文件夹中。 4、实验内容4的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个文本框。 (2) 各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 文本复制 Text1 Text (空白) Text (空白) MultiLine Ture Text2 ScrollBars 2-Vetical Licked Ture (3)各控件的布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Form_Click() Text2.Text = Text1.Text ’把Text1中的文本信息复制到Text2 End Sub (5) 单击“文件,保存工程”菜单项，以Copy.frm为窗体文件名和为Copy.vbp 为工程文件名保存在 VB实验 文件夹中。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 6 5、实验内容5的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上添加一个标签和 两个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Caption (空白) Label1 BorderStyle 1-Fixed Single Command1 Caption 显示 Command2 Caption 清空 (3)各控件的布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Label1.Caption = "欢迎使用VISUAL BASIC 6.0" ’显示文本信息 End Sub Private Sub Command2_Click() Label1.Caption = "" ’退出程序 End Sub (5) 单击“文件,保存工程”菜单项，以Es.frm为窗体文件名和为Es.vbp 为工程文件名保存在 VB实验 文件夹中。 四、 实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 五个实验都能按照要求做出相应的结果，结果都正确。 六、总结 1、掌握了的启动与退出，熟悉了的集成开发环境(IDE); 2、掌握了应用程序建立、编辑、运行和保存的全过程; 3、了解了系统的基本控件的简单应用。 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c7 福建农林大学食品科学学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号: 宝玲楼304_计算机号: 01 实验时间: 2012.3.12 指导教师签字: 黄红兵 成绩: 实验二 顺序结构程序设计 一、实验目的 1、掌握常用内部函数的使用。 2、掌握表达式、赋值语句的正确书写规范。 3、掌握InputBox与MsgBox的使用。 4、掌握Print方法的使用。 二、实验内容 1、在立即窗口中运行下列表达式的值: (1)16/4-2^5*8/4mod5\2 (2)Int(198.555*100+0.5)/100 (3)123+Mid(“123456”,3,2) (4)123&Mid(“123456”,3,2) (5)Ucase(Mid(“123456”,3,4)) 2、设计图2-1所示的窗体Form1，其标题为“Print方法”。运行时，自动在窗体上显示图2-1所示的图形。 图2-1 运行界面 【提示】 (1)将窗体的Caption属性设置为“Print方法”，AutoRedraw属性设置 为Ture。 (2)在Form-Load()事件中输入代码，用Print语句及Tad()函数和Spc() 函数实现。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 8 3、请按图2-2所示在窗体Form1上创建一个初始文本为“Visual Basic”的文本框Text1以及两个标题分别为“放大”和“还原”的命令按钮(Command1和Command2)。运行时，单击“放大”按钮，将文本框中显示的字符串放大2倍或3倍(随机数);单击“还原”按钮，则文本框中显示的字符串大小还原。 【提示】 (1)字体缩放使用FontSize属性。 (2)要还原字体大小，必须保存放大前的字体大小，可以使用模块级变量 来保存放大前的字体大小。 (3)放大2倍或3倍可以用随机数:Int(Rnd*2+2)实现 图2-2 运行界面 4、请按图2-3所示在标题为“日期时间函数应用”的窗体Form1上添加两个标题分别为“当前日期”和“当前星期”的标签(Label1和Label2)，两个初始文本为空的文本框(Text1和Text2)，最后添加两个标题分别为“确定”和“退出”的命令按钮(Command1和Command2)。运行时，单击“确定”按钮，则在文本框Text1和Text2中分别显示当前系统日期和当前星期;单击“退出”按钮，则结束程序运行。 图2-3 运行界面 【提示】 使用Date()、Weekday()以WeekdayName()及函数来实现。 5、请按图2-4所示在标题为“计算”的窗体Form1上添加三个标题分别为 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c9 “半径”、“周长”和“面积”的标签(Label1、Label2和Label3)以及以一个标题为空的标签，然后再添加两个初始文本为空的文本框(Text1和Text2)，最后添加两个标题分别为“输入半径”和“计算”的命令按钮(Command1和Command2)。运行时，单击“输入半径”按钮，则出现图2-4所示的输入框，输入半径并按“确定”按钮，则在标签Lr中显示刚才输入的半径;单击“计算”按钮，则计算圆的周长和面积，并分别在Text1和Text2中显示。 【提示】 (1)使用InputBox()及函数实现数据输入，为了使程序正常运行应通过 Val()函数将InputBox()的函数值转换为数值型。 (2)求周长公式为:L=2?R,求面积公式为:S=?R2,其中?可以定义为一 个符号常量，用PI来表示。 图2-4 运行界面 三、实验步骤 1、实验内容1的操作步骤: (1)启动Visual Basic，在“视图”的菜单下单击打开“立即窗口”。 (2)在“立即窗口”下输入: ,16/4-2^5*8/4mod5\2 并按回车; 得出结果:-600 ,Int(198.555*100+0.5)/100 并按回车; 得出结果:198.56 ,123+Mid(“123456”,3,2) 并按回车; 得出结果:157 ,123&Mid(“123456”,3,2) 并按回车; 得出结果:123 34 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 10 ,Ucase(Mid(“abcdefgh”,3,4)) 并按回车。 得出结果:CDEF 2、实验内容2的操作步骤: (1)新建一个“标准EXE”类型的工程。 (2)各控件属性设置如下: 控件名称 属性 属性值 Caption Print方法 Form1 AutoRedraw Ture (3)双击窗体，打开代码窗口，输入如下代码: Private Sub Form_Load() Print Tab(10); "※" ’打印第一行显示内容 Print Tab(10); "※※" ’打印第二行显示内容 Print Tab(10); "※"; Spc(2); "※" ’打印第三行显示内容 Print Tab(10); "※"; Spc(4); "※" ’打印第四行显示内容 Print Tab(10); "※"; Spc(6); "※" ’打印第五行显示内容 "; Spc(8); "※" ’打印第六行显示内容 Print Tab(10); "※ Print Tab(10); "※"; Spc(10); "※" ’打印第七行显示内容 Print Tab(10); "※"; Spc(12); "※" ’打印第八行显示内容 Print Tab(10); "※※※※※※※※※" ’打印第九行显示内容 End Sub (4)单击“文件,保存工程”菜单项，以Pr.frm为窗体文件名和为Pr.vbp为 工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框(Text1)和两个命令按钮(Command1和Command2)。 (2)各控件属性设置如下: 控件名称 属性 属性值 Text1 Text Visual Basic Command1 Caption 放大 Command2 Caption 还原 (3)各控件布局如下: siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c11 (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() f = Int(Rnd * 2 + 2) ’生成随机数2或3 If f = 2 Then Text1.FontSize = 20 ’文本字号放大为初始值的2倍 If f = 3 Then Text1.FontSize = 28 ’文本字号放大为初始值的3倍 End Sub Private Sub Command2_Click() Text1.FontSize = 12 ’还原文本字号为初始值 End Sub Private Sub Form_Load() Text1.Text = "Visual Basic" ’Text1初始文本信息为Visual Basic End Sub (5) 单击“文件,保存工程”菜单项，以Fs.frm为窗体文件名和为Fs.vbp 为工程文件名保存在 VB实验 文件夹中。 4、实验内容4的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、 两个文本框和两个命令按钮。 (2) 各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 日期时间函数应用 Label1 Caption 当前日期 Label2 Caption 当前星期 Text1 Text (空白) Text2 Text (空白) Command1 Caption 确定 Command2 Caption 退出 (3) 各控件布局如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 12 (4) 双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Text1.Text = Date ’获得当前日期 t = Weekday(Date) ’获得当前星期 Text2.Text = WeekdayName(t) End Sub Private Sub Command2_Click() End ’退出程序 End Sub (5) 单击“文件,保存工程”菜单项，以Dwq.frm为窗体文件名和为Dwq.vbp 为工程文件名保存在 VB实验 文件夹中。 5、实验内容5的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、 两个文本框和两个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 计算 Label1 Caption 半径 Label2 Caption 周长 Label3 Caption 面积 Label4 Caption (空白) Text1 Text (空白) Text2 Text (空白) Command1 Caption 输入半径 Command2 Caption 计算 (3)各控件布局如下: siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c13 (4)双击窗体，打开代码窗口，输入如下代码: Dim StrName As String * 30 ’定义变量 Dim radius As String Dim leng As Double Dim area As Double Private Sub Command1_Click() radius = Val(InputBox$("请输入圆的半径", "圆半径", "3", 100, 100) ’弹出input窗口，输入圆半径 Label4.Caption = radius End Sub Private Sub Command2_Click() leng = 2 * 3.14 * radius ’计算圆周长 area = 3.14 * radius * radius ’计算圆面积 Text1.Text = leng ’显示结果 Text2.Text = area End Sub (5) 单击“文件,保存工程”菜单项，以Rc.frm为窗体文件名和为Rc.vbp 为工程文件名保存在 VB实验 文件夹中。 四、实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 前四题都没有出现问题，最后一题出现在的问题比较严重，就是inputBox的窗口没有，经过与同学的讨论，解决了问题。 六、总结 1、掌握了内部程序函数和立即窗口的使用以及inputBox的使用; 2、掌握了表达式、赋值语句的正确书写方式; 3、通过和同学的讨论，加深了我对inputBox使用的理解，使我的操作能力 有了进一步的提高。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 14 福建农林大学食品科学学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号: 宝玲楼304_计算机号: 01 实验时间: 2012.3.19 指导教师签字: 黄红兵 成绩: 实验三 选择结构程序设计 一、实验目的 1、掌握逻辑表达式的正确书写形式。 2、掌握If语句的使用。 3、掌握情况语句的使用，以及情况语句与多分支条件语句区别。 二、实验内容 1、请按图3-1所示在窗体上Form1上添加两个标题分别为“行李重量”和“应付款”的标签(Label1和Label2)，再添加两个初始文本为空的文本框(Text1和Text2)以及两个标题分别为“计算”和“清除”的命令按钮(Command1和Command2)。运行时，在Text1中输入行李的重量，单击“计算”按钮，计算应付的行李费(行李费的收费标准是50kg以内(包括50kg)0.20元/kg，超过部分0.50元/kg)，并在Text2中显示计算结果;单击“清除”按钮，将文本框Text1和Text2中文本清空。 图3-1 运行界面 【提示】 (1)既可以用单分支结构实现，也可以用多分支结构实现。 (2)将行李重量是否大于50作为If语句的条件。 2、请按图3-2所示在窗体Form1上添加两个标题分别为“百分制”和“五分制”的标签(Label1和Label2)，再添加两个初始文本为空的文本框(Text1和Text2)以及两个标题分别为“鉴定”和“退出”的命令按钮(Command1和Command2)。运行时，在Text1中输入百分制的成绩，单击“鉴定” 按钮，将百分制成绩转化为五分制，并在Text2中显示结果;单击“退出” 按钮，则结束 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c15 程序运行。 【提示】 (1)既可以用多分支结构实现，也可以用情况语句Select Case实现。 (2)百分制成绩转化为五分制规则:90,100分为优秀;80,89分为良好;70, 79分为中等;60,69分为及格;60以下为不及格。 图3-2 运行界面 3、请按图3-3所示在标题为“成绩查询”的窗体Form1上添加两个标题分别为“请输入您的成绩:” 和“总分” 的标签(Label1和Label2)以及一个标题为空的的标签Label3，然后再添加三个初始文本为空的文本框(Text1、Text2和Text3)，最后添加一个标题为“请查询”的命令按钮Command1。运行时，在文本框Text1、Text2和Text3中输入成绩，单击“请查询”按钮，根据输入的成绩，通过输出对话框显示奖励情况。奖励条件如下:三门总分不低于270分(含270分)为特等奖;三门总分在240分(含240分),270分(不含270分)之间为优秀奖;总分低于240分，但某一单科成绩不低于95分为特别奖。 图3-3 运行界面 【提示】 (1)可以用多分支结构If„Then„ElseIf语句实现。 (2)可以定义四个整型变量，分别存储三科成绩和总成绩。 (3)用MsgBox语句显示奖励情况，如:MsgBox”您获得特等奖”，48，”获 奖通知”。 4、请在标题为“简易计算器”的窗体Form1上添加五个标题分别为“操作数1”、“操作符” 、“ 操作数2” 、“计算结果”和“=”的标签(Label1、Label2、 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 16 Label3、Label4和Label5)，然后再添加四个初始文本为空的文本框(Text1、Text2、Text3和Text4)，最后添加两个标题分别为“计算”和“结束”的命令按钮(Command1和Command2)。运行后，在文本框Text1和Text13输入两个操作数，在文本框Text2输入操作符，单击“计算”按钮，则根据操作符对操作数1和操作数2进行+,×和?四种运算，并将计算结果显示在文本框Text4中，而且具有基本的数据合法性和运算符合法性检验报错能力;单击“结束” 按钮，则结束程序运行。 图3-3 运行界面 【提示】 (1)可以用情况语句Select Case实现。 (2)为了使程序运行正确，存放操作符的文本框Text2，应使用Trim() 函数，去掉运算符两边的空格，而且需要对非加、减、乘和除的运算 符采用MsgBox进行报错提示。 (3)除法运算要检查分母是否为零。 三、实验步骤 1、实验内容1的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、 两个文本框和两个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Label1 Caption 行李重量 Label2 Caption 应付款 Text1 Text (空白) Text2 Text (空白) Command1 Caption 计算 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c17 Command2 Caption 清除 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim WEIGHT As Single ’定义变量 Dim PAY As Single WEIGHT = Val(Text1.Text) PAY = Val(Text2.Text) If WEIGHT <= 50 Then ’当行李重量<=50时，计算费用 PAY = WEIGHT * 0.2 If WEIGHT > 50 Then ’当行李重量>50时，计算费用 PAY = 50 * 0.2 + (WEIGHT - 50) * 0.5 Text1.Text = (WEIGHT) ’在Text1.Text输入重量信息 Text2.Text = (PAY) ’在Text2.Text显示结果 End Sub Private Sub Command2_Click() Text1.Text = "" ’清除text1和text2中的数据 Text2.Text = "" End Sub (5) 单击“文件,保存工程”菜单项，以Wp.frm为窗体文件名和为Wp.vbp 为工程文件名保存在 VB实验 文件夹中。 2、实验内容2的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、 两个文本框和两个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Label1 Caption 百分制 Label2 Caption 五分制 Text1 Text (空白) Text2 Text (空白) accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 18 Command1 Caption 鉴定 Command2 Caption 退出 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim A% ’定义变量A为整型 A = Val(Text1.Text) Select Case A ’选择事件 Case 90 To 100 ’表示表达式的值在90-100之间 Text2.Text = "优秀" ’ Text2中显示“优秀” Case 80 To 89 ’表示表达式的值在80-89之间 Text2.Text = "良好" ’ Text2中显示“良好” Case 70 To 79 ’表示表达式的值在70-79之间 Text2.Text = "中等" ’ Text2中显示“中等” Case 60 To 69 ’表示表达式的值在60-69之间 Text2.Text = "及格" ’ Text2中显示“及格” Case Is < 60 ’表示表达式的值<60 Text2.Text = "不及格" ’ Text2中显示“不及格” End Select End Sub Private Sub Command2_Click() End ’结束程序 End Sub (5) 单击“文件,保存工程”菜单项，以Sc.frm为窗体文件名和为Sc.vbp 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、 三个文本框和一个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 成绩查询 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c19 Label1 Caption 请输入您的成绩 Label2 Caption 总分 Label3 Caption (空白) Text1 Text (空白) Text2 Text (空白) Text3 Caption (空白) Command1 Caption 请查询 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim A%, B%, C%, D% ’定义变量 A = Val(Text1.Text) ’三项成绩 B = Val(Text2.Text) C = Val(Text3.Text) D = A + B + C ’总分计算 Label3.Caption = D If D >= 270 Then ’如果总分>=270，则弹出MsgBox窗口“您获得了特等奖” Label3 = MsgBox("您获得了特等奖", 48, "获奖通知") ElseIf D >= 240 And D < 270 Then ’如果总分在240-270，则弹出MsgBox窗口“您获得了优秀奖” Label3 = MsgBox("您获得了优秀奖", 48, "获奖通知") ElseIf A >= 95 And B >= 95 And C >= 95 Then ’如果任意一科成绩>=90，则弹出MsgBox窗口“您获得了特别奖” Label3 = MsgBox("您获得了特别奖", 48, "获奖通知") End If End Sub (5) 单击“文件,保存工程”菜单项，以Gc.frm为窗体文件名和为Gc.vbp 为工程文件名保存在 VB实验 文件夹中。 4、实验内容4的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加五个标签、 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 20 四个文本框和两个个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 简易计算器 Label1 Caption 操作数1 Label2 Caption 操作符 Label3 Caption 操作数2 Label4 Caption 计算结果 Label5 Caption = Text1 Text (空白) Text2 Text (空白) Text3 Text (空白) Text4 Text (空白) Command1 Caption 计算 Command2 Caption 结束 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim A%, B%, C% ’定义变量 A = Val(Text1.Text) ’操作数1 B = Val(Text3.Text) ’操作符 C = Val(Text4.Text) ’操作数2 M = Trim(Text2.Text) Select Case M Case "+" ’当操作符为“+”时，使用加法计算结果 C = A + B Case "-" ’当操作符为“-”时，使用减法计算结果 C = A - B siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c21 Case "*" ’当操作符为“*”时，使用乘法计算结果 C = A * B Case "/" ’当操作符为“/”时，使用除法计算结果 If B = 0 Then ’当除数为零时，弹出MsgBox窗口，停止消息 Text4.Text = MsgBox("除数为零,出错!", 5 + 16, "停止消息") Else: C = A / B ’当除数不为零时，进行除法运算 End If Case Else’当Text2.Text中不为操作符时，弹出MsgBox窗口，停止消息 Label4 = MsgBox("运算符出错，再输入", 5 + 16, "停止消息") End Select Text4.Text = C ’在Text4.Text中显示结果 End Sub Private Sub Command2_Click() End ’退出程序 End Sub (5) 单击“文件,保存工程”菜单项，以Jyc.frm为窗体文件名和为Jyc.vbp 为工程文件名保存在 VB实验 文件夹中。 四、 实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 四个实验都能按照书本中的要求得出相应的结果，结果都正确。 六、总结 1、能正确书写逻辑表达式的形式; 2、掌握了If语句、情况语句的使用，了解了情况语句与多分支语句的区别。 3、熟悉掌握了MsgBox的使用，能与同学交流学习成果。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 22 福建农林大学食品科学学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号:宝玲楼304_计算机号01 实验时间: 2012.3.26 指导教师签字: 黄红兵 成绩: 实验四 循环结构程序设计 一、 实验目的 1、 掌握For语句的使用。 2、 掌握Do语句的各种形式的使用。 3、 掌握如何控制循环条件，防止死循环或不循环。 二、 实验内容 1、设计如图4-1所示的窗体Form1上添加一个标题为“请输入N的值”的标签Label1和一个标题为“N=”的命令按钮Cammand1，以及两个初始文本为空的文本框(Text1和Text2)。运行时，在Text1中输入一个自然数，单击“N=”按钮，求出该自然数的阶乘，并在Text2中显示。 图4-1 运行界面 【提示】 (1)n!=1×2×???×(n-1)×n (2)可以用For语句来实现，及Fori=1 To n 2、请按图4-2在标题为“最大公约数求解”的窗体Form1上添加三个标题分别为“整数M”、“整数N”、“最大公约数”的标签(Label1、Label2和Label3)，以及三个初始文本为空的文本框(Text1、Text2和Text3)，再添加一个标题为“求解”的命令按钮Cammand1。运行时，在Text1和Text2中输入两个正整数，单击“求解”按钮，求出这两个整数的最大公约数，并在Text3中显示。 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c23 图4-2 运行界面 【提示】 可以采用辗转相除法，用Do语句实现 3、请按图4-3在标题为“问题求解”的窗体Form1上添加一个标题为“求值”的命令按钮Command1，以及一个标签为空、带有单边框的标签Label1。运行后，击“求值”按钮，计算公式S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+???值，直到第i项的值小于10-4为止，并将计算结果显示在标签Label1中。 图4-3 运行界面 【提示】 (1)找出规律，第i项的分母是前一项分母加上有分母项开始的项目数。 (2)可以用Do语句实现，当某项达到规定的精度时退出循环。 三、 实验步骤 1、实验内容1的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个标签、 两个文本框和一个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Label1 Caption 请输入N的值 Text Text (空白) Text Text (空白) Command1 Caption N!= (3)各控件布局如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 24 (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim n%, i%, s# ’定义变量 n = CInt(Text1.Text) ’对n取值 s = 1 ’s初始值为1 For i = 1 To n s = s * i ’计算s Next i Text2.Text = s ’显示结果 End Sub (5) 单击“文件,保存工程”菜单项，以Jc.frm为窗体文件名和为Jc.vbp 为工程文件名保存在 VB实验 文件夹中。 2、实验内容2的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、 三个文本框和一个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 最大公约数求解 Label Caption 整数M Label Caption 整数N Label Caption 最大公约数 Text Text (空白) Text Text (空白) Text Text (空白) Command1 Caption 求解 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim m%, n%, x%, y% ’定义变量 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c25 m = Val(Text1.Text) n = Val(Text2.Text) If m > n Then ’当m>n时，m赋值给x，n赋值给y x = m: y = n Else x = n: y = m ’当n>m时，n赋值给x，m赋值给y End If r = x Mod y ’计算最大公约数 Do While r <> 0 x = y: y = r r = x Mod y Loop Text3.Text = Str(y) ’显示结果 End Sub (5) 单击“文件,保存工程”菜单项，以分Gd.frm为窗体文件名和为Gd.vbp 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个标签和一个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 问题求解 Label1 Caption (空白) BorderStyle 1-Fixed Single Command1 Caption 求值 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim Count%, Sum#, i#, f% ’定义变量 Count = 0 ’初始计数值为0 Sum = 1 ’初始和为1 i = 1 f = 1 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 26 Do While i >= 0.0001 ’开始循环操作，直至 Count = Count + 1 ’计数加1 i = 1 / (f + Count) ’计算i Sum = Sum + i ’累加 f = f + Count Loop Label1.Caption = Sum ’显示结果 End Sub (6) 单击“文件,保存工程”菜单项，以分Gsq.frm为窗体文件名和为Gsq.vbp 为工程文件名保存在 VB实验 文件夹中。 四、实验环境 1、硬件:PC机 2、软件:Windows操作系统、Visual Basic 6.0 五、实验结果 三个实验都能按照书本的要求做出相应的结果，解第三题时遇到了一点 小麻烦，通过与同学的交流，解决了问题，加深了理解。 六、总结 1、 通过本次的实验，掌握了For语句和Do语句的使用，掌握了控制循 环的条件。 2、 通过实际的上机操作，巩固了理论知识，加深了对循环结构程序设计 的理解 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c27 福建农林大学计算机与信息学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号__宝玲楼304__计算机号 01 实验时间: 2012.4.2 指导教师签字: 黄红兵 成绩: 报告退发(订正、重做) 实验五 数组 一、 实验目的 1(掌握数组的声明以及数组元素的引用。 2(掌握静态数组和动态数组的使用差别。 3(掌握与数组有关的常用算法。 二、 实验内容 1、请按图5-1所示在标题为“最值求解”的窗体Form1上添加两个标题分别为“最大值”和“最小值”标签(Label1和Label2)，两个初始文本为空的文本框(Text1和Text2),以及一个标题为“确定”的命令按钮Command1。运行时，单击“确定”按钮，将生成10个10~99之间的随机整数并存储在数组a(1~10)中，求出这10个整数的最大值和最小值，并在Text1和Text2中显示结果。 图5-1 运行界面 【提示】 求最大值和最小值的算法，请参照例4.2。 2、请按图5-2所示在标题为“排序算法”的窗体Form1上添加一个标题为“排序”的命令按钮Command1。运行时，单击“排序”按钮，将生成10个1~100之间的随机整数存储在数组a(1~10)中，并用Print方法将数组中数据在窗体上输出，然后将这10个整数按从小到大的进行排序并在窗体上输出。 【提示】 (1)既可以采用选择法也可以采用冒泡法来实现排序，请参考4-9和4-10。 (2)利用Tab或Spc()函数控制数组元素输出。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 28 图5-2 运行界面 3、请按图10-22所示在窗体Form1上添加一个标题为“N=”的标签Label1、一个标题为“S=”的命令按钮Command1以及两个初始文本为空的文本框(Text1和Text2)。运行时，在Text1中输入一个大于1的自然数，单击“S=”按钮，计算N项Fibonacci数列(1,1,2,3,5,8，???)存储于动态数组Fib()中，然后计算前N项的和，并将计算结果显示在Text2中。 【提示】 (1)Fibonacci数列的公式为fib(n)=fib(n-1)+fib(n-2)。 (2)定义一个动态数组Fib(),在使用时调用ReDim Fib(n)语句，请参考例4-7. 4、请按图10-23所示在标题为“矩阵元素求和”的窗体Form1上添加两个标题分别为“5×6矩阵:”和“元素和:”的标签(Label1和Label2)，然后再添加一个文本框Text1，其初始文本内容为空，可以显示多行文本，且有一个垂直滚动条;接着添加两个标题分别为“随机数”和“求和”的命令按钮(Command1和Command2)，最后添加一个标题为空，带有单边框的标签Label3。运行时，单击“随机数”按钮，自动生成30个10~99之间的随机整数，赋值给二维数组的每个元素，并在文本框Text1中显示;单击“求和”按钮，计算二维数组所有元素的和，并在标签Label4中显示计算结果。 【提示】 (1)定义一个二维数组Dim a(1~5,1~6)。 (2)用循环嵌套求所有元素的和，请参考例4.5和例4.6。 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c29 图5-4 运行界面 三、实验步骤 1、实验内容1的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个标签， 两个文本框和一个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 最值求解 Label1 Caption 最大值 Label2 Caption 最小值 Text1 Text (空白) Text2 Text (空白) Command1 Caption 确定 (3)各控件的布局如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 30 (4)双击窗体，打开代码窗口，输入如下代码: Dim a(1 To 10) As Integer '定义模块级数组a，包含10个数 Private Sub Command1_Click() Dim i As Integer '定义循环变量 Randomize Text1.Text = "" Text2.Text = "" For i = 1 To 10 '生成10个随机数 a(i) = Int(Rnd * 100) + 1 Text1.Text = Text1.Text & a(i) & Space(2) Next i Sum = a(1) '变量Sum初始值为数组中第1个元素 Max = a(1) '变量Max初始值为数组中第1个元素 Min = a(1) '变量Min初始值为数组中第1个元素 For i = 2 To 10 Sum = Sum + a(i) '累加求和 If a(i) > Max Then '不是当前最大替换Max Max = a(i) End If If a(i) < Min Then '不是当前最小替换Min Min = a(i) End If Next i 显示最大值 Text1.Text = Str(Max) ' Text2.Text = Str(Min) '显示最大值 End Sub (5) 单击“文件,保存工程”菜单项，以Mi.frm为窗体文件名和为Mi.vbp 为工程文件名保存在 VB实验 文件夹中。 2、实验内容2的操作步骤: (1) 新建一个“标准EXE”类型的工程，在窗体Form1上添加一个命令按钮。 (2) 各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 排序算法 AutoRedraw Ture Command1 Caption 排序 (3)各控件的布局如下: siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c31 (4)双击窗体，打开代码窗口，输入如下代码: Dim a(1 To 10) As Integer '定义随机数组 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer '定义循环变量 Print "生成的10个整数为:" Randomize For i = 1 To 10 '生成10个随机数 a(i) = Int(Rnd * 100) + 1 Print a(i) & Space(4); ’显示产生的随机数 Next i Print Print "排序后的结果为:" For i = 9 To 1 Step -1 '每次循环从剩余的数进行 For j = 1 To i If a(j) > a(j + 1) Then '如果前面的数大于后面的数，则进行交换 k = a(j) a(j) = a(j + 1) a(j + 1) = k End If Next j Next i For i = 1 To 10 '排序结果输出 Print a(i) & Space(4); Next i End Sub (5) 单击“文件,保存工程”菜单项，以St.frm为窗体文件名和为St.vbp 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1) 新建一个“标准EXE”类型的工程，在窗体Form1上添加一个标签，两个 文本框和一个命令按钮。 (2) 各控件属性设置如下: 控件名称 属性 属性值 Label1 Caption N= accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 32 Text1 Text (空白) Text Text (空白) Command1 Caption S= (3)各控件的布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim fib() As Long '定义一个动态数组fib()为长整型 Dim n As Integer '变量n表示前n项 n = CInt(Text1.Text) If n >= 2 Then ReDim fib(1 To n) '定义数组的大小 fib(1) = 1 fib(2) = 1 Sum = 2 For i = 3 To n fib(i) = fib(i - 1) + fib(i - 2) '计算Fibonacci数列各值 Sum = Sum + fib(i) 'Fibonacci数列求和 Next i End If Text2.Text = Sum '在Text2显示前n项和 End Sub (5) 单击“文件,保存工程”菜单项，以Fib.frm为窗体文件名和为Fib.vbp 为工程文件名保存在 VB实验 文件夹中。 4、实验内容4的操作步骤: (1) 新建一个“标准EXE”类型的工程，在窗体Form1上添加三个标签，一个 文本框和两个命令按钮。 (2) 各控件属性设置如下: 控件名称 属性 属性值 Label1 Caption 5×6矩阵: Label2 Caption 元素和 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c33 Caption (空白) Label3 BorderStyle 1-Opaque Text (空白) Text1 MultiLine Ture ScrollBars 2-Vertical Command1 Caption 随机数 Command2 Caption 求和 (3)各控件的布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Dim a(1 To 5, 1 To 6) As Integer '定义一个二维数组a Private Sub Command1_Click() Dim i As Integer '定义循环变量i,j Dim j As Integer Text1.Text = "" For i = 1 To 5 '使用两重循环生成矩阵各个元素的值 For j = 1 To 6 a(i, j) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & a(i, j) & Space(2) '显示二维数组 Next j Text1.Text = Text1.Text & vbCrLf Next i End Sub Private Sub Command2_Click() Dim restul As Integer restul = 0 For i = 1 To 5 For j = 1 To 6 restul = restul + a(i, j) '对二维数组求和 Next j accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 34 Next i Label3.Caption = Str(restul) '显示二维数组之和 End Sub (5) 单击“文件,保存工程”菜单项，以Fib.frm为窗体文件名和为Fib.vbp 为工程文件名保存在 VB实验 文件夹中。 四、实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 本次实验较好的完成了前两题，第三题对Print方法的使用有些生疏，最后一题矩阵求和的步骤不太了解，后来经过参考书本例题，解决了出现的问题。 六、总结 1、掌握了数组的声明、数组元素的引用以及了解了静态数组和动态数组的 区别; 2、巩固了Print方法的使用，掌握了fib()函数的计算; 3、通过参考例题以及和同学的讨论，加深了我对数组使用的理解，使我的 操作能力有了进一步的提高。 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c35 福建农林大学计算机与信息学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号_ 宝玲楼304_ 计算机号 01 实验时间: 2012.4.9 指导教师签字: 黄红兵 成绩: 报告退发(订正、重做) 实验六 过程 一、 实验目的 1、 掌握Sub过程和Function过程的定义和调用方法。 2、 掌握形参和实参的对应关系。 3、 掌握值传递和地址传递的传递方式。 4、 掌握递归的概念和使用方法。 二、 实验内容 1、请按图6-1所示在标题为“函数调用”的窗体Form1上添加一个“求解”的命令按钮Command1和一个初始文本为空的文本框Text1。编写一个求n～的函数过程fac，运行时，单击“求解”按钮，则调用fac()函数来计算7!+11!-10!的值，并将结果显示在Text1中。 【提示】 求n～的函数fac定义如下: Function fac&(n%) Dim i% fac=1 For i=1 To n fac= fac * i Next i End Function 2、请按图6-2所示在标题为“过程调用”的窗体Form1上添加一个“计算”的命令按钮Command1和一个初始文本为空的文本框Text1。编写一个求n～的子过程jch，运行时，单击“计算”按钮，则调用jch子过程来计算7!+11!-10!的值，并将结果显示在Text1中。 【提示】 求n～的子过程jch定义如下: Sub jch(n%，p&) Dim i% p =1 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 36 For i=1 To n p = p * i Next i End Function 图6-1 运行界面 图6-2 运行界面 3、请按图6-3所示在窗体Form1上添加两个标题分别为“参数x”和“参数n”的标签(Label1和Label2)，三个初始文本为空的文本框(Text1、Text2和Text3)以及一个标题为“计算”的命令按钮Command1。编写一个函数fc(x As Integer, n As Integer) As Single，计算1+x+x2+„xn的值。运行时，在本框Text1中输入x的值，在本框Text2输入n的值，单击“计算”按钮，则调用该函数计算上面的公式，将计算结果显示在文本框Text3中。要求以Fd.frm窗体文件名、Fd.vbp为工程文件名保存在文件夹中。 【提示】 公式1+x+x2+„xn可以用以下语句实现: For i=0 To n a = a+x^i Next i 图6-3 运行界面 4、在标题为“最小公倍数求解”的窗体Form1上添加三个标题分别为“整数M”、“整数N”和“最小公倍数”的标签(Label1、Label2、 Label3)，以及三个初始文本为空的文本框(Text1、 Text2 、Text3)，再画一个标题为“求解”的命令按钮Command1。要求编写一个求最大公约数函数Gcd(ByVal m%，ByVal n%) As Integer,运行时，在Text1和 Text2中输入两个正整数，单击“求解”按钮， siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c37 使用函数()Gcd求出这两个整数的最小公倍数，并在Text3中显示。 图6-4 运行界面 【提示】 (1)最大公约数算法，请参考例3.24，本题要求定义一个函数过程来实现，并注意值传递和地址传递的区别。 (2)最小公倍数=(nxm)/最大公约数。 三、实验步骤 1、实验内容1的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框(Text1)和一个命令按钮(Command1)。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 函数调用 Text1 Text (空白) Command1 Caption 求解 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Function Fac&(N%) '定义求n～的函数Fac()的过程 Dim i% '定义变量i为整型 Fac = 1 ’fac()函数求解过程 For i = 1 To N Fac = Fac * i Next i End Function accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 38 Private Sub Command1_Click() Text1.Text = Fac(7)+Fac(11)-Fac(10)'用fac()函数计算7+11-10～的值 End Sub (5) 单击“文件,保存工程”菜单项，以Jf.frm为窗体文件名和为Jf.vbp 为工程文件名保存在 VB实验 文件夹中。 2、实验内容2的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框(Text1)和一个命令按钮(Command1)。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 过程调用 Text1 Text (空白) Command1 Caption 计算 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Jch(n%, p&) '定义求n～的子过程jch()函数过程 Dim i% p = 1 ’jch()函数求解过程 For i = 1 To n p = p * i Next i End Sub Private Sub Command1_Click() Dim a&, b&, c&, d& Call Jch(7, a) '调用jch()函数过程计算7～ Call Jch(11, b) '调用jch()函数过程计算11～ Call Jch(10, c) '调用jch()函数过程计算10～ d = a + b - c '计算7～+11～-10～ Text1.Text = d End Sub (5) 单击“文件,保存工程”菜单项，以Jf.frm为窗体文件名和为Jf.vbp siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c39 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、三个文本框和一个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Label1 Caption 参数x Label2 Caption 参数n Text1 Text (空白) Text2 Text (空白) Text3 Text (空白) Command1 Caption 计算 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Function fc(x As Integer, n As Integer) As Single '定义函数fc()的计算过程 For i = 0 To n ’函数fc()的求解过程 a = a + x ^ i Next i fc = a End Function Private Sub Command1_Click() Dim x As Integer '定义变量x，n为整型 Dim n As Integer x = Val(Text1.Text) n = Val(Text2.Text) Text3.Text = fc(x, n) '显示计算结果 End Sub (5) 单击“文件,保存工程”菜单项，以Sd.frm为窗体文件名和为Sd.vbp 为工程文件名保存在 VB实验 文件夹中。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 40 4、实验内容4的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、三个文本框和一个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 最小公倍数求解 Label1 Caption 整数M Label2 Caption 整数N Label3 Caption 最小公倍数 Text1 Text (空白) Text2 Text (空白) Text3 Text (空白) Command1 Caption 求解 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Function gcd(ByVal m%, ByVal n%) As Integer Dim r%, x%, y% ’定义变量 If m > n Then x = m: y = n '保证x>y Else x = n: y = m End If r = x Mod y Do While r <> 0 '计算最大公约数 x = y: y = r r = x Mod y Loop Text3.Text = Str(m * n / y) '计算最大公倍数 gcd = m * n / y End Function siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c41 Private Sub Command1_Click() m = Val(Text1.Text) ’在Text1输入整数M n = Val(Text2.Text) ’在Text2输入整数N Text3.Text = gcd(m, n) '显示最大公倍数 End Sub (5) 单击“文件,保存工程”菜单项，以Sd.frm为窗体文件名和为Sd.vbp 为工程文件名保存在 VB实验 文件夹中。 四、实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 都能按照书本的要求得出结果，较好的完成了本次实验。 六、总结 1、掌握了Sub过程和Function过程的定义和调用方法; 2、了解了fac()函数和jch()函数的使用; accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 42 福建农林大学计算机与信息学院实验报告 学院:食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号_ 宝玲楼304__ 计算机号 01 实验时间: 2012.4.16 指导教师签字: 黄红兵 成绩: 报告退发(订正、重做) 实验七 窗体和常用控件(一) 一、 实验目的 1、掌握窗体、标签、文本框及命令按钮的常用属性、事件和方法。 2、掌握框架、单选按钮和复选框、列表框和组合框、滚动条的常用属性、事件 和方法。 二、 实验内容 1、请按图7-1在标题为“登陆”的窗体Form1上画二个标题分别为“账号”和“密码”的标签(luser和Lpassw);再画两个初始文本分别为“fjau”和“123456”的文本框(Tuser和Tpassw),设置文本框Tpassw的相关属性，使在其中输入的任何字符都以“*”显示，且最长只能输入6个字符;最后再画两个标题分别为“确定”和“取消”的命令按钮(Command1和Command2)，其中“确定”按钮默认按钮，“取消”按钮为默认取消按钮。 图7-1 运行界面 2、 请按图7-2在标题为“复选框应用”的窗体Form1上画一个初始文本为“复选文本框举例”的文本框Text1以及两个标题分别为“粗体”和“斜体”复选框(Check1和Check2)，其中Text1的字体为“宋体”，字号为“20”。运行时，如果选中“粗体”则文本框Text1中的文本加粗，否则不加粗;如果选中”斜体”，则文本框Text1中的文本字形为斜体，否则就不是斜体。要求以Chs.frm为窗体文件名和Chs.vbp为工程文件名保存在D:\01\2303007文件夹中。 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c43 图7-2 运行界面 3、请按图7-3在标题为”简单文字处理”的窗体Form1上画一个文本框Text1和一个标题为”编辑操作”的框架Frame1，并在Frame1画三个标题分别为“复制”、“剪切”和“粘贴”的单选按钮(Option1、Option2和Option3)，Text1可以显示多行文本，且有一个垂直滚动条，其文本内容不限。运行时，选择某个单选按钮能够实现相应的编辑功能。 图7-3 运行界面 4、请按图7-4在标题为“兴趣爱好”的窗体Form1上画一个组合框Combo1和一个列表框List1，其中Combo1的工具提示信息为“兴趣爱好选择”。运行时，组合框自动添加“音乐”、“美术”、“体育”、“游泳”和“上网”5项内容，选中组合框中的某一项，将弹出对话框加以说明(如图7-4所示)，并将选中项的内容添加到列表框中;双击列表框List1中某一项，则将该列表项从列表中删除。要求以CL.frm为窗体文件名和CL.vbp为工程文件名保存在D:\01\2303007文件夹中。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 44 图7-4 运行界面 5、请按图7-5在标题为“滚动条设置”的窗体Form1上画三个标题分别为“左端”、“居中”和“右端”的命令按钮(C1、C2和C3)，在画一个水平滚动条HS1，并设置其最小值为0，最大值为100。运行时，单击“左端”按钮，则滑块位于滚动条的最左端;单击“居中”按钮，则滑块位于滚动条的中间;单击“右端”按钮，则滑块位于滚动条的左右端。 图7-5 运行界面 三、 实验步骤 1、实验内容1的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、两个文本框和两个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 登录 Label1 Caption 帐号 Label2 Caption 密码 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c45 Text1 Text (空白) Text (空白) Text2 PasswordChar * Caption 确定 Command1 Default Ture Caption 取消 Command2 Cancel Ture (3)各控件布局如下: (4)单击“文件,保存工程”菜单项，以Up.frm为窗体文件名和为Up.vbp为 工程文件名保存在 VB实验 文件夹中。 2、实验内容2的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框和两个复选框。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 复选框应用举例 Text 复选框举例 Text1 FontName 宋体 FontSize 常规 Check1 Caption 粗体 Check2 Caption 斜体 (3)各控件布局如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 46 (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Check1_Click() If Check1.Value = 1 Then ’如果选中Check1，则文本变为粗体 Text1.FontBold = True ElseIf Check1.Value = 0 Then ’如果未选中Check1，则文本不为粗体 Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then ’如果选中Check2，则文本变为斜体 Text1.FontItalic = True ElseIf Check2.Value = 0 Then ’如果未选中Check2，则文本变为斜体 Text1.FontItalic = False End If End Sub (5) 单击“文件,保存工程”菜单项，以Chs.frm为窗体文件名和为Chs.vbp 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框，一个框架和三个单选按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 简单文字处理 MultiLine Ture Text1 ScrollBars 2-Vertical Frame11 Caption 编辑操作 Option1 Caption 复制 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c47 Option2 Caption 剪切 Option3 Caption 粘帖 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Dim s As String '定义一个存储复制或剪贴文本的变量S Private Sub Option1_Click() s = Text1.SelText '将文本框中选择的文本放在中间变量中 End Sub Private Sub Option2_Click() s = Text1.SelText '将文本框中选择的文本放在中间变量中 Text1.SelText = "" '删除在文本框中选择的文本 's1 = Replace(Text1.Text, s, "") 'Text1.Text = s1 End Sub Private Sub Option3_Click() Text1.SelText = s '将中间变量中的文本添加到文本框当前位置 End Sub (5) 单击“文件,保存工程”菜单项，以Tc.frm为窗体文件名和为Tc.vbp 为工程文件名保存在 VB实验 文件夹中。 4、实验内容4的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个组合框和一个列表框。 (2)各控件属性设置如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 48 控件名称 属性 属性值 Form1 Caption 兴趣爱好 Text (空白) Combo1 ToolTipText 兴趣爱好选择 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Form_Load() Combo1.AddItem "音乐", 0’定义指定事件属性值 Combo1.AddItem "美术", 1 Combo1.AddItem "体育", 2 Combo1.AddItem "游泳", 3 Combo1.AddItem "上网", 4 End Sub Private Sub Combo1_Click() Dim i As Integer If Combo1.ListIndex = 0 Then ’选中Combo1中不同选项时，弹出不同的MsgBox窗口 i = MsgBox("我的兴趣爱好是音乐", 0 + 48, "兴趣爱好") ElseIf Combo1.ListIndex = 1 Then i = MsgBox("我的兴趣爱好是美术", 0 + 48, "兴趣爱好") ElseIf Combo1.ListIndex = 2 Then i = MsgBox("我的兴趣爱好是体育", 0 + 48, "兴趣爱好") ElseIf Combo1.ListIndex = 3 Then i = MsgBox("我的兴趣爱好是游泳", 0 + 48, "兴趣爱好") ElseIf Combo1.ListIndex = 4 Then i = MsgBox("我的兴趣爱好是上网", 0 + 48, "兴趣爱好") End If If Combo1.ListIndex = 0 Then ’选中Combo1中不同选项时，List1中显示不同的文本信息 List1.AddItem "音乐" ElseIf Combo1.ListIndex = 1 Then List1.AddItem "美术" siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c49 ElseIf Combo1.ListIndex = 2 Then List1.AddItem "体育" ElseIf Combo1.ListIndex = 3 Then List1.AddItem "游泳" ElseIf Combo1.ListIndex = 4 Then List1.AddItem "上网" End If End Sub Private Sub List1_DblClick() Dim n As Integer For n = (List1.ListCount - 1) To 0 Step -1 If List1.Selected(n) Then List1.RemoveItem n Next End Sub (5) 单击“文件,保存工程”菜单项，以CL.frm为窗体文件名和为CL.vbp 为工程文件名保存在 VB实验 文件夹中。 5、实验内容5的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框，一个框架和三个单选按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 滚动条设置 Min 0 Hs1 Max 100 C1 Caption 左端 C2 Caption 中间 C3 Caption 右端 (3)各控件布局如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 50 (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() HScroll1.Value = HScroll1.Min '水平滚动条处于最小值，即左端 End Sub Private Sub Command2_Click() HScroll1.Value = (HScroll1.Min + HScroll1.Max) / 2 '水平滚动条处于中间值，即中间 End Sub Private Sub Command3_Click() HScroll1.Value = HScroll1.Max '水平滚动条处于最大值，即右端 End Sub (5) 单击“文件,保存工程”菜单项，以Tc.frm为窗体文件名和为Tc.vbp 为工程文件名保存在 VB实验 文件夹中。 四、实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 除第四题外，其他四题都没有出现问题，对组合框和列表框的掌握花了较长的时间。 六、总结 1、掌握了窗体、标签、文本框以及命令按钮的常用属性; 2、掌握了组合框和列表框的基本使用; siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c51 福建农林大学计算机与信息学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号_ 宝玲楼304__ 计算机号 01 实验时间: 2012.4.23 指导教师签字: 黄红兵 成绩: 报告退发(订正、重做) 实验八 常用控件(二) 一、 实验目的 1.掌握计时器和图形控件(图片框、图像框、形状和直线控件)的常用属性、 事件和方法。 2.掌握常用的绘图方法(Line、Circl、Pest) 3.熟悉焦点与Tab顺序、键盘、和鼠标的事件。 4.了解鼠标的拖动与放下相应的属性、事件和方法。 二、 实验内容 1.请按图8-1所示在窗体Form1上添加一个形状控件Shape1以及两个标签分别为“矩形”和“红色”的命令按钮(Command1和Command2)，其中Shape1为圆形，其高和宽分别为900和1500，填充方式为实填充。运行时，单击“矩形”按钮时，Shape1变成矩形;单击“红色”按钮时，Shape1的填充颜色为红色。 图8-1 运行界面 【提示】 设置形状控件的Shape和FillColor属性实现。 2.请按图8-2所示在窗体Form1上添加一个图像框Image1和三个标题分别为“放大图片”、“缩小图片”和“还原图片”的命令按钮(Command1 、Command 2和Command3)，通过属性窗口在Image1中装入D:\01\2303008\bojpg)。运行时，单击“放大图片”按钮，图片放大一倍;单击“缩小图片”按钮，图片缩小一倍;单击“还原图片”按钮，图片恢复到原始尺寸。 【提示】 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 52 (1)设置图像框的Height和Width属性实现放大和缩小图片。 (2)设置图像框Stretch属性实现还原图片大小。 图8-2 运行界面 3.请按图8-3所示在标题为“模拟秒表”的窗体Form1上添加一个计时器Timer1、 一个文本框Text1、一个列表框List1以及三个标题分别为“开始”、“停止” 和“记录”的命令按钮(Command1 、Command 2和Command3)，设置Timer1 的相关属性使其计时的时间间隔为1秒。运行时，单击“开始”按钮，计时 器开始计时，并在文本Text1中显示动态的时间变化;单击“停止”按钮， 停止计时，文本框中的内容不在变化;单击“记录”按钮，讲当前文本框显 示的时间添加到列表框List1中。 图8-3 运行界面 【提示】 用计时器控件实现，请参考例题6.12。 4.请按图8-4所示标题为“画图示例”的窗体Form1上添一个图片框Pictur1 和一个命令按钮控件数组Cmd,该控件数组包含四个标题分别为“直线”、“矩 形”、“圆”和“椭圆”的按钮。运行时，图片框的坐标系统定义为左上角 (20,20)，右下角(120,120);单击“直线”按钮，则清空图片框并采用 绘图方法画一条从左上角到右下角的直线;单击“矩形”按钮，则清空图 片框并采用绘图方法画一个从左上角(40,40)到右下角(100,100)的矩 形;单击“圆”按钮，则清空图片框并采用绘图方法画一个中心为(70,70)， 半径为20的圆;单击“椭圆”按钮，则清空图片框并采用绘图方法画一个 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c53 中心为(70,70)，半径为20，长短轴比为2的椭圆。 图8-4 运行界面 【提示】 (1)通过的方法定义图片框的坐标系。 (2)控件数组的使用，请参考例6.13。 三、实验步骤 1、实验内容1的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个形状控件和两个单选按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Shape 3-Circle Shape1 Height 900 Width 1500 C1 Caption 矩形 C2 Caption 红色 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Shape1.Shape = vbrectangle '改变图形形状为矩形 End Sub Private Sub Command2_Click() accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 54 Shape1.FillColor = vbRed '改变图形颜色为红色 End Sub (5) 单击“文件,保存工程”菜单项，以Tc.frm为窗体文件名和为Tc.vbp 为工程文件名保存在 VB实验 文件夹中。 2、实验内容2的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个图像框和三个命令按钮。。 (2)各控件属性设置如下: 控件名称 属性 属性值 Stretch Ture Image1 Picture F/新建文件夹/abc C1 Caption 放大图片 C2 Caption 缩小图片 C3 Caption 还原图片 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Image1.Stretch = True Image1.Height = Image1.Height * 2 '放大图片的长度 Image1.Width = Image1.Width * 2 '放大图片的宽度 End Sub Private Sub Command2_Click() Image1.Stretch = True Image1.Height = Image1.Height / 2 '缩小图片的长度 Image1.Width = Image1.Width / 2 '缩小图片的宽度 End Sub Private Sub Command3_Click() Image1.Stretch = False '还原图片 End Sub siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c55 (5) 单击“文件,保存工程”菜单项，以Im.frm为窗体文件名和为Im.vbp 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个计时器，一个文本框，一个列表框和三个单选按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 模拟秒表 Text1 Text (空白) Timer1 Interval 1000 C1 Caption 开始 C2 Caption 停止 C3 Caption 记录 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Dim t As Integer '声明模块级变量t Private Sub Form_Load() t = 0 '初始化变量t End Sub Private Sub Command1_Click() Timer1.Enabled = True '启动计时器，开始计时 End Sub Private Sub Command2_Click() Timer1.Enabled = False '关闭计时器，停止计时 End Sub Private Sub Command3_Click() List1.AddItem Text1.Text’关闭计时器时，List1显示的时间在Text1显示 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 56 End Sub Private Sub Timer1_Timer() Dim h As Integer,m As Integer,s As Integer '定义小时，分钟，秒变量 t = t + 1 '累加 s = t Mod 60 '获得秒 m = (t \ 60) Mod 60 '获得分钟 h = t \ 3600 '获得小时 Text1.Text = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") End Sub (5) 单击“文件,保存工程”菜单项，以Nst.frm为窗体文件名和为Nst.vbp 为工程文件名保存在 VB实验 文件夹中。 4、实验内容4的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框，一个框架和三个单选按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Form1 Caption 画图示例 Caption 直线 Cmd(0) Index 0 Caption 矩形 Cmd(1) Index 0 Cmd Caption 圆 Cmd(2) Index 0 Caption 椭圆 Cmd(3) Index 0 (3)各控件布局如下: siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c57 (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Form_Load() Picture1.Scale (20, 20)-(120, 120) '定义图片框的坐标系 End Sub Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 '单击“直线”命令按钮 Picture1.Cls Picture1.Line (20, 20)-(120, 120) Case 1 '单击“矩形”命令按钮 Picture1.Cls Picture1.Line (40, 40)-(100, 100), , B Case 2 '单击“圆”命令按钮 Picture1.Cls Picture1.Circle (70, 70), 20 Case 3 '单击“椭圆”命令按钮 Picture1.Cls Picture1.Circle (70, 70), 20, , , , 2 End Select End Sub (5) 单击“文件,保存工程”菜单项，以Cmd.frm为窗体文件名和为Cmd.vbp 为工程文件名保存在 VB实验 文件夹中。 四、实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 都按照书本的要求得出了相应的结果。 六、总结 通过本例实验我掌握了时间控件和图形的一些设计，通过编写图像的一些事件代码，掌握了它的一些属性，和一些常用方法。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 58 福建农林大学食品科学学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号: 宝玲楼304_计算机号: 01 实验时间: 2012.4.30 指导教师签字: 黄红兵 成绩: 报告退发(订正、重做) 实验九 菜单设计和多文档界面 一、实验目的和要求 1、掌握下拉式菜单和弹出式菜单的设计方法。 2、熟悉菜单编辑器的使用。 3、掌握多文档界面应用程序的设计方法。 4、综合运用常用控件及基本控制结构完成应用程序的设计。 二、实验内容 1、请按图9-1所示在窗体Form1上设计一个菜单和一个图片框Picture1，设置相关的属性使图片能够自动调整以适应其显示图片尺寸;菜单“图片”名称为Mnupic，其包括两个子菜单“显示”和“清空” (MnuShow和MnuDel)。运行时，执行“显示”命令，则在图片框中装入一张图片(D:\01\2303009.bj.jpg);执行“清空”命令，则清除图片框中的图片。 图9-1 运行界面 【提示】 图片的加载和清除用LoadPicture()函数实现。 2、请按图9-2在“菜单演示”窗体Form1上设计一个菜单和一个初始文本为“程序设计”的文本框Text1，该菜单含有“字体”、“字型”和“字号”(名称分别为MnuFn、MnuFx和MnuFs)三个主菜单项，“字体”菜单的访问键设为【F】, “字型” 菜单的访问键设为【Y】，其中“字体”菜单包括“宋体”、“黑体”、“隶书”、分隔线和“退出”五个子菜单(名称分别为MnuSt、MnuHt、MnuLs、Sep和MnuQuit)，“退出”的快捷键为【Ctr+Q】，“字型”菜单包括“粗体”、“斜 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c59 体”和“下划线”三个子菜单(名称为MnuCt、MnuXt、MnuXhx)且都支持复选功能;“字号” 菜单包括“30号”和“12号”子菜单(名称分别为MnuS30、MnuS12),且“字号”菜单设置为不可见。运行时，单机某个菜单，文本框中的字体和字形实现相应的变化;右击文本框，弹出“字号”菜单，并能实现相关的功能。 图9-2 运行界面 【提示】 弹出式菜单用PopupMenu方法实现。 3、请按图9-3所示在标题为“通用对话框应用”的窗体Form1上添加一个标题为“Visual Basic程序设计”、带有单边框的标签Label1;然后再添加两个标题分别为“字体设置”和“颜色设置”的命令按钮(Command1和Command2)，最后添加一个通用对话框CommonDialog1。运行时，单击“字体设置”按钮，弹出“字体”对话框，设置标签的字体类型和字号;单击“颜色设置”按钮，弹出“颜色”对话框，设置标签的前景颜色。 【提示】 (1)调用ShowFont方法或设置Action属性为4实现“字体”对话框。 (2)调用ShowColor方法或设置Action属性为3实现“颜色”对话框。 图9-3 运行界面 4(设计一个图9-4所示的具有多文档界面的程序，由一个标题为“多文档界 面”的父窗体MDIForm1(见图9-4(a))和标题为“文档”的子窗体Form1 (见图9-4(b)(c))组成。在父窗体上设计一个“文件”菜单其功能如表 9-1所示。在子窗体上设计一个图片框Picture1和一个下拉菜单，该菜单 的功能如表9-2所示。运行时，实现菜单相关功能。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 60 (a)父窗体 (b)图片子窗体 (c)绘图子窗体 图9-4 运行界面 表9-1 菜单名称 功能 文件(MnuFile) 顶级菜单 ???新建(MnuNew) 显示窗体 ???退出(MnuExit) 退出应用程序 表9-2 菜单名称 功能 菜单名称 功能 文件(MFile) 顶级菜单 ???(MSep) 分隔条 ???新建(MNew) 新建一个新的子窗体 ???退出(MExit) 退出应用程序 ???打开(MOpen) 在图片框中打开一张图片 图形(MPic) 顶级菜单 ???绘图(MDraw) 在图片框中绘制图形 ???关闭(MClose) 清除图片框中的图片 ???清除(MCls) 清除图片框中绘制的图形++ 三、实验步骤 1、实验内容1的操作步骤: (1) 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个图片 框并建立一个下拉菜单。 (2)各控件属性设置如下: 控件名称 属性 属性值 Picture1 AutoSize Ture MnuPic Caption 图片 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c61 MnuShow Caption 显示 MnuDel Caption 清空 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub MnuShow_Click() Picture1.Picture = LoadPicture(App.Path + "\bj.jpg") '显示图片 End Sub Private Sub MnuDel_Click() Picture1.Picture = LoadPicture() '清除图片 End Sub (5)单击“文件,保存工程”菜单项，以Mp.frm为窗体文件名和为Mp.vbp为工程文件名保存在 VB实验 文件夹中 2、实验内容2的操作步骤: (1)新建“标准EXE”工程，在窗体Form1上面添加一个文本框并建立菜单。 (2)各控件属性设置如下: 控件名称 属性 属性值 控件名称 属性 属性值 Form1 Caption 菜单演示 Caption 粗体 MnuCt Text1 Text 程序设计 Checked MnuFn Caption 字体 Caption 斜体 MnuXt MnuSt Caption 宋体 Checked MnuHt Caption 黑体 Caption 下划线 MnuXht MnuLs Caption 隶书 Checked Sep Caption 分割线 Caption 字号 MnuFs Caption 退出 Visible MnuQuit ShortCut MnuS30 Caption 30号 NbuFx Caption 字型 MnuS12 Caption 12号 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 62 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Form_Load() MnuSt.Checked = False MnuXt.Checked = False MnuXhx.Checked = False End Sub Private Sub MnuSt_Click() '单击字体子菜单“宋体”，Text1中字体变宋体 Text1.FontName = "宋体" End Sub Private Sub MnuHt_Click() '单击字体子菜单“黑体”，Text1中字体变黑体 Text1.FontName = "黑体" End Sub 单击字体子菜单“隶书”，Text1中字体变隶书 Private Sub MnuLs_Click() ' Text1.FontName = "隶书" End Sub Private Sub MnuQuit_Click() '单击字体子菜单“退出”，则退出程序 End End Sub Private Sub MnuCt_Click() '单击字型子菜单“粗体”，Text1中字型变粗体 If MnuCt.Checked = True Then MnuCt.Checked = False Text1.FontBold = False Else MnuCt.Checked = True Text1.FontBold = True End If End Sub Private Sub MnuXt_Click() '单击字型子菜单“斜体”，Text1中字型变斜体 If MnuXt.Checked = True Then MnuXt.Checked = False siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c63 Text1.FontItalic = False Else MnuXt.Checked = True Text1.FontItalic = True End If End Sub Private Sub MnuXhx_Click() '单击字型子菜单“下划线”，Text1中文本增加下划线 If MnuXhx.Checked = True Then MnuXhx.Checked = False Text1.FontUnderline = False Else MnuXhx.Checked = True Text1.FontUnderline = True End If End Sub Private Sub MnuS12_Click()’右击文本框，单击字号12，文本字号改为12号 Text1.FontSize = 12 End Sub Private Sub MnuS30_Click() Text1.FontSize = 30 ’右击文本框，单击字号30，文本字号改为12号 End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MnuFs End If End Sub (5) 单击“文件,保存工程”菜单项，以Mef.frm为窗体文件名和为Mef.vbp 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个标签、 两个命令按钮和一个通用对话框。 (2)各控件属性设置如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 64 控件名称 属性 属性值 Form1 Caption 通用对话框应用 Caption Visual Basic程序设计 Label1 BorderStyle 1-Opaque Command1 Caption 字体设计 Command2 Caption 颜色设计 (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() CommonDialog1.ShowFont If CommonDialog1.FontName <> "" Then Label1.FontName = CommonDialog1.FontName End If Label1.FontSize = CommonDialog1.FontSize 'Label1.FontBold = CommonDialog1.FontBold End Sub Private Sub Command2_Click() CommonDialog1.ShowColor Label1.ForeColor = CommonDialog1.Color End Sub (5) 单击“文件,保存工程”菜单项，以Pcs.frm为窗体文件名和为Pcs.vbp为工程文件名保存在 VB实验 文件夹中。 4、实验内容4的操作步骤: (1)新建一个“标准EXE”类型的工程，然后单击“工程|添加MDI窗体”菜单项，在MDI窗体上建立菜单，在窗体Form1上添加一个图片框、建立菜单并将Form1的MDIChild属性设为Ture。 (2)各控件布局如下: siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c65 (3)双击窗体，打开代码窗口，输入如下代码: 父窗体代码: Private Sub MnuExit_Click() End '退出应用程序 End Sub Private Sub MnuNew_Click() Dim NewFile As New Form1 NewFile.Show '显示窗体 End Sub 子窗体代码: Dim drawstate As Boolean '画图状态变量 Dim drawstate1 As Boolean Dim x1!, y1! '起点坐标变量 Private Sub MClose_Click() Picture1.Picture = LoadPicture() '清除图片框中的图片 End Sub Private Sub MCls_Click() Picture1.Cls '清除图片框中绘制的图形 End Sub Private Sub MDraw_Click() drawstate1 = True '在图片框中绘制图形 End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then '当鼠标左键按下 drawstate = True '设置画图状态，落笔开始画线 x1 = x 'x1和y1保存线条的起点坐标 y1 = y End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If drawstate = True And drawstate1 = True Then '鼠标移动，如果处于画线状态，则在(x1,y1)和(x,y)之间画一条线 Picture1.Line (x1, y1)-(x, y) x1 = x: y1 = y End If accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 66 End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then '当释放鼠标左键时 drawstate = False '解除画线状态 drawstate1 = False '在图片框中不能画图形 End If End Sub Private Sub MExit_Click() End '退出应用程序 End Sub Private Sub Mnew_Click() Dim NewFile As New Form1 '建立新的子窗体 NewFile.Caption = "文档" '设置子窗体标题 NewFile.Show '显示新的子窗体 End Sub Private Sub Mopen_Click() Picture1.Picture = LoadPicture(App.Path + "\bj.jpg") '在图片框中打开一幅图片 End Sub (4) 单击“文件,保存工程”菜单项，以Mid.frm为窗体文件名和为Mid.vbp 为工程文件名保存在 VB实验 文件夹中。 四、实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 1-3题都按照书本的要求得出了相应的结果，第4题花费了较久的时间，最后通过与同学讨论，得出了正确结果。 六、总结 1、通过本实验我掌握了多文档界面和菜单表机器的使用; 2、通过编写下拉式菜单和弹出式菜单的一些事件代码，掌握了它的一些属 性和一些常用方法。 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c67 福建农林大学计算机与信息学院实验报告 学院: 食品科学学院 专业: 食品科学与工程 年级: 2010级 姓名: 邹丽平 学号: 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间: 2012.5.7 指导教师签字: 黄红兵 成绩: 报告退发(订正、重做) 实验十 文件管理与操作 一、 实验目的和要求 1( 了解顺序文件、随机文件及二进制文件的特点及区别。 2( 掌握顺序文件的打开、关闭和读写操作。 3( 掌握文件系统应用程序的设计。 二、 实验内容 1、 请按图10-1所示在标题为“Print和Write区别”的窗体Form1上添加四个 标题分别为“最大值”、“最小值”、“Print语句文件”和“Write语句文件” 的标签(Label1、Label2、Label3和Label4)，然后再添加四个初始文本内 容为空的文本框(Text1、 Text2、 Text3和 Text1)，其中文本框Text3和 Text4可显示多行文本，且有一个垂直滚动条;最后添加两个标题分别为“求 解保存”和“读取文件”的命令按钮(Command1和Command2)。运行后，单 击“求解保存”按钮，生成10个1~100之间的随机数存放在数组a(1~10) 中，然后求这10个随机数的最大值和最小值，并在文本框Text1和Text2 中显示，同时分别用Print#语句和Write#语句将求解结果写入文件 Pout.txtWout.txt中;单击“读取文件”按钮，则用Line Input语句将两 个文件中的数据分别读到文本框Text3和Text4中。 图10-1 运行界面 【提示】 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 68 本题请参考例9.1、例9.2和例9.5。 2(请按图10-2所示在窗体Form1上添加一个文本框Text1以及两个标题分别为 “打开”和“保存”的命令按钮(Command1和Command2)，Text1的初始信 息为空，支持多行显示并有一个垂直滚动条。运行时，单击“打开”按钮， 则读入D:\01\23023010文件夹下的“in.txt”文件中数据，并在文本框Text1 显示;单击“保存”按钮，则将Text1中的小写字母转换为大写并保存到 “out.txt”文件中。 图10-2 运行界面 【提示】 根据“in.txt”文件的数据格式，选择合适的文件读操作。 3(请按图10-3所示在窗体Form1上添加一个文本框Text1以及两个标题为“读 入”和“计算”的命令按钮(Command1和Command2)，Text1的初始信息为 空，支持多行显示并有一个垂直滚动条。运行时，单击“读入”按钮，则读 入D:\01\23023010文件夹下“Infile.txt”文件中的20个数，放在一个数 组中，同时在文本框中显示出来;单击“计算”按钮，则计算数组中大于或 等于300并且小于800的所有数之和，并把求和的结果在文本框中显示出来。 图10-3 运行界面 【提示】 根据“Infile.txt”文件的数据格式，选择Input语句读取文件中的数据。 4. 请按图10-1所示在标题为“文件选择器”的窗体Form1上添加一个驱动器列 表框Drive1、一个 目录 工贸企业有限空间作业目录特种设备作业人员作业种类与目录特种设备作业人员目录1类医疗器械目录高值医用耗材参考目录 列表框Dir1，一个文件列表框File1和一个文本框 Text1，Text1的初始信息为空，支持多行显示并有一个垂直滚动条。而且 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c69 File1现实的文本类型是文本文件。运行时，驱动器、目录和文件列表框能 够同步显示;单击文件列表框中的文件时，在Text1中显示选中文件袋路径 的问政文件名;双击文件列表框中的文件时，在Text1中显示该文件的内容。 图10-4 运行界面 【提示】 (1)设置的Pattern为*.txt。 (2)文件系统控件协调工作，请参考例9.9。 三、实验步骤 1、实验内容1的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加四个标签、四个文本框和两个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 控件名称 属性 属性值 Form1 Caption Print和Write区别 Text (空白) Label1 Caption 最大值 Text3 MultiLine Ture Label2 Caption 最小值 ScrollBars 2-Vertical Label3 Caption Print语句文件 Text (空白) Text4 MultiLine Label4 Caption Write语句文件 2-Vertical ScrollBars Text1 Text (空白) Command1 Caption 求解保存 Text2 Text (空白) Command2 Caption 读取文件 (3)各控件布局如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 70 (4)双击窗体，打开代码窗口，输入如下代码: Dim Max As Integer '定义相关变量，最大值变量为max，最小值变量为min Dim Min As Integer Dim a(1 To 10) As Integer '定义数组a，包含10个整数 Private Sub Command1_Click() Dim i As Integer '定义变量i Randomize '初始化 For i = 1 To 10 a(i) = Int(Rnd * 100 + 1) '生成10个1-100的随机整数，并保存在数组a(1-10)中 Next i Max = a(1) '假设第一元素就是最大值元素 Min = a(1) For i = 2 To 10 If a(i) > Max Then '将每个数组中的数逐个与变量max比较 Max = a(i) End If If a(i) < Min Then '将每个数组中的数逐个与变量min比较 Min = a(i) End If Next i Text1.Text = Max '在文本框1中显示最大值Max Text2.Text = Min '文本框2中显示最小值Min Open App.Path + "/pout.txt" For Output As #1 '打开顺序文件pout.txt Print #1, "最大值"; Max '用print #语句将最大值和最小值写入到Pout.txt中 Print #1, "最小值"; Min Close #1 '关闭文件pout.txt Open App.Path + "/wout.txt" For Output As #2 '打开顺序文件wout.txt Write #2, "最大值"; Max '用write #语句将最大值和最小值写入到Wout.txt中 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c71 Write #2, "最小值"; Min Close #2 ' End Sub Private Sub Command2_Click() Dim s As String '定义变量s为字符串型 Open App.Path + "/pout.txt" For Input As #1 '打开顺序文件pout.txt Text3.Text = "" Do While Not EOF(1) '如果没有读完最后一条记录，继续读取 Line Input #1, s '读取文件中的当前记录行数据保存在变量s中 Text3.Text = Text3.Text + s + vbCrLf '读文件，并在text3中显示 Loop Close #1 '关闭文件pout.txt Open App.Path + "/wout.txt" For Input As #2 '打开顺序文件wout.txt Text4.Text = "" Do While Not EOF(2) '如果没有读完最后一条记录，继续读取 Line Input #2, t '读取文件中的当前记录行数据保存在变量中 Text4.Text=Text4.Text+t+vbCrLf '读文件，并在text4中显示 Loop Close #2 '关闭文件wout.txt End Sub (5) 单击“文件,保存工程”菜单项，以Pw.frm为窗体文件名和为Pw.vbp 为工程文件名保存在 VB实验 文件夹中。 2、实验内容2的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框和两个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Text Visual Basic Text1 MultiLine Ture ScrollBars 2-Vertical Command1 Caption 打开 Command2 Caption 保存 (3)各控件布局如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 72 (4)双击窗体，打开代码窗口，输入如下代码: Private Sub Command1_Click() Dim s As String '定义变量 Text1.Text = "" 'text1初始信息为空 Open App.Path & "\in.txt" For Input As #1 '打开顺序文件in.txt Do While Not EOF(1) '如果没有读完最后一条记录，继续读取 Line Input #1, s '读取文件中的当前记录行数据保存在变量s中 Text1.Text = Text1.Text & s & vbCrLf '读文件，并在Text1中显示 Loop Close #1 '关闭文件in.txt End Sub Private Sub Command2_Click() Text1.Text = UCase(Text1.Text) '将Text1中的小写字母转换为大写 Open App.Path & "\out.txt" For Output As #2 '打开顺序文件out.txt Print #2, Text1.Text Close #2 '关闭文件out.txt End Sub (5) 单击“文件,保存工程”菜单项，以Fio.frm为窗体文件名和为Fio.vbp 为工程文件名保存在 VB实验 文件夹中。 3、实验内容3的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框(和两个命令按钮。 (2)各控件属性设置如下: 控件名称 属性 属性值 Text Visual Basic Text1 MultiLine Ture ScrollBars 2-Vertical Command1 Caption 读入 Command2 Caption 计算 (3)各控件布局如下: siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c73 (4)双击窗体，打开代码窗口，输入如下代码: Dim a(1 To 20) As Integer '定义数组a，包含20个数 Dim i As Integer '定义变量i Private Sub Command1_Click() Open App.Path & "\Infile.txt" For Input As #1 '打开顺序文件Infile.txt Text1.Text = " " 'Text1的初始信息为空 For i = 1 To 20 '生成20个随机数 Input #1, a(i) Text1.Text = Text1.Text & a(i) & " " '将结果显示在Text1中 Next i Close #1 '关闭文件Infile.txt End Sub Private Sub Command2_Click() Dim s As Integer '定义变量 For i = 1 To 20 '生成20个随机数 If a(i) >= 300 And a(i) < 800 Then s = s + a(i) '计算数组中>=300且=<800的所有数之和 End If Next i Text1.Text = s '将结果显示在Text1.Text End Sub (5) 单击“文件,保存工程”菜单项，以Dic.frm为窗体文件名和为Dic.vbp 为工程文件名保存在 VB实验 文件夹中。 4、实验内容4的操作步骤: (1)新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个驱动 器列表框、一个目录列表框，一个文件列表框和一个文本框。 (2)各控件属性设置如下: accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 74 控件名称 属性 属性值 Form1 Caption 文件选择器 File1 Pattern *.txt Text (空白) Text1 MultiLine Ture ScrollBars 2-Vertical (3)各控件布局如下: (4)双击窗体，打开代码窗口，输入如下代码: Dim fullname As String '定义变量 Dim inputdate As String Private Sub Dir1_Change() File1.Path = Dir1.Path '使驱动器列表框和目录列表框同步 End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive '使目录列表框和文件列表框同步 End Sub Private Sub File1_Click() '从文件列表框中获得全路径的文件名 If Right(File1.Path, 1) = "\" Then fullname = File1.Path & File1.FileName Else fullname = File1.Path & "\" & File1.FileName End If Text1.Text = fullname '在文本框中显示文件列表框所选的文件路径 End Sub Private Sub File1_DblClick() Text1.Text = " " Open fullname For Input As #1 '打开文件，文件号为1 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c75 Do While Not EOF(1) Line Input #1, inputdate '读取一行数据 Text1.Text = Text1.Text + inputdate + vbCrLf '在文本框中显示文件列表框所选的文件内容 Loop Close #1 '关闭文件 End Sub (5)单击“文件,保存工程”菜单项，以Fk.frm为窗体文件名和为Fk.vbp为 工程文件名保存在 VB实验 文件夹中。 附加题: (1)各控件布局如下: (2)双击窗体，打开代码窗口，输入如下代码: Public Num1 As Integer, Num2 As Integer ' 保存两个操作数 Public SExp As String Public Result As Single ' 保存计算结果 Public NOk As Integer, NError As Integer ' 保存统计计算正确与错误数 Public Sub GetData() Dim t% Dim NOp As Integer, Op As String * 1 ' 操作符 Num1 = Int(90 * Rnd + 10) ' 产生10,99之间的操作数 Num2 = Int(90 * Rnd + 10) ' 产生10,99之间的操作数 NOp = Int(4 * Rnd + 1) ' 产生1,4之间的操作代码 Select Case NOp '将1,4转换成相应的操作符号 Case 1 Op = "，" Result = Num1 + Num2 Case 2 Op = "," If Num1 < Num2 Then t = Num1: Num1 = Num2: Num2 = t Result = Num1 - Num2 Case 3 Op = "×" If Num1 > 10 And Num2 > 10 Then Num2 = Num2 \ 10 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 76 Result = Num1 * Num2 Case 4 Op = "?" If Num1 < Num2 Then t = Num1: Num1 = Num2: Num2 = t If Num2 > 10 Then Num2 = Num2 \ 10 Result = Num1 / Num2 End Select SExp =Num1 & Op & Num2 & "=" '将产生的操作数和操作符号组成当前题目 Form1.lblExp = SExp End Sub Private Sub cmdMark_Click() End '结束应用程序 End Sub Private Sub Form_Load() Randomize ' 初始化随机数生成器 GetData ' 调用getData过程 End Sub Private Sub txtinput_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '按下回车开始判断 If Not IsNumeric(txtInput) Then '如果输入的不是数字 MsgBox "输入必须为数字", vbExclamation, "输入错误" txtInput = "" txtInput.SetFocus Else '输入的是数字 输入的结果正确 If Val(txtInput) = Result Then ' Text1 = Text1 & SExp & txtInput & " ?" & vbCrLf ' 计算正确 NOk = NOk + 1 Txtright.Text = " " & NOk Else '输入的结果不正确 Text1 = Text1 & SExp & txtInput & " ×" & vbCrLf ' 计算错误 NError = NError + 1 txterr.Text = " " & NError End If txtInput = "" Txttotall.Text = " " & (NOk + NError) '做的题数 Txtdf.Text = " " & Int(NOk / (NOk + NError) * 100) '得分 txtInput.SetFocus GetData ' 再次调用GetData过程做下一题 End If End If End Sub (5)单击“文件,保存工程”菜单项，以附加题.frm为窗体文件名和为附加 题.vbp为工程文件名保存在 VB实验 文件夹中。 siblet of legality, propriety, accuracy, and completeness of information, risk assessment of business. Review of the person responlearly express opinions. The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing contenmanager must c77 四、实验环境 1.硬件:PC机 2.软件:Windows操作系统、Visual Basic 6.0 五、实验结果 都按照书本的要求得出了相应的结果。 六、总结 1、通过本实验我了解顺序文件、随机文件及二进制文件的特点及区别; 2、通过编写顺序文件的打开、关闭和读写操作事件代码，掌握了它的一些 属性和一些常用方法。 accuracy, and completeness of information, risk assessment of business. Review of the person responsible The fourth chapter risk evaluation and review of the 25th review is responsible for reviewing content of legality, propriety,manager must clearly express opinions. 78