vb实验报告Word格式.docx
《vb实验报告Word格式.docx》由会员分享，可在线阅读，更多相关《vb实验报告Word格式.docx（25页珍藏版）》请在冰豆网上搜索。
日期：
院（部）审
实验项目[1]名称：
VB集成环境及简单应用程序的建立试做日期：
2011.9.6
实验A第一题
PrivateSubCommand1_Click（）
Label1=Text1
EndSub
七、实验结果及分析
熟悉掌握了启动与退出VisualBasic的方法，熟悉了vb的集成环境及其基本操作。
并且能够自己编写一个简单程序，了解了vb的工具、菜单和窗口。
实验项目[2]名称：
VB窗体和基本控件试做日期：
2011.9.13/20
一、实验目的
掌握窗体的常用属性及事件过程；
控件Text、Label、Command的常用属性及事件过程。
二、实验原理
VB窗体和基本控件的属性、方法和事件的应用
三、实验内容
1、练习例题2.4、2.5和2.6，体会文本框控件的属性、事件和方法；
2、完成课本260页实验A中的习题2、习题3和习题5。
四、使用仪器、材料
计算机及VisualBasic6.0
五、实验步骤
⑴建立用户界面需要的控件对象；
⑵设置对象属性；
⑶编写对象事件过程；
⑷保存文件（窗体文件和工程文件及其它）；
⑸调试运行程序。
六、实验原始记录及其处理（数据、图表、计算等）
实验A第二题
PrivateSubForm_Load（）
Timer1.Interval=0
EndSub
PrivateSubCommand1_Click（）
Timer1.Interval=0
CallMymove
EndSub
PrivateSubCommand2_Click（）
Timer1.Interval=200
PrivateSubTimer1_Timer（）
CallMyMove
SubMyMove
Label1.MoveLabel1.Right，Label1.Left+50
IfLabel1.Left＞Form1.leftThenLabel1.Left=0
第三题：
PrivateSubForm_Click（）
Text1=Val（Text1）+1
第五题DimaAsString
Text1.FontName="
隶书"
Text1.FontSize=25
a=Text1.SelText
Text2.SelText=a
Text2.FontName="
Text2.FontSize=25
PrivateSubCommand3_Click（）
Text1.SelText="
"
PrivateSubCommand4_Click（）
End
PrivateSubForm_Load（）
熟练掌握了窗体的常用属性及事件过程；
了解了VB窗体和基本控件的属性、方法和事件的应用。
能够熟练地使用这些编写程序。
实验项目[3]名称：
VB语言基础试做日期：
2011.9.27/10.11
掌握VB的基本数据类型，了解VB中常量的使用与变量的定义；
熟悉VB的基本运算和各种运算符的含义及优先级别；
掌握表达式的正确书写规则，并通过上机操作验证各种表达式值的正确性；
熟练应用各种常用内部函数。
VB语言基础
1、练习例题3.1；
2、完成课后习题1、2、4、5；
3、完成实验B中的习题1、2、5、6。
实验B第一题
Dimf!
c!
f=Val（Text1）
c=5/9*（f-32）
Text2=Format（c,"
0.00"
）
c=Val（Text2）
f=9/5*c+32
Text1=Format（f,"
第二题PrivateSubCommand1_Click（）
Text2.Text=Format（3.14*Val（Text1.Text）*Val（Text1.Text）,"
Text3.Text=2*3.14*Val（Text1.Text）
PrivateSubText1_LostFocus（）
IfNotIsNumeric（Text1.Text）Then
MsgBox"
输入有非数字字符，请重新输入"
,"
警告"
Text1="
Text1.SetFocus
EndIf
第五题
Randomize
x=Int（Rnd*900+100）
Text1=x
a=x\100
b=（x-100*a）\10
c=xMod10
Label1=c*100+b*10+a
能够理解VB的基本数据类型，了解VB中常量的使用与变量的定义；
掌握表达式的正确书写规则，并熟知各种表达式值的正确性；
能够熟练应用这些函数编写程序。
实验项目[4]名称：
VB控制结构试做日期：
2011.10.18/10.25/11.1/11.8/11.15
1．掌握InputBox与MsgBox的使用，熟悉VB的数据输入输出方法；
2．掌握IF语句与SelectCase语句实现的选择结构。
3.掌握计数型循环与条件型循环语句。
VB的基本控制结构的组成及应用
1、练习例题4.2、4.3、4.16、4.17；
2、完成课后习题2、9、10、12、15；
3、完成实验C的1、3、7、8和实验D的1、2、6、8。
实验C第三题PrivateSubCommand1_Click（）
Dimx%,y%,z%
x=Val（InputBox（"
输入x"
））
y=Val（InputBox（"
输入y"
z=Val（InputBox（"
输入z"
Print"
排序前"
;
x;
"
y;
z
Ifx>
yAndx>
zAndy>
zThen
排序后"
x,"
ElseIfx>
zAndz>
yThen
z;
y
ElseIfy>
xAndy>
zAndx>
xThen
排序后;
y:
z;
x"
ElseIfz>
xAndz>
Else
x
第八题PrivateSubForm_Click（）
Dimt%
t=InputBox（"
输入1到7"
SelectCaset
Case1
MsgBox（"
Monday"
Case2
Tuesday"
Case3
Wednesday"
Case4
Thursday"
Case5
Friday"
Case6
saturday"
Case7
Sunday"
CaseElse
输入错误"
EndSelect
实验D第一题PrivateSubForm_Click（）
Fori=1To9
PrintTab（15-i）;
String（2*i-1,Trim（Str（i）））
Nexti
第六题PrivateSubForm_Click（）
Dimi!
Fori=100To999
If（i\100）^3+（i\10Mod10）^3+（iMod10）^3=iThen
Printi
Nexti
DimsumAsDouble,sum1AsDouble
Fori=1To30
sum=sum+100000
Printsum
temp=0.01
temp=temp*2
sum1=sum1+temp
Printsum1+1
熟练掌握了InputBox与MsgBox的使用，熟悉了VB的数据输入输出方法；
掌握了IF语句与SelectCase语句实现的选择结构。
了解了计数型循环与条件型循环语句。
并且能够熟练的应用其编写程序
实验项目[5]名称：
数组、列表框与组合框试做日期：
2011.11.22/11.29
1．掌握数组的声明、数组元素的引用，
2．掌握静态数组的应用及算法，
3.熟悉组合框和列表框的常用属性、事件和方法。
静态数组和动态数组的定义及应用，列表框和组合框的属性、事件和方法
1、练习例题5.3、5.4、5.5、5.6；
2、完成实验E中的1、2、3、4、5、7、8、9。
例题5.3PrivateSubForm_Click（）
Dimsc%（4，4）
Picture1.Print“产生方阵数据”
Fori=0To4
Forj=0To4
Sc（i，j）=i*5+j
Picture1.PrintTab（j*5）;
sc（I,j）
Nextj
Picture1.Print
Forj=ITo4时显示上三角函数
Forj=0Toi时显示下三角函数
例题5.6PrivateSubCommand1_Click（）
Dima（）,n%,i%,j%,t%
A=Array（8,6,9,3,2,7）
N=UBound（a）
Fori=0Ton-1
Forj=0Ton-1-i
Ifa（j）＞a（j+1）Then
T=a（j）:
a（j）=a（j+1）:
a（j+1）=t
Fori=0Ton:
Printa（i）;
:
实验E第一题PrivateSubForm_Click（）
Dima（9）AsInteger,max%,min%,ave!
max=30:
min=100:
ave=0
Fori=0To9
a（i）=Int（Rnd*71+30）
ave=ave+a（i）
Ifa（i）>
maxThenmax=a（i）
Ifa（i）<
minThenmin=a（i）
ave=ave/10
Print
Max="
max,"
Min="
min,"
Ave="
Format（ave,"
0.0"
第二题PrivateSubForm_Load（）
DimMarkAsVariant,i%
Form1.Show
Mark=Array（56,78,98,88,76,78）
Fori=LBound（Mark）ToUBound（Mark）
PrintString（Mark（i）\5,"
◆"
）;
Mark（i）
Print
第三题OptionExplicit
Dimd（1To20）AsInteger
DimiAsInteger
Picture1.Cls
Fori=1To20
d（i）=Int（Rnd（）*100）+1
Picture1.PrintFormat（d（i）,"
0"
IfiMod4=0ThenPicture1.Print
Dimb（5）AsInteger
Picture2.Cls
SelectCased（i）
Case0To59
b
（1）=b
（1）+1
Case60To69
b
（2）=b
（2）+1
Case70To79
b（3）=b（3）+1
Case80To89
b（4）=b（4）+1
Case90To100
b（5）=b（5）+1
Next
Picture2.Print"
0～59:
b
（1）;
个"
60～79:
b
（2）;
70～89:
b（3）;
80～99:
b（4）;
90～100:
b（5）;
第七题
PrivateSubList1_Click（）
List2.AddItemList1.List（List1.ListIndex）
List1.RemoveItemList1.ListIndex
IfList2.ListCount>
=5Then
MsgBox（"
超过5门，不能再选"
第八题
PrivateSubCombo1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
IfIsNumeric（Combo1.Text）Then
Combo1.AddItemCombo1.Text
Else
MsgBoxCombo1.Text&
不是数字!
EndIf
DimiAsInteger,minAsDouble,maxAsDouble,ooAsString,jAsInteger,kAsInteger
min=999999
max=-999999
Fori=0ToCombo1.ListCount-1
IfVal（Combo1.List（i））<
minThenmin=Val（Combo1.List（i））:
j=i
IfVal（Combo1.List（i））>
maxThenmax=Val（Combo1.List（i））:
k=i
oo=Combo1.List（0）
Combo1.List（0）=min
Combo1.List（j）=oo
Ifk=0Thenk=j
oo=Combo1.List（Combo1.ListCount-1）'
Combo1.List（Combo1.ListCount-1）=max
Combo1.List（k）=oo
了解了计数型循环与条件型循环语句。
并能使用其熟练编写程序。
实验项目[6]名称：
VB的过程试做日期：
2011.12.6/12.13
1．掌握函数过程和子过程的定义和调用方法。
2．了解形参、实参、传值与传址
VB的函数过程与子过程、形参与实参、传值与传址
1、练习例题6.2、6.5、6.6；
2、完成实验F中的1、2、4、7。
例题6.2Functiongccd%（ByValm%,ByValn%）
Ifm＜nThent=m:
m=n:
n=t
R=mModn
DoWhile（r＜＞0）
M=n:
n=r:
r=mModn
loop
gcd=n
EndFunction
例题6.5SubProcThe（ByVals$,ByRefCount%）
Dimi%,st$
Count=0
St=Trim（s）
I=InStr（st,”the”）
DoWhilei＞0
Count=Count+1
St=Mid（st,i+1）
I=InStr（st,”the”）
Loop
例题6.6SubSwap1（ByValx%,ByValy%）
T=x:
x=y:
y=t
SubSwap2（ByRefx%,ByRefy%）
SubCommand1_Click（）
Dima%,b%
A=10,b=20
Print“调用Swap1钱a和b的值为：
”;
Tab（40）;
a;
b
CallSwap1（a,b）
Print“调用Swap1后按传值方式a和b的值为：
A=10:
b=20
CallSwap2（a,b）
Print“调用Swap2后按传地址方式a和b的值为：
实验F第一题
Functionf%（ByValm%,ByValn%）
Ifm<
nThent=m:
m=n:
n=t
r=mModn
DoWhile（r<
>
0）
m=n
n=r
f=n
Dima%,b%,c%
a=Val（Text1）
b=Val（Text2）
c=f%（a,b）
Picture1.Printa&
&
b&
c
Dims$
s=Text1
t=Text2
Calldelestr（s,t）
Text3=s
Subdelestr（s1$,ByVals2$）
Dimi%,j%,k%
i=Len（s2）
j=InStr（s1,s2）
DoWhilej>
0
s1=Left（s1,j-1）+Mid（s1,j+i）
第二题PrivateSubCommand1_Click（）
Dimm,nAsLong
m=
升级会员 