VB实验报告答案Word下载.docx
《VB实验报告答案Word下载.docx》由会员分享，可在线阅读，更多相关《VB实验报告答案Word下载.docx（83页珍藏版）》请在冰豆网上搜索。
实验三选择结构程序设计
4
实验四循环结构程序设计
5
实验五数组
6
实验六过程
7
实验七窗体和常用控件
（一）
8
实验八常用控件
（二）
9
实验九菜单设计和多文档界面
10
实验十文件管理与操作
总成绩
福建农林大学计算机与信息学院实验报告
学院：
食品科学学院专业：
食品科学与工程年级：
2010级
姓名：
邹丽平学号：
实验室号__宝玲楼304___计算机号01
实验时间：
2012.3.5指导教师签字：
黄红兵成绩：
报告退发（订正、重做）
一、实验目的和要求
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
欢迎您使用VisualBasic
Font字体
选择“隶书”
AutoSize
Ture
Label2
请输入您的姓名
选择“斜体”
Text1
Text
（空白）
（3）各控件的布局如下：
（4）单击“文件︱保存工程”菜单项，以Fe.frm为窗体文件名和为Fe.vbp为工程文件名保存在VB实验文件夹中。
3、实验内容3的操作步骤：
（1）新建一个新建一个“标准EXE”类型的工程，然后在窗体Form1上添加三个命令按钮，并将它们名称分别改为C1、C2和C3。
（2）各控件属性设置如下：
命令按钮设置
C1
禁止用C3
C2
允许用C3
C3
（4）双击窗体，打开代码窗口，输入如下代码：
PrivateSubCommand1_Click（）
Command3.Enabled=False’禁止使用C3命令按钮
EndSub
PrivateSubCommand2_Click（）
Command3.Enabled=True’允许使用C3命令按钮
（5）单击“文件︱保存工程”菜单项，以Cs.frm为窗体文件名和为Cs.vbp为工程文件名保存在VB实验文件夹中。
4、实验内容4的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个文本框。
文本复制
Text2
MultiLine
ScrollBars
2-Vetical
Licked
PrivateSubForm_Click（）
Text2.Text=Text1.Text’把Text1中的文本信息复制到Text2
（5）单击“文件︱保存工程”菜单项，以Copy.frm为窗体文件名和为Copy.vbp为工程文件名保存在VB实验文件夹中。
5、实验内容5的操作步骤：
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加一个标签和两个命令按钮。
BorderStyle
1-FixedSingle
Command1
显示
Command2
清空
Label1.Caption="
欢迎使用VISUALBASIC6.0"
’显示文本信息
"
’退出程序
（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）启动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
（1）新建一个“标准EXE”类型的工程。
Print方法
AutoRedraw
（3）双击窗体，打开代码窗口，输入如下代码：
PrivateSubForm_Load（）
PrintTab（10）;
"
※"
’打印第一行显示内容
※※"
’打印第二行显示内容
;
Spc
（2）;
’打印第三行显示内容
Spc（4）;
’打印第四行显示内容
Spc（6）;
’打印第五行显示内容
Spc（8）;
’打印第六行显示内容
Spc（10）;
’打印第七行显示内容
Spc（12）;
’打印第八行显示内容
※※※※※※※※※"
’打印第九行显示内容
（4）单击“文件︱保存工程”菜单项，以Pr.frm为窗体文件名和为Pr.vbp为工程文件名保存在VB实验文件夹中。
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加一个文本框（Text1）和两个命令按钮（Command1和Command2）。
VisualBasic
放大
还原
（3）各控件布局如下：
f=Int（Rnd*2+2）’生成随机数2或3
Iff=2ThenText1.FontSize=20’文本字号放大为初始值的2倍
Iff=3ThenText1.FontSize=28’文本字号放大为初始值的3倍
Text1.FontSize=12’还原文本字号为初始值
Text1.Text="
VisualBasic"
’Text1初始文本信息为VisualBasic
EndSub
（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为工程文件名保存在VB实验文件夹中。
（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上面添加三个标签、两个文本框和两个命令按钮。
计算
半径
周长
Label3
面积
Label4
输入半径
DimStrNameAsString*30’定义变量
DimradiusAsString
DimlengAsDouble
DimareaAsDouble
radius=Val（InputBox$（"
请输入圆的半径"
"
圆半径"
3"
100,100）
’弹出input窗口，输入圆半径
Label4.Caption=radius
leng=2*3.14*radius’计算圆周长
area=3.14*radius*radius’计算圆面积
Text1.Text=leng’显示结果
Text2.Text=area
（5）单击“文件︱保存工程”菜单项，以Rc.frm为窗体文件名和为Rc.vbp为工程文件名保存在VB实验文件夹中。
四、实验环境
前四题都没有出现问题，最后一题出现在的问题比较严重，就是inputBox的窗口没有，经过与同学的讨论，解决了问题。
1、掌握了内部程序函数和立即窗口的使用以及inputBox的使用；
2、掌握了表达式、赋值语句的正确书写方式；
3、通过和同学的讨论，加深了我对inputBox使用的理解，使我的操作能力有了进一步的提高。
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运行界面
升级会员 