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