VB实验报告含答案.docx
《VB实验报告含答案.docx》由会员分享，可在线阅读，更多相关《VB实验报告含答案.docx（23页珍藏版）》请在冰豆网上搜索。
VB实验报告含答案
实验报告
课程名称_程序设计基础VisualBasic_
班 级___________＿
姓 名_________
实验一VB环境和创建一个简单的VB程序
一．实验目的：
1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：
1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。
程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
图1.1实验1-1运行界面
三．实验结果：
对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四．实验思考：
1.标签label控件设置的属性代码有哪些？
Label1.Caption=“请输入姓名”
Label1.fontsize=24
Label1.fontbold=True
2.两个按钮所使用的是什么事件？
代码分别是什么？
PrivateSubCommand1_Click（）
Text1.text=“姓名”
EndSub
PrivateSubCommand2_Click（）
Text1.text=””
EndSub
实验二简单程序设计数据类型及常用内部函数的简单应用
一．实验目的：
1．掌握VisualBasic数据类型的基本概念。
2．掌握用VisualBasic的各种运算符及表达式。
3．学习使用VisualBasic内部函数和数据输入、输出方法。
4．掌握命令按钮、文本框和标签。
5．设计顺序程序。
二．实验内容：
1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。
转换公式是：
C=5/9（F-32）。
F为华氏温度，C为摄氏温度。
2.用三种除法运算（/、\、Mod）做计算。
要求:
在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。
程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
图2-1
图2-2
三．实验结果：
对象属性设置
1.温度转换
对象
属性
属性值
说明
Form1
Caption
Inputbox与msgbox应用
窗体
Command1
Caption
温度转换
命令按钮
2.三种除法运算（/、\、Mod）做计算
对象
属性
属性值
说明
Label1
Caption
被除数
标签
Label2
Caption
除数
标签
Label3
Caption
浮点数
标签
Label4
Caption
整除数
标签
Label5
Caption
余数除
标签
Command1
Caption
执行除法运算
命令按钮
四．实验思考：
1.温度转换中的Command1命令的单击事件的程序代码是什么？
PrivateSubCommand1_Click（）
DimC!
F!
F=val（inputbox（“输入华氏温度”））
C=5/9*（F-32）
Msgbox“对应的摄氏温度为：
”&C
EndSub
2.用三种除法运算（/、\、Mod）做计算，说明三种除法的区别？
/：
两个数相除
\：
两个数整除
Mod：
两个数相除，得余数
3.三种除法运算（/、\、Mod）做计算，Command1命令的单击事件的程序代码是什么？
PrivateSubCommand1_Click（）
Dima!
b!
a=val（text1.text）
b=val（text2.text）
text3.text=a/b
text4.text=a\b
text5.text=amodb
EndSub
实验三选择程序设计
一．实验目的：
1.掌握单分支与双分支条件语句的使用。
2.掌握多分支条件语句（If…Then…ElseIf）的使用。
3.掌握SelectCase语句的使用及与多分支条件语句的区别。
4.熟练掌握时间过程的编写方法。
二．实验内容：
1.设计一个模拟简易计算器的程序，界面如图3-1所示。
要求：
输入两个操作数和一个操作符，根据操作符决定所进行的计算；
如果除数为0，用msgbox提示出错信息；
用if语句和selecetcase语句两种结构实现。
2.通过单选按钮和复选框控制文字的显示，程序窗口如图3-2所示。
图3-1
图3-2
三．实验结果：
对象属性设置
1.模拟简易计算器
对象
属性
属性值
说明
Label1
Caption
输入数1
标签
Label2
Caption
运算器
标签
Label3
Caption
输入数2
标签
Label4
Caption
结果
标签
Command1
Caption
Case结构
命令按钮
Command2
Caption
if结构
命令按钮
Text1-text4
Text
““
文本框
2.单选框与复选框
对象
属性
属性值
说明
Frame1
Caption
字体
框架
Frame2
Caption
字号
框架
Frame3
Caption
字型
框架
Label1
Caption
奥林匹克运动会
标签
Option1
Caption
宋体
单选按钮
Option2
Caption
仿宋
单选按钮
Option3
Caption
黑体
单选按钮
Option4
Caption
楷体
单选按钮
Option5
Caption
大
单选按钮
Option6
Caption
中
单选按钮
Option7
Caption
小
单选按钮
Check1
Caption
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四．实验思考：
1.模拟简易计算器Command1命令的单击事件的程序代码是什么？
PrivateSubCommand1_Click（）
Dima!
b!
DimcAsString
a=Val（Text1.Text）
b=Val（Text3.Text）
c=Text2.Text
SelectCasec
Case“+”
Text4.Text=a+b
Case“-”
Text4.Text=a-b
Case“*”
Text4.Text=a*b
Case“/”
Ifb=0Then
MsgBox“除数为0.”
Else
Text4.Text=a/b
EndIf
EndSelect
EndSub
2.模拟简易计算器Command2命令的单击事件的程序代码是什么？
PrivateSubCommand1_Click（）
Dima!
b!
DimcAsString
a=Val（Text1.Text）
b=Val（Text3.Text）
c=Text2.Text
Ifc=“+”Then
Text4.Text=a+b
ElseIfc=“-”Then
Text4.Text=a-b
ElseIfc=“*”Then
Text4.Text=a*b
ElseIfc=“/”Then
Ifb=0Then
MsgBox“除数为0”
else
Text4.Text=a/b
EndIf
EndIf
EndSub
3.通过单选按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么
PrivateSubCommand1_Click（）
IfOption1.Value=TrueThen
Label1.FontName=“宋体”
ElseIfOption2.Value=TrueThen
Label1.FontName=“华文仿宋”
ElseIfOption3.Value=TrueThen
Label1.FontName=“黑体”
Else
Label1.FontName=“楷体”
EndIf
IfOption5.Value=TrueThen
Label1.FontSize=24
ElseIfOption6.Value=TrueThen
Label1.FontSize=16
Else
Label1.FontSize=8
EndIf
IfCheck1.Value=1Then
Label1.FontBold=True
Else
Label1.FontBold=False
EndIf
IfCheck2.Value=1Then
Label1.FontItalic=True
Else
Label1.FontItalic=False
EndIf
IfCheck3.Value=1Then
Label1.FontUnderline=True
Else
Label1.FontUnderline=False
EndIf
IfCheck4.Value=1Then
Label1.FontStrikethru=True
Else
Label1.FontStrikethru=False
EndIf
EndSub
实验四循环程序设计
一．实验目的：
1．理解循环程序设计的特点。
2．掌握常用的循环语句。
3．掌握常用的循环算法。
4．掌握图片框、图像框和计时器。
1
k
100
∑
1
k
50
∑
1
+
二．实验内容：
1．求
2．设计一条滚动的广告字幕。
三．实验结果：
对象属性设置
1．求和结果要求窗体载入时直接显示，设置窗体的某个属性。
对象
属性
属性值
说明
Form1
AutoRedraw
True
窗体
2．滚动字幕。
对象
属性
属性值
说明
Label1
Caption
“欢迎使用VB”
标签
Timer1
Interval
1000
时钟
四．实验思考：
1．求和的窗体载入事件的程序代码是什么？
PrivateSubForm_Load（）
Dimk%,s!
s=0
Fork=1To100
s=s+1/k
Nextk
Fork=1To50
s=s+k
Nextk
Prints
EndSub
2．滚动字幕的触发时钟控件的程序代码是什么？
。
PrivateSubTimer1_Timer（）
IfLabel1.Left>Form1.WidthThen
Label1.Left=0
Else
Label1.Left=Label1.Left+100
EndIf
EndSub
实验五数组程序设计
一．实验目的：
1．熟练掌握固定数组。
2．掌握动态数组。
3．掌握列表框和组合框。
4．了解直线控件和形状控件。
二．实验内容：
1．设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。
在列表框中随机产生10个100到200之间的整数，在文本框中显示结果信息。
界面如图5-1所示。
图5-1窗体界面
三．实验结果：
对象属性设置
对象
属性
属性值
说明
Label1
Caption
10个100到200之间的整数
标签
Label2
Caption
最大值
标签
Label3
Caption
最小值
标签
Label4
Caption
平均值
标签
Command1
Caption
计算
命令按钮
Text1—Text4
Text
““
文本框
四．实验思考：
1．数组应在过程内还是过程外定义，定义的语句是什么？
过程外定义
Dima（10）AsInteger
2．在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？
PrivateSubForm_Load（）
Dimi%
Fori=1To10
a（i）=Int（Rnd*101+100）
List1.AddItema（i）
Nexti
EndSub
3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？
PrivateSubCommand1_Click（）
DimiAsInteger,max%,min%,avg!
max=a
（1）
min=a
（1）
avg=0
Fori=1To10
IfmaxIfmin>a（i）Thenmin=a（i）
avg=avg+a（i）
Nexti
avg=avg/10
Text1.Text=max
Text2.Text=min
Text3.Text=avg
EndSub
实验六过程程序设计
一．实验目的：
1．掌握子过程的定义和调用方法。
2．掌握函数过程的定义和调用方法。
3．理解作用域和生存期。
4.掌握滚动条。
二．实验内容：
1.写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最小公倍数。
要求从文本框中输入两个数。
界面如图6-1所示。
图6-1
2.设计一个用滚动条改变图片背景色的程序。
界面如图6-2所示
图6-2
三．实验结果：
对象属性设置
1．结果要求单击命令按钮分别显示，设置对象的属性。
对象
属性
属性值
说明
Label1
caption
m
标签
Label2
caption
n
标签
Label3
caption
最大公约数
标签
Label4
caption
最小公倍数
标签
Text1-Text4
text
”“
文本框
Command1
caption
子过程
命令按钮
Command2
caption
函数过程
命令按钮
2．设置滚动条主要属性值。
对象
属性
属性值
说明
HScroll1-HScroll3
min
0
滚动条
HScroll1-HScroll3
max
255
滚动条
四．实验思考：
1．单击子过程命令按钮，在文本框Text3中显示结果信息，子过程的程序代码是什么？
PrivateSubCommand1_Click（）
DimmAsInteger,nAsInteger,rAsInteger
m=Text1.Text
n=Text2.Text
Ifmt=m:
m=n:
n=t
EndIf
Callgys（m,n,r）
Text3.Text=r
EndSub
PrivateSubgys（ByValm%,ByValn%,r%）
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
r=n
EndSub
2．单击函数过程命令按钮，在文本框Text4中显示结果信息，函数过程的程序代码是什么？
PrivateSubCommand2_Click（）
DimmAsInteger,nAsInteger,pAsInteger
m=Text1.Text
n=Text2.Text
p=m*n
Ifmt=m:
m=n:
n=t
EndIf
p=p/gbs（m,n）
Text4.Text=p
EndSub
PrivateFunctiongbs（mAsInteger,nAsInteger）AsInteger
DimrAsInteger
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
gbs=n
EndFunction
3.拖动滚动条的滑块，可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出HScroll1的事件过程。
DimrAsInteger,gAsInteger,bAsInteger
PrivateSubHScroll1_Change（）
r=HScroll1.Value
g=HScroll2.Value
b=HScroll3.Value
Text1.BackColor=RGB（r,g,b）
EndSub
实验七界面设计
一．实验目的：
1．掌握多窗体程序设计的方法。
2．掌握下拉式菜单。
3．了解通用对话框。
二．实验内容：
1.编写密码登录系统。
在窗体1输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自
行设计操作内容；如果密码不正确，弹出信息框，显示”用户名或密码错误，请重新输入”，回到
窗体1继续输入用户名和密码。
密码输入有三次机会，超过三次就弹出第三个窗口，显示”对不起，
你不能使用该系统！
”（注：
凡是文字提示内容可自行设计，不要求与题目一样。
三个窗体界面可参照图7-1图7-2图7-3所示。
）
图7-1
图7-2
图7-3
2.利用通用对话框设计一个简单的文本编辑器，具有打开、保存、字体、颜色功能。
要求用菜单实现，
有”文件”和”格式”两个菜单，”文件”菜单下包含”打开”、”保存”和”退出”三项。
”格式”
菜单下包含”字体”和”颜色”两项，打开文件显示在文本框中。
（窗体界面可参照图7-4所示。
）
图7-4
三．实验结果：
对象属性设置
1．设置三个窗体的控件及其属性。
对象
控件名称
属性
属性值
Form1
Form1
Caption
Form1
Form2
Form2
Caption
Form2
Form3
Form3
Caption
Form3
2．设置窗体控件及属性值。
对象
控件名称
属性
属性值
窗体
Form1
Caption
Form1
文本框1
Text1
Text
Text1
打开
Open
Caption
打开
保存
Save
Caption
保存
退出
Exit
Caption
退出
字体
Font
Caption
字体
颜色
Color
Caption
颜色
四．实验思考：
1．下列程序为实验内容1的部分程序代码，单击确定命令按钮的程序代码是什么？
PrivateSubForm_Load（）
Text2.PasswordChar=“*”
Text2.Text=““
Text1.Text=““
EndSub
PrivateSubCommand1_Click（）
StaticiAsInteger
i=i+1
Ifi>=3Then
Form1.Hide
Form3.Show
ExitSub
EndIf
IfText1.Text=“abc”AndText2.Text=“123”Then
Form1.Hide
Form2.Show
Else
MsgBox“用户名或密码错误，请重新输入”
Text2.Text=““
Text1.Text=““
Text1.setfoucs
Endif
EndSub
升级会员 