VB实验报告答案.docx
《VB实验报告答案.docx》由会员分享，可在线阅读，更多相关《VB实验报告答案.docx（83页珍藏版）》请在冰豆网上搜索。
VB实验报告答案
（此文档为word格式，下载后您可任意编辑修改！
）
福建农林大学计算机与信息学院
（计算机公共基础二级课程）
实验报告
课程名称：
VisualBasic程序设计
姓名：
邹丽平
学院:
食品科学学院
专业：
食品科学与工程
年级：
2010级
学号：
指导老师：
黄红兵
职称：
讲师
2012年5月20日
实验项目列表
序号
实验项目名称
成绩
指导教师
1
实验一VB环境和简单应用程序设计
黄红兵
2
实验二顺序结构程序设计
黄红兵
3
实验三选择结构程序设计
黄红兵
4
实验四循环结构程序设计
黄红兵
5
实验五数组
黄红兵
6
实验六过程
黄红兵
7
实验七窗体和常用控件
（一）
黄红兵
8
实验八常用控件
（二）
黄红兵
9
实验九菜单设计和多文档界面
黄红兵
10
实验十文件管理与操作
黄红兵
总成绩
福建农林大学计算机与信息学院实验报告
学院：
食品科学学院专业：
食品科学与工程年级：
2010级
姓名：
邹丽平学号：
实验室号__宝玲楼304___计算机号01
实验时间：
2012.3.5指导教师签字：
黄红兵成绩：
报告退发（订正、重做）
实验一VB环境和简单应用程序设计
一、实验目的和要求
1.了解VisualBasic系统对计算机软件、硬件的要求。
2.掌握启动与退出VisualBasic的方法。
3.熟悉visualbasic的集成开发环境（IDE）。
4.掌握建立、编辑、运行和保存一个简单visualbasic应用程序的全过程。
5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。
二、实验内容
1.启动VisualBasic6.0，熟悉其集成开发环境。
2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用VisualBasic”和“请输入您的姓名”的标签（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中显示“欢迎使用VisualBasic6.0！
”；单击“清空”按钮，则Label1的标题为空。
图1-4运行界面
三、实验步骤
1、实验内容1的操作步骤：
（1）单击“开始”按钮，在“程序”中执行“MicrosoftVisualBasic6.0中文版”命令，系统将自动显示“新建工程”对话框。
（2）在“新建工程”对话框中选中“标准EXE”图标，单击“打开”按钮，就可以打开VisualBasic集成开发环境（IDE）。
（3）观察其标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处。
（4）将鼠标指向工具箱上的各个标准控件，了解它们各自的默认名称。
（5）分别单击“工程”、“属性”、“窗体布局”窗口及“工具箱”窗口右上角的“关闭”按钮，将其全部关闭。
（6）执行“视图”菜单中的“工程资源管理器”、“属性窗口”、“窗体布局窗口”及“工具箱”命令，分别打开相应的窗口。
2、实验内容2的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个标签和一个文本框。
（2）各控件属性设置如下：
控件名称
属性
属性值
Form1
Caption
第一个应用程序
Label1
Caption
欢迎您使用VisualBasic
Font字体
选择“隶书”
AutoSize
Ture
Label2
Caption
请输入您的姓名
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）各控件的布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
PrivateSubCommand1_Click（）
Command3.Enabled=False’禁止使用C3命令按钮
EndSub
PrivateSubCommand2_Click（）
Command3.Enabled=True’允许使用C3命令按钮
EndSub
（5）单击“文件︱保存工程”菜单项，以Cs.frm为窗体文件名和为Cs.vbp为工程文件名保存在VB实验文件夹中。
4、实验内容4的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个文本框。
（2）各控件属性设置如下：
控件名称
属性
属性值
Form1
Caption
文本复制
Text1
Text
（空白）
Text2
Text
（空白）
MultiLine
Ture
ScrollBars
2-Vetical
Licked
Ture
（3）各控件的布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
PrivateSubForm_Click（）
Text2.Text=Text1.Text’把Text1中的文本信息复制到Text2
EndSub
（5）单击“文件︱保存工程”菜单项，以Copy.frm为窗体文件名和为Copy.vbp为工程文件名保存在VB实验文件夹中。
5、实验内容5的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加一个标签和两个命令按钮。
（2）各控件属性设置如下：
控件名称
属性
属性值
Label1
Caption
（空白）
BorderStyle
1-FixedSingle
Command1
Caption
显示
Command2
Caption
清空
（3）各控件的布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
PrivateSubCommand1_Click（）
Label1.Caption="欢迎使用VISUALBASIC6.0"’显示文本信息
EndSub
PrivateSubCommand2_Click（）
Label1.Caption=""’退出程序
EndSub
（5）单击“文件︱保存工程”菜单项，以Es.frm为窗体文件名和为Es.vbp为工程文件名保存在VB实验文件夹中。
四、实验环境
1.硬件：
PC机
2.软件：
Windows操作系统、VisualBasic6.0
五、实验结果
五个实验都能按照要求做出相应的结果，结果都正确。
六、总结
1、掌握了的启动与退出，熟悉了的集成开发环境（IDE）；
2、掌握了应用程序建立、编辑、运行和保存的全过程；
3、了解了系统的基本控件的简单应用。
福建农林大学食品科学学院实验报告
学院：
食品科学学院专业：
食品科学与工程年级：
2010级
姓名：
邹丽平学号：
实验室号：
宝玲楼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（）函数实现。
3、请按图2-2所示在窗体Form1上创建一个初始文本为“VisualBasic”的文本框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=2∏R,求面积公式为：
S=∏R2,其中∏可以定义为一个符号常量，用PI来表示。
图2-4运行界面
三、实验步骤
1、实验内容1的操作步骤：
（1）启动VisualBasic，在“视图”的菜单下单击打开“立即窗口”。
（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）并按回车；
得出结果：
12334
？
Ucase（Mid（“abcdefgh”,3,4））并按回车。
得出结果：
CDEF
2、实验内容2的操作步骤：
（1）新建一个“标准EXE”类型的工程。
（2）各控件属性设置如下：
控件名称
属性
属性值
Form1
Caption
Print方法
AutoRedraw
Ture
（3）双击窗体，打开代码窗口，输入如下代码：
PrivateSubForm_Load（）
PrintTab（10）;"※"’打印第一行显示内容
PrintTab（10）;"※※"’打印第二行显示内容
PrintTab（10）;"※";Spc
（2）;"※"’打印第三行显示内容
PrintTab（10）;"※";Spc（4）;"※"’打印第四行显示内容
PrintTab（10）;"※";Spc（6）;"※"’打印第五行显示内容
PrintTab（10）;"※";Spc（8）;"※"’打印第六行显示内容
PrintTab（10）;"※";Spc（10）;"※"’打印第七行显示内容
PrintTab（10）;"※";Spc（12）;"※"’打印第八行显示内容
PrintTab（10）;"※※※※※※※※※"’打印第九行显示内容
EndSub
（4）单击“文件︱保存工程”菜单项，以Pr.frm为窗体文件名和为Pr.vbp为工程文件名保存在VB实验文件夹中。
3、实验内容3的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框（Text1）和两个命令按钮（Command1和Command2）。
（2）各控件属性设置如下：
控件名称
属性
属性值
Text1
Text
VisualBasic
Command1
Caption
放大
Command2
Caption
还原
（3）各控件布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
PrivateSubCommand1_Click（）
f=Int（Rnd*2+2）’生成随机数2或3
Iff=2ThenText1.FontSize=20’文本字号放大为初始值的2倍
Iff=3ThenText1.FontSize=28’文本字号放大为初始值的3倍
EndSub
PrivateSubCommand2_Click（）
Text1.FontSize=12’还原文本字号为初始值
EndSub
PrivateSubForm_Load（）
Text1.Text="VisualBasic"’Text1初始文本信息为VisualBasic
EndSub
（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）各控件布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
PrivateSubCommand1_Click（）
Text1.Text=Date’获得当前日期
t=Weekday（Date）’获得当前星期
Text2.Text=WeekdayName（t）
EndSub
PrivateSubCommand2_Click（）
End’退出程序
EndSub
（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）各控件布局如下：
（4）双击窗体，打开代码窗口，输入如下代码：
DimStrNameAsString*30’定义变量
DimradiusAsString
DimlengAsDouble
DimareaAsDouble
PrivateSubCommand1_Click（）
radius=Val（InputBox$（"请输入圆的半径","圆半径","3",100,100）
’弹出input窗口，输入圆半径
Label4.Caption=radius
EndSub
PrivateSubCommand2_Click（）
leng=2*3.14*radius’计算圆周长
area=3.14*radius*radius’计算圆面积
Text1.Text=leng’显示结果
Text2.Text=area
EndSub
（5）单击“文件︱保存工程”菜单项，以Rc.frm为窗体文件名和为Rc.vbp为工程文件名保存在VB实验文件夹中。
四、实验环境
1.硬件：
PC机
2.软件：
Windows操作系统、VisualBasic6.0
五、实验结果
前四题都没有出现问题，最后一题出现在的问题比较严重，就是inputBox的窗口没有，经过与同学的讨论，解决了问题。
六、总结
1、掌握了内部程序函数和立即窗口的使用以及inputBox的使用；
2、掌握了表达式、赋值语句的正确书写方式；
3、通过和同学的讨论，加深了我对inputBox使用的理解，使我的操作能力有了进一步的提高。
福建农林大学食品科学学院实验报告
学院：
食品科学学院专业：
食品科学与工程年级：
2010级
姓名：
邹丽平学号：
实验室号：
宝玲楼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）既可以用多分支结构实现，也可以用情况语句SelectCase实现。
（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、Label3、Label4和Label5），然后再添加四个初始文本为空的文本框（Text1、Text2、Text3和Text4），最后添加两个标题分别为“计算”和“结束”的命令按钮（Command1和Command2）。
运行后，在文本框Text1和Text13输入两个操作数，在文本框Text2输入操作符，单击“计算”按钮，则根据操作符对操作数1和操作数2进行+－×和÷四种运算，并将计算结果显示在文本框Text4中，而且具有基本的数据合法性和运算符合法性检验报错能力；单击“结束”按钮，则结束程序运行。
图3-3运行界面
升级会员 