VB实验报告答案Word下载.docx

1、实验三 选择结构程序设计 4实验四 循环结构程序设计5实验五 数组 6实验六 过程7实验七 窗体和常用控件（一）8实验八 常用控件（二） 9实验九 菜单设计和多文档界面10实验十 文件管理与操作 总成绩福建农林大学计算机与信息学院实验报告学院： 食品科学学院 专业： 食品科学与工程 年级： 2010级 姓名： 邹 丽 平 学号： 实验室号_宝玲楼304_计算机号 01 实验时间： 2012.3.5 指导教师签字： 黄红兵 成绩：报告退发（订正、重做） 一、 实验目的和要求1.了解Visual Basic系统对计算机软件、硬件的要求。2.掌握启动与退出Visual Basic的方法。3.熟悉vi

2、sual 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在

3、标题为“命令按钮设置”的窗体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在标

4、题为“标签内容显示”的窗体Form1上画一个标题为空、带有单边框的标签Label1,再画两个标签分别为“显示”和“清空”的命令按钮（Command1和Command2）。运行时，单击“显示”按钮，则在标签Label1中显示“欢迎使用Visual Basic 6.0！”；单击“清空”按钮，则Label1的标题为空。图1-4 运行界面三、 实验步骤1、实验内容1的操作步骤：（1） 单击“开始”按钮，在“程序”中执行 “Microsoft Visual Basic6.0中文版”命令，系统将自动显示“新建工程”对话框。（2） 在“新建工程”对话框中选中“标准EXE”图标，单击“打开”按钮，就可以打开V

5、isual Basic集成开发环境（IDE）。（3） 观察其标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处。（4） 将鼠标指向工具箱上的各个标准控件，了解它们各自的默认名称。（5） 分别单击“工程”、“属性”、“窗体布局”窗口及“工具箱”窗口右上角的“关闭”按钮，将其全部关闭。（6） 执行“视图”菜单中的“工程资源管理器”、“属性窗口”、“窗体布局窗口”及“工具箱”命令，分别打开相应的窗口。2、实验内容2的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个标签和一个文本框。（2）各控件属性设置如下：控件名称属性属性值Form1Caption第一

6、个应用程序Label1欢迎您使用Visual BasicFont字体选择“隶书”AutoSizeTureLabel2请输入您的姓名选择“斜体”Text1Text（空白）（3）各控件的布局如下：（4） 单击“文件保存工程”菜单项，以Fe.frm为窗体文件名和为Fe.vbp为工程文件名保存在 VB实验 文件夹中。3、实验内容3的操作步骤：（1） 新建一个新建一个“标准EXE”类型的工程，然后在窗体Form1上添加三个命令按钮，并将它们名称分别改为C1、C2和C3。（2） 各控件属性设置如下：命令按钮设置C1禁止用C3C2允许用C3C3（4）双击窗体，打开代码窗口，输入如下代码：Private Su

7、b Command1_Click（） Command3.Enabled = False 禁止使用C3命令按钮End SubPrivate Sub Command2_Click（） Command3.Enabled = True 允许使用C3命令按钮（5） 单击“文件保存工程”菜单项，以Cs.frm为窗体文件名和为Cs.vbp为工程文件名保存在 VB实验 文件夹中。4、实验内容4的操作步骤：（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个文本框。文本复制Text2MultiLineScrollBars2-VeticalLickedPrivate Sub Form_Clic

8、k（） Text2.Text = Text1.Text 把Text1中的文本信息复制到Text2（5） 单击“文件保存工程”菜单项，以Copy.frm为窗体文件名和为Copy.vbp为工程文件名保存在 VB实验 文件夹中。5、实验内容5的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加一个标签和两个命令按钮。BorderStyle1-Fixed SingleCommand1显示Command2清空 Label1.Caption = 欢迎使用VISUAL BASIC 6.0 显示文本信息 退出程序（5） 单击“文件保存工程”菜单项，以Es.frm为窗体文件名和为Es.

