vb实验报告答案

福建农林大学计算机与信息学院 (计算机公共基础二级课程) 实 验 报 告 课程名称： Visual Basic 程序设计 姓 名： 邹丽平 学 院: 食品科学学院 专 业： 食品科学与工程 年 级： 2010 级 学 号： 102258016001 指导老师： 黄红兵 职 称： 讲师 2012 年 5 月 20 日 2 实验项目列表 序号 实验项目名称 成绩 指导教师 1 实验一 VB 环境和简单应用程序设计 黄红兵 2 实验二 顺序结构程序设计 黄红兵 3 实验三 选择结构程序设计 黄红兵 4 实验四 循环结构程序设计 黄红兵 5 实验五 数组 黄红兵 6 实验六 过程 黄红兵 7 实验七 窗体和常用控件（一） 黄红兵 8 实验八 常用控件（二） 黄红兵 9 实验九 菜单设计和多文档界面 黄红兵 10 实验十 文件管理与操作 黄红兵 总成绩 3 福建农林大学计算机与信息学院实验报告 学院： 食品科学学院 专业： 食品科学与工程 年级： 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 的字体为隶书，并且其能根据文本大小自动调整尺寸， Label2 的字型为倾斜；然后再设计一个初始文本为空的文本框 Text1. 图 1-1 运行界面 3.按图 1-2 在标题为“命令按钮设置”的窗体 Form1 上画三个标题分别为 “禁止用 C3”、 “允许用 C3”和“C3”的命令按钮（C1、C2 和 C3） 。运行时，如 果单击“禁止用 C3”按钮，则 C3 按钮无效（如图 10-2 所示） ；如果单击“允 许用 C3”按钮，则 C3 按钮有效。 图 1-2 运行界面 4 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） 分别单击“工程” 、 “属性” 、 “窗体布局”窗口及“工具箱”窗口右上角 的“关闭”按钮，将其全部关闭。 5 （6） 执行“视图”菜单中的“工程资源管理器” 、 “属性窗口” 、 “窗体布局窗 口”及“工具箱”命令，分别打开相应的窗口。 2、实验内容 2 的操作步骤： （1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上添加两个标签 和一个文本框。 （2）各控件属性设置如下： 控件名称 属性 属性值 Form1 Caption 第一个应用程序 Caption 欢迎您使用 Visual Basic Font字体 选择“隶书” Label1 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 6 C3 Caption C3 （3）各控件的布局如下： （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 ScrollBars 2-Vetical Text2 Licked Ture （3）各控件的布局如下： （4）双击窗体，打开代码窗口，输入如下代码： Private Sub Form_Click() 7 Text2.Text = Text1.Text 把 Text1 中的文本信息复制到 Text2 End Sub （5） 单击“文件 保存工程”菜单项，以 Copy.frm 为窗体文件名和为 Copy.vbp 为工程文件名保存在 VB 实验 文件夹中。 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 五、实验结果 五个实验都能按照要求做出相应的结果，结果都正确。 六、总结 8 1、掌握了的启动与退出，熟悉了的集成开发环境（IDE） ； 2、掌握了应用程序建立、编辑、运行和保存的全过程； 3、了解了系统的基本控件的简单应用。 福建农林大学食品科学学院实验报告 学院： 食品科学学院 专业： 食品科学与工程 年级： 2010 级 姓名： 邹丽平 学号： 102258016001 实验室号： 宝玲楼 304_计算机号： 01 实验时间： 2012.3.12 指导教师签字： 黄红兵 成绩： 实验二 顺序结构程序设计 一、实验目的 1、掌握常用内部函数的使用。 2、掌握表达式、赋值语句的正确书写规范。 3、掌握 InputBox 与 MsgBox 的使用。 4、掌握 Print 方法的使用。 二、实验内容 1、在立即窗口中运行下列表达式的值: (1)16/4-25*8/4mod52 (2)Int(198.555*100+0.5)/100 (3)123+Mid(“123456”,3,2) (4)123 “ 打印第一行显示内容 Print Tab(10); “ 打印第二行显示内容 Print Tab(10); “; Spc(2); “ 打印第三行显示内容 Print Tab(10); “; Spc(4); “ 打印第四行显示内容 Print Tab(10); “; Spc(6); “ 打印第五行显示内容 Print Tab(10); “; Spc(8); “ 打印第六行显示内容 Print Tab(10); “; Spc(10); “ 打印第七行显示内容 Print Tab(10); “; Spc(12); “ 打印第八行显示内容 Print Tab(10); “ 打印第九行显示内容 End Sub （4）单击“文件保存工程”菜单项，以 Pr.frm 为窗体文件名和为 Pr.vbp 为 工程文件名保存在 VB 实验 文件夹中。 3、实验内容 3 的操作步骤： 12 （1）新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加一个文本 框（Text1）和两个命令按钮（Command1 和 Command2） 。 （2）各控件属性设置如下： 控件名称 属性 属性值 Text1 Text Visual Basic Command1 Caption 放大 Command2 Caption 还原 （3）各控件布局如下： （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 日期时间函数应用 13 Label1 Caption 当前日期 Label2 Caption 当前星期 Text1 Text （空白） Text2 Text （空白） Command1 Caption 确定 Command2 Caption 退出 （3） 各控件布局如下： （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 面积 14 Label4 Caption （空白） Text1 Text （空白） Text2 Text （空白） Command1 Caption 输入半径 Command2 Caption 计算 （3）各控件布局如下： （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 的窗口没有，经过与同学的讨论，解决了问题。 15 六、总结 1、掌握了内部程序函数和立即窗口的使用以及 inputBox 的使用； 2、掌握了表达式、赋值语句的正确书写方式； 3、通过和同学的讨论，加深了我对 inputBox 使用的理解，使我的操作能 力有了进一步的提高。 福建农林大学食品科学学院实验报告 学院： 食品科学学院 专业： 食品科学与工程 年级： 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 运行界面 【提示】 16 （1）既可以用单分支结构实现，也可以用多分支结构实现。 （2）将行李重量是否大于 50作为 If语句的条件。 2、请按图 3-2 所示在窗体 Form1 上添加两个标题分别为“百分制”和“五 分制”的标签（Label1 和 Label2） ，再添加两个初始文本为空的文本框（Text1 和 Text2）以及两个标题分别为“鉴定”和“退出”的命令按钮（Command1 和 Command2)。运行时，在 Text1 中输入百分制的成绩，单击“鉴定” 按钮，将 百分制成绩转化为五分制，并在 Text2 中显示结果；单击“退出” 按钮，则结 束程序运行。 【提示】 （1）既可以用多分支结构实现，也可以用情况语句 Select Case实现。 （2）百分制成绩转化为五分制规则：90100 分为优秀；8089 分为良好； 7079 分为中等；6069 分为及格;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 分为特别奖。 17 图 3-3 运行界面 【提示】 （1）可以用多分支结构 IfThenElseIf语句实现。 （2）可以定义四个整型变量，分别存储三科成绩和总成绩。 （3）用 MsgBox语句显示奖励情况，如：MsgBox”您获得特等奖” ，48， ”获奖 通知” 。 4、请在标题为“简易计算器”的窗体 Form1 上添加五个标题分别为“操作 数 1”、 “操作符” 、 “ 操作数 2” 、 “计算结果”和“=”的标签 （Label1、Label2、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）除法运算要检查分母是否为零。 三、实验步骤 18 1、实验内容 1 的操作步骤： （1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加两个标 签、两个文本框和两个命令按钮。 （2）各控件属性设置如下： 控件名称 属性 属性值 Label1 Caption 行李重量 Label2 Caption 应付款 Text1 Text （空白） Text2 Text （空白） Command1 Caption 计算 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 = 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 19 为工程文件名保存在 VB 实验 文件夹中。 2、实验内容 2 的操作步骤： （1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加两个标 签、两个文本框和两个命令按钮。 （2）各控件属性设置如下： 控件名称 属性 属性值 Label1 Caption 百分制 Label2 Caption 五分制 Text1 Text （空白） Text2 Text （空白） 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 = 270 Then 如果总分=270，则弹出 MsgBox 窗口“您获得了特等奖” 21 Label3 = MsgBox(“您获得了特等奖“, 48, “获奖通知“) ElseIf D = 240 And D = 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 上面添加五个标 签、四个文本框和两个个命令按钮。 （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）各控件布局如下： 22 （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 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 机 23 2.软件：Windows 操作系统、Visual Basic 6.0 五、实验结果 四个实验都能按照书本中的要求得出相应的结果，结果都正确。 六、总结 1、能正确书写逻辑表达式的形式； 2、掌握了 If 语句、情况语句的使用，了解了情况语句与多分支语句的区 别。 3、熟悉掌握了 MsgBox 的使用，能与同学交流学习成果。 福建农林大学食品科学学院实验报告 学院： 食品科学学院 专业： 食品科学与工程 年级： 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 中显示。 24 图 4-1 运行界面 【提示】 （1）n!=12（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 中显示。 图 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 中。 25 图 4-3 运行界面 【提示】 （1）找出规律，第 i项的分母是前一项分母加上有分母项开始的项目数。 （2）可以用 Do语句实现，当某项达到规定的精度时退出循环。 三、 实验步骤 1、实验内容 1 的操作步骤： （1）新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加一个标签、 两个文本框和一个命令按钮。 （2）各控件属性设置如下： （3）各控件布局如下： （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 的操作步骤： 控件名称 属性 属性值 Label1 Caption 请输入 N 的值 Text Text （空白） Text Text （空白） Command1 Caption N!= 26 （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% 定义变量 m = Val(Text1.Text) n = Val(Text2.Text) If m n Then 当 mn 时，m 赋值给 x，n 赋值给 y x = m: y = n Else x = n: y = m 当 nm 时，n 赋值给 x，m 赋值给 y End If r = x Mod y 计算最大公约数 Do While r = 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 机 28 2、软件：Windows 操作系统、Visual Basic 6.0 五、实验结果 三个实验都能按照书本的要求做出相应的结果，解第三题时遇到了一 点小麻烦，通过与同学的交流，解决了问题，加深了理解。 六、总结 1、 通过本次的实验，掌握了 For 语句和 Do 语句的使用，掌握了控制循 环的条件。 2、 通过实际的上机操作，巩固了理论知识，加深了对循环结构程序设 计的理解 福建农林大学计算机与信息学院实验报告 学院： 食品科学学院 专业： 食品科学与工程 年级： 2010 级 姓名： 邹丽平 学号： 102258016001 实验室号 _宝玲楼 304_计算机号 01 实验时间： 2012.4.2 指导教师签字： 黄红兵 成绩： 报告退发（订正、重做） 实验五 数组 一、 实验目的 1掌握数组的声明以及数组元素的引用。 2掌握静态数组和动态数组的使用差别。 3掌握与数组有关的常用算法。 29 二、 实验内容 1、请按图 5-1 所示在标题为“最值求解”的窗体 Form1 上添加两个标题分 别为“最大值”和“最小值”标签（Label1 和 Label2） ，两个初始文本为空的 文本框（Text1 和 Text2）,以及一个标题为“确定”的命令按钮 Command1。运 行时，单击“确定”按钮，将生成 10 个 1099 之间的随机整数并存储在数组 a（110）中，求出这 10 个整数的最大值和最小值，并在 Text1 和 Text2 中显 示结果。 图 5-1 运行界面 【提示】 求最大值和最小值的算法，请参照例 4.2。 2、请按图 5-2 所示在标题为“排序算法”的窗体 Form1 上添加一个标题为“排 序”的命令按钮 Command1。运行时，单击“排序”按钮，将生成 10 个 1100 之间的随机整数存储在数组 a（110 ）中，并用 Print 方法将数组中数据在窗体 上输出，然后将这 10 个整数按从小到大的进行排序并在窗体上输出。 【提示】 （1）既可以采用选择法也可以采用冒泡法来实现排序，请参考 4-9和 4-10。 （2）利用 Tab或 Spc()函数控制数组元素输出。 图 5-2 运行界面 3、请按图 10-22 所示在窗体 Form1 上添加一个标题为“N=”的标签 Label1、 一个标题为“S=”的命令按钮 Command1 以及两个初始文本为空的文本框 30 （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 上添加两个标题 分别为“56 矩阵：”和“元素和：”的标签（Label1 和 Label2） ，然后再添 加一个文本框 Text1，其初始文本内容为空，可以显示多行文本，且有一个垂 直滚动条；接着添加两个标题分别为“随机数”和“求和”的命令按钮 （Command1 和 Command2） ，最后添加一个标题为空，带有单边框的标签 Label3。运行时，单击“随机数”按钮，自动生成 30 个 1099 之间的随机整数， 赋值给二维数组的每个元素，并在文本框 Text1 中显示；单击“求和”按钮， 计算二维数组所有元素的和，并在标签 Label4 中显示计算结果。 【提示】 （1）定义一个二维数组 Dim a(15,16)。 （2）用循环嵌套求所有元素的和，请参考例 4.5和例 4.6。 图 5-4 运行 界面 三、实验步骤 1、实验内容 1 的操作步骤： （1） 新建一个“标准 EXE”类型的 31 工程，然后在窗体 Form1 上添加两个标签，两个文本框和一个命令按钮。 （2）各控件属性设置如下： 控件名称 属性 属性值 Form1 Caption 最值求解 Label1 Caption 最大值 Label2 Caption 最小值 Text1 Text （空白） Text2 Text （空白） Command1 Caption 确定 （3）各控件的布局如下： （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 Next i End Sub （5） 单击“文件保存工程 ”菜单项，以 St.frm 为窗体文件名和为 St.vbp 为工程文件名保存在 VB 实验 文件夹中。 3、实验内容 3 的操作步骤： （1） 新建一个“标准 EXE”类型的工程，在窗体 Form1 上添加一个标签，两 个文本框和一个命令按钮。 （2） 各控件属性设置如下： 控件名称 属性 属性值 Label1 Caption N= 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 34 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 56 矩阵： Label2 Caption 元素和 Caption （空白） Label3 BorderStyle 1-Opaque Text （空白） MultiLine TureText1 ScrollBars 2-Vertical Command1 Caption 随机数 Command2 Caption 求和 （3）各控件的布局如下： 35 （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 最后再画两 个标题分别为“确定”和“取消”的命令按钮（Command1 和 Command2） ，其中 “确定”按钮默认按钮， “取消”按钮为默认取消按钮。 图 7-1 运行界面 2、 请按图 7-2 在标题为“复选框应用”的窗体 Form1 上画一个初始文本为 “复选文本框举例”的文本框 Text1 以及两个标题分别为“粗体”和“斜体” 复选框（Check1 和 Check2） ，其中 Text1 的字体为“宋体” ，字号为“20” 。运 行时，如果选中“粗体”则文本框 Text1 中的文本加粗，否则不加粗；如果选 中”斜体” ，则文本框 Text1 中的文本字形为斜体，否则就不是斜体。要求以 Chs.frm 为窗体文件名和 Chs.vbp 为工程文件名保存在 D:012303007 文件夹 45 中。 图 7-2 运行界面 3、请按图 7-3 在标题为”简单文字处理”的窗体 Form1 上画一个文本框 Text1 和一个标题为”编辑操作”的框架 Frame1，并在 Frame1 画三个标题分别为 “复制” 、 “剪切”和“粘贴”的单选按钮（Option1、Option2 和 Option3） ， Text1 可以显示多行文本，且有一个垂直滚动条，其文本内容不限。运行时， 选择某个单选按钮能够实现相应的编辑功能。 图 7-3 运行界面 4、请按图 7-4 在标题为“兴趣爱好”的窗体 Form1