VB实验报告答案.doc

福建农林大学计算机与信息学院(计算机公共基础二级课程)实 验 报 告课程名称： Visual Basic 程序设计姓 名： 邹丽平 学 院: 食品科学学院 专 业： 食品科学与工程 年 级： 2010级 学 号： 1 指导老师： 黄红兵 职 称： 讲师2012 年 5 月 20 日实验项目列表序号实验项目名称成绩指导教师1实验一 VB环境和简单应用程序设计黄红兵2实验二 顺序结构程序设计 黄红兵3实验三 选择结构程序设计 黄红兵4实验四 循环结构程序设计黄红兵5实验五 数组 黄红兵6实验六 过程黄红兵7实验七 窗体和常用控件（一）黄红兵8实验八 常用控件（二） 黄红兵9实验九 菜单设计和多文档界面黄红兵10实验十 文件管理与操作 黄红兵 总成绩福建农林大学计算机与信息学院实验报告学院： 食品科学学院 专业： 食品科学与工程 年级： 2010级 姓名： 邹 丽 平 学号： 1 实验室号_宝玲楼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.按图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） 执行“视图”菜单中的“工程资源管理器”、“属性窗口”、“窗体布局窗口”及“工具箱”命令，分别打开相应的窗口。2、实验内容2的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个标签和一个文本框。（2）各控件属性设置如下：控件名称属性属性值Form1Caption第一个应用程序Label1Caption欢迎您使用Visual BasicFontà字体选择“隶书”AutoSizeTureLabel2Caption请输入您的姓名Fontà字体选择“斜体”Text1Text（空白）（3）各控件的布局如下：（4） 单击“文件保存工程”菜单项，以Fe.frm为窗体文件名和为Fe.vbp为工程文件名保存在 VB实验 文件夹中。3、实验内容3的操作步骤：（1） 新建一个新建一个“标准EXE”类型的工程，然后在窗体Form1上添加三个命令按钮，并将它们名称分别改为C1、C2和C3。（2） 各控件属性设置如下：控件名称属性属性值Form1Caption命令按钮设置C1Caption禁止用C3C2Caption允许用C3C3CaptionC3（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click() Command3.Enabled = False 禁止使用C3命令按钮End SubPrivate Sub Command2_Click() Command3.Enabled = True 允许使用C3命令按钮End Sub（5） 单击“文件保存工程”菜单项，以Cs.frm为窗体文件名和为Cs.vbp为工程文件名保存在 VB实验 文件夹中。4、实验内容4的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个文本框。（2） 各控件属性设置如下：控件名称属性属性值Form1Caption文本复制Text1Text（空白）Text2Text（空白）MultiLineTureScrollBars2-VeticalLickedTure（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Form_Click() Text2.Text = Text1.Text 把Text1中的文本信息复制到Text2End Sub（5） 单击“文件保存工程”菜单项，以Copy.frm为窗体文件名和为Copy.vbp为工程文件名保存在 VB实验 文件夹中。5、实验内容5的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加一个标签和两个命令按钮。（2）各控件属性设置如下：控件名称属性属性值Label1Caption（空白）BorderStyle1-Fixed SingleCommand1Caption显示Command2Caption清空（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click() Label1.Caption = "欢迎使用VISUAL BASIC 6.0" 显示文本信息End SubPrivate 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、了解了系统的基本控件的简单应用。福建农林大学食品科学学院实验报告学院： 食品科学学院 专业： 食品科学与工程 年级： 2010级 姓名： 邹丽平 学号： 1 实验室号： 宝玲楼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(“”,3,2)(4)123&Mid(“”,3,2)(5)Ucase(Mid(“”,3,4)2、设计图2-1所示的窗体Form1，其标题为“Print方法”。运行时，自动在窗体上显示图2-1所示的图形。图2-1 运行界面【提示】（1）将窗体的Caption属性设置为“Print方法”，AutoRedraw属性设置为Ture。（2）在Form-Load()事件中输入代码，用Print语句及Tad()函数和Spc()函数实现。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上添加三个标题分别为“半径”、“周长”和“面积”的标签（Label1、Label2和Label3）以及以一个标题为空的标签，然后再添加两个初始文本为空的文本框（Text1和Text2），最后添加两个标题分别为“输入半径”和“计算”的命令按钮（Command1和Command2）。运行时，单击“输入半径”按钮，则出现图2-4所示的输入框，输入半径并按“确定”按钮，则在标签Lr中显示刚才输入的半径；单击“计算”按钮，则计算圆的周长和面积，并分别在Text1和Text2中显示。【提示】（1）使用InputBox()及函数实现数据输入，为了使程序正常运行应通过Val()函数将InputBox()的函数值转换为数值型。（2）求周长公式为：L=2R,求面积公式为：S=R2,其中可以定义为一个符号常量，用PI来表示。图2-4 运行界面三、实验步骤1、实验内容1的操作步骤：（1）启动Visual Basic，在“视图”的菜单下单击打开“立即窗口”。（2）在“立即窗口”下输入：？16/4-25*8/4mod52 并按回车；得出结果：-600？Int(198.555*100+0.5)/100 并按回车；得出结果：198.56？123+Mid(“”,3,2) 并按回车；得出结果：157？123&Mid(“”,3,2) 并按回车；得出结果：123 34？Ucase(Mid(“abcdefgh”,3,4) 并按回车。得出结果：CDEF2、实验内容2的操作步骤：（1）新建一个“标准EXE”类型的工程。（2）各控件属性设置如下：控件名称属性属性值Form1CaptionPrint方法AutoRedrawTure（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); "" 打印第五行显示内容 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的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框（Text1）和两个命令按钮（Command1和Command2）。（2）各控件属性设置如下：控件名称属性属性值Text1TextVisual BasicCommand1Caption放大Command2Caption还原（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 SubPrivate Sub Command2_Click() Text1.FontSize = 12 还原文本字号为初始值End SubPrivate Sub Form_Load() Text1.Text = "Visual Basic" Text1初始文本信息为Visual BasicEnd Sub （5） 单击“文件保存工程”菜单项，以Fs.frm为窗体文件名和为Fs.vbp为工程文件名保存在 VB实验 文件夹中。4、实验内容4的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、两个文本框和两个命令按钮。（2） 各控件属性设置如下：控件名称属性属性值Form1Caption日期时间函数应用Label1Caption当前日期Label2Caption当前星期Text1Text（空白）Text2Text（空白）Command1Caption确定Command2Caption退出（3） 各控件布局如下：（4） 双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click()Text1.Text = Date 获得当前日期t = Weekday(Date) 获得当前星期Text2.Text = WeekdayName(t)End SubPrivate Sub Command2_Click()End 退出程序End Sub（5） 单击“文件保存工程”菜单项，以Dwq.frm为窗体文件名和为Dwq.vbp为工程文件名保存在 VB实验 文件夹中。5、实验内容5的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、两个文本框和两个命令按钮。（2）各控件属性设置如下：控件名称属性属性值Form1Caption计算Label1Caption半径Label2Caption周长Label3Caption面积Label4Caption（空白）Text1Text（空白）Text2Text（空白）Command1Caption输入半径Command2Caption计算（3）各控件布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Dim StrName As String * 30 定义变量Dim radius As StringDim leng As DoubleDim area As DoublePrivate Sub Command1_Click()radius = Val(InputBox$("请输入圆的半径", "圆半径", "3", 100, 100)弹出input窗口，输入圆半径 Label4.Caption = radiusEnd SubPrivate Sub Command2_Click() leng = 2 * 3.14 * radius 计算圆周长 area = 3.14 * radius * radius 计算圆面积 Text1.Text = leng 显示结果 Text2.Text = areaEnd Sub（5） 单击“文件保存工程”菜单项，以Rc.frm为窗体文件名和为Rc.vbp为工程文件名保存在 VB实验 文件夹中。四、实验环境 1.硬件：PC机 2.软件：Windows操作系统、Visual Basic 6.0五、实验结果前四题都没有出现问题，最后一题出现在的问题比较严重，就是inputBox的窗口没有，经过与同学的讨论，解决了问题。六、总结1、掌握了内部程序函数和立即窗口的使用以及inputBox的使用；2、掌握了表达式、赋值语句的正确书写方式；3、通过和同学的讨论，加深了我对inputBox使用的理解，使我的操作能力有了进一步的提高。福建农林大学食品科学学院实验报告学院： 食品科学学院 专业： 食品科学与工程 年级： 2010级 姓名： 邹丽平 学号： 1 实验室号： 宝玲楼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中显示结果；单击“退出” 按钮，则结束程序运行。【提示】（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分为特别奖。图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）除法运算要检查分母是否为零。三、实验步骤1、实验内容1的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、两个文本框和两个命令按钮。（2）各控件属性设置如下：控件名称属性属性值Label1Caption行李重量Label2Caption应付款Text1Text（空白）Text2Text（空白）Command1Caption计算Command2Caption清除（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.2If WEIGHT > 50 Then 当行李重量>50时，计算费用PAY = 50 * 0.2 + (WEIGHT - 50) * 0.5 Text1.Text = (WEIGHT) 在Text1.Text输入重量信息 Text2.Text = (PAY) 在Text2.Text显示结果End SubPrivate Sub Command2_Click() Text1.Text = "" 清除text1和text2中的数据 Text2.Text = ""End Sub（5） 单击“文件保存工程”菜单项，以Wp.frm为窗体文件名和为Wp.vbp为工程文件名保存在 VB实验 文件夹中。2、实验内容2的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、两个文本框和两个命令按钮。（2）各控件属性设置如下：控件名称属性属性值Label1Caption百分制Label2Caption五分制Text1Text（空白）Text2Text（空白）Command1Caption鉴定Command2Caption退出（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 SelectEnd SubPrivate Sub Command2_Click()End 结束程序End Sub（5） 单击“文件保存工程”菜单项，以Sc.frm为窗体文件名和为Sc.vbp为工程文件名保存在 VB实验 文件夹中。3、实验内容3的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、三个文本框和一个命令按钮。（2）各控件属性设置如下：控件名称属性属性值Form1Caption成绩查询Label1Caption请输入您的成绩Label2Caption总分Label3Caption（空白）Text1Text（空白）Text2Text（空白）Text3Caption（空白）Command1Caption请查询（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 = DIf 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 IfEnd Sub（5） 单击“文件保存工程”菜单项，以Gc.frm为窗体文件名和为Gc.vbp为工程文件名保存在 VB实验 文件夹中。4、实验内容4的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加五个标签、四个文本框和两个个命令按钮。（2）各控件属性设置如下：控件名称属性属性值Form1Caption简易计算器Label1Caption操作数1Label2Caption操作符Label3Caption操作数2Label4Caption计算结果Label5Caption=Text1Text（空白）Text2Text（空白）Text3Text（空白）Text4Text（空白）Command1Caption计算Command2Caption结束（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 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 SubPrivate Sub Command2_Click()End 退出程序End Sub