9、vbp为工程文件名保存在 VB实验 文件夹中。四、 实验环境 1.硬件：PC机 2.软件：Windows操作系统、Visual Basic 6.0五、实验结果五个实验都能按照要求做出相应的结果，结果都正确。六、总结1、掌握了的启动与退出，熟悉了的集成开发环境（IDE）；2、掌握了应用程序建立、编辑、运行和保存的全过程；3、了解了系统的基本控件的简单应用。福建农林大学食品科学学院实验报告 食品科学学院 专业： 2010级 邹丽平 学号： 实验室号： 宝玲楼304_计算机号： 01 2012.3.12 指导教师签字： 黄红兵 成绩：实验二 顺序结构程序设计一、实验目的1、掌握常用内部函数的使用。2

10、、掌握表达式、赋值语句的正确书写规范。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&Mid（“123456”,3,2）（5）Ucase（Mid（“123456”,3,4）2、设计图2-1所示的窗体Form1，其标题为“Print方法”。运行时，自动在窗体上显示图2-1所示的图形。图2-1 运行界面【提示】（1）将窗体的Caption属性设置为“Print方法”，A

11、utoRedraw属性设置为Ture。（2）在Form-Load（）事件中输入代码，用Print语句及Tad（）函数和Spc（）函数实现。3、请按图2-2所示在窗体Form1上创建一个初始文本为“Visual Basic”的文本框Text1以及两个标题分别为“放大”和“还原”的命令按钮（Command1和Command2）。运行时，单击“放大”按钮，将文本框中显示的字符串放大2倍或3倍（随机数）；单击“还原”按钮，则文本框中显示的字符串大小还原。（1）字体缩放使用FontSize属性。（2）要还原字体大小，必须保存放大前的字体大小，可以使用模块级变量来保存放大前的字体大小。（3）放大2倍或3倍

12、可以用随机数：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所示在标题为

13、“计算”的窗体Form1上添加三个标题分别为“半径”、“周长”和“面积”的标签（Label1、Label2和Label3）以及以一个标题为空的标签，然后再添加两个初始文本为空的文本框（Text1和Text2），最后添加两个标题分别为“输入半径”和“计算”的命令按钮（Command1和Command2）。运行时，单击“输入半径”按钮，则出现图2-4所示的输入框，输入半径并按“确定”按钮，则在标签Lr中显示刚才输入的半径；单击“计算”按钮，则计算圆的周长和面积，并分别在Text1和Text2中显示。（1）使用InputBox（）及函数实现数据输入，为了使程序正常运行应通过Val（）函数将Input

14、Box（）的函数值转换为数值型。（2）求周长公式为：L=2R,求面积公式为：S=R2,其中可以定义为一个符号常量，用PI来表示。图2-4 运行界面三、实验步骤（1）启动Visual Basic，在“视图”的菜单下单击打开“立即窗口”。（2）在“立即窗口”下输入：？16/4-25*8/4mod52 并按回车；得出结果：-600Int（198.555*100+0.5）/100 并按回车；198.56123+Mid（“123456”,3,2） 并按回车；157123&Mid（“123456”,3,2） 并按回车；123 34Ucase（Mid（“abcdefgh”,3,4） 并按回车。CDEF（1）

15、新建一个“标准EXE”类型的工程。Print方法AutoRedraw（3）双击窗体，打开代码窗口，输入如下代码：Private Sub Form_Load（） Print Tab（10）; 打印第一行显示内容 打印第二行显示内容; Spc（2）; 打印第三行显示内容 Spc（4）; 打印第四行显示内容 Spc（6）; 打印第五行显示内容 Spc（8）; 打印第六行显示内容 Spc（10）; 打印第七行显示内容 Spc（12）; 打印第八行显示内容 打印第九行显示内容（4）单击“文件保存工程”菜单项，以Pr.frm为窗体文件名和为Pr.vbp为工程文件名保存在 VB实验 文件夹中。（1）新建一个

16、“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框（Text1）和两个命令按钮（Command1和Command2）。Visual Basic放大还原（3）各控件布局如下： f = Int（Rnd * 2 + 2） 生成随机数2或3 If f = 2 Then Text1.FontSize = 20 文本字号放大为初始值的2倍 If f = 3 Then Text1.FontSize = 28 文本字号放大为初始值的3倍 Text1.FontSize = 12 还原文本字号为初始值 Text1.Text = Visual Basic Text1初始文本信息为Visual Basi

17、cEnd Sub （5） 单击“文件保存工程”菜单项，以Fs.frm为窗体文件名和为Fs.vbp为工程文件名保存在 VB实验 文件夹中。（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加两个标签、两个文本框和两个命令按钮。日期时间函数应用当前日期当前星期确定退出（3） 各控件布局如下：（4） 双击窗体，打开代码窗口，输入如下代码：Text1.Text = Date 获得当前日期t = Weekday（Date） 获得当前星期Text2.Text = WeekdayName（t）End 退出程序（5） 单击“文件保存工程”菜单项，以Dwq.frm为窗体文件名和为Dwq.vbp

18、为工程文件名保存在 VB实验 文件夹中。（1） 新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、两个文本框和两个命令按钮。计算半径周长Label3面积Label4输入半径Dim StrName As String * 30 定义变量Dim radius As StringDim leng As DoubleDim area As Doubleradius = Val（InputBox$（请输入圆的半径, 圆半径3, 100, 100）弹出input窗口，输入圆半径 Label4.Caption = radius leng = 2 * 3.14 * radius 计算圆周

19、长 area = 3.14 * radius * radius 计算圆面积 Text1.Text = leng 显示结果 Text2.Text = area（5） 单击“文件保存工程”菜单项，以Rc.frm为窗体文件名和为Rc.vbp为工程文件名保存在 VB实验 文件夹中。四、实验环境前四题都没有出现问题，最后一题出现在的问题比较严重，就是inputBox的窗口没有，经过与同学的讨论，解决了问题。1、掌握了内部程序函数和立即窗口的使用以及inputBox的使用；2、掌握了表达式、赋值语句的正确书写方式；3、通过和同学的讨论，加深了我对inputBox使用的理解，使我的操作能力有了进一步的提高。

20、 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元/k

21、g），并在Text2中显示计算结果；单击“清除”按钮，将文本框Text1和Text2中文本清空。图3-1 运行界面（1）既可以用单分支结构实现，也可以用多分支结构实现。（2）将行李重量是否大于50作为If语句的条件。2、请按图3-2所示在窗体Form1上添加两个标题分别为“百分制”和“五分制”的标签（Label1和Label2），再添加两个初始文本为空的文本框（Text1和Text2）以及两个标题分别为“鉴定”和“退出”的命令按钮（Command1和Command2）。运行时，在Text1中输入百分制的成绩，单击“鉴定” 按钮，将百分制成绩转化为五分制，并在Text2中显示结果；单击“退出”

22、按钮，则结束程序运行。（1）既可以用多分支结构实现，也可以用情况语句Select Case实现。（2）百分制成绩转化为五分制规则：90100分为优秀；8089分为良好；7079分为中等；6069分为及格;60以下为不及格。图3-2 运行界面3、请按图3-3所示在标题为“成绩查询”的窗体Form1上添加两个标题分别为“请输入您的成绩：” 和“总分” 的标签（Label1和Label2）以及一个标题为空的的标签Label3，然后再添加三个初始文本为空的文本框（Text1、Text2和Text3），最后添加一个标题为“请查询”的命令按钮Command1。运行时，在文本框Text1、Text2和Tex

23、t3中输入成绩，单击“请查询”按钮，根据输入的成绩，通过输出对话框显示奖励情况。奖励条件如下：三门总分不低于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 运行界面