vb实验报告.docx

vb实验报告.docx

《vb实验报告.docx》由会员分享，可在线阅读，更多相关《vb实验报告.docx（25页珍藏版）》请在冰豆网上搜索。

vb实验报告

新开实验试做报告

实验课程名称

数据库与程序设计B

学时数

32

新开实验项目个数

6

试做人员姓名

工程101班田永涛10062117

实

验

项

目

名

称

1

VB集成环境及简单应用程序建立

2

VB窗体和基本控件（4）

3

VB语言基础（4）

4

VB控制结构（10）

5

数组、列表框与组合框（8）

6

VB的过程（4）

7

8

9

10

11

12

13

14

15

16

院（部）验

收

组

审

查

意

见

负责人签字：

日期：

院（部）审

查

意

见

负责人签字：

日期：

实验项目[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

EndSub

PrivateSubTimer1_Timer（）

CallMyMove

EndSub

SubMyMove

Label1.MoveLabel1.Right，Label1.Left+50

IfLabel1.Left＞Form1.leftThenLabel1.Left=0

EndSub

第三题：

PrivateSubForm_Click（）

Text1=Val（Text1）+1

EndSub

第五题DimaAsString

PrivateSubCommand1_Click（）

Text1.FontName="隶书"

Text1.FontSize=25

EndSub

PrivateSubCommand2_Click（）

a=Text1.SelText

Text2.SelText=a

Text2.FontName="隶书"

Text2.FontSize=25

EndSub

PrivateSubCommand3_Click（）

a=Text1.SelText

Text2.SelText=a

Text1.SelText=""

Text2.FontName="隶书"

Text2.FontSize=25

EndSub

PrivateSubCommand4_Click（）

End

EndSub

PrivateSubForm_Load（）

EndSub

七、实验结果及分析

熟练掌握了窗体的常用属性及事件过程；控件Text、Label、Command的常用属性及事件过程。

了解了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。

四、使用仪器、材料

计算机及VisualBasic6.0

五、实验步骤

⑴建立用户界面需要的控件对象；⑵设置对象属性；⑶编写对象事件过程；

⑷保存文件（窗体文件和工程文件及其它）；⑸调试运行程序。

六、实验原始记录及其处理（数据、图表、计算等）

实验B第一题

PrivateSubCommand1_Click（）

Dimf!

c!

f=Val（Text1）

c=5/9*（f-32）

Text2=Format（c,"0.00"）

EndSub

PrivateSubCommand2_Click（）

Dimf!

c!

c=Val（Text2）

f=9/5*c+32

Text1=Format（f,"0.00"）

EndSub

第二题PrivateSubCommand1_Click（）

Text2.Text=Format（3.14*Val（Text1.Text）*Val（Text1.Text）,"0.00"）

EndSub

PrivateSubCommand2_Click（）

Text3.Text=2*3.14*Val（Text1.Text）

EndSub

PrivateSubText1_LostFocus（）

IfNotIsNumeric（Text1.Text）Then

MsgBox"输入有非数字字符，请重新输入",,"警告"

Text1=""

Text1.SetFocus

EndIf

EndSub

第五题

PrivateSubCommand1_Click（）

Randomize

x=Int（Rnd*900+100）

Text1=x

a=x\100

b=（x-100*a）\10

c=xMod10

EndSub

PrivateSubCommand2_Click（）

Label1=c*100+b*10+a

EndSub

七、实验结果及分析

能够理解VB的基本数据类型，了解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。

四、使用仪器、材料

计算机及VisualBasic6.0

五、实验步骤

⑴建立用户界面需要的控件对象；⑵设置对象属性；⑶编写对象事件过程；

⑷保存文件（窗体文件和工程文件及其它）；⑸调试运行程序。

六、实验原始记录及其处理（数据、图表、计算等）

实验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

Print"排序后";x,"";y;"";z

ElseIfx>yAndx>zAndz>yThen

Print"排序后";x;"";z;"";y

ElseIfy>xAndy>zAndx>zThen

Print"排序后";y;"";x;"";z

ElseIfy>xAndy>zAndz>xThen

Print"";排序后;";y:

";";z;";";x"

ElseIfz>xAndz>yAndx>yThen

Print"排序后";z;"";x;"";y

Else

Print"排序后";z;"";y;"";x

EndIf

第八题PrivateSubForm_Click（）

Dimt%

t=InputBox（"输入1到7"）

SelectCaset

Case1

MsgBox（"Monday"）

Case2

MsgBox（"Tuesday"）

Case3

MsgBox（"Wednesday"）

Case4

MsgBox（"Thursday"）

Case5

MsgBox（"Friday"）

Case6

MsgBox（"saturday"）

Case7

MsgBox（"Sunday"）

CaseElse

MsgBox（"输入错误"）

EndSelect

EndSub

实验D第一题PrivateSubForm_Click（）

Fori=1To9

PrintTab（15-i）;String（2*i-1,Trim（Str（i）））

Nexti

EndSub

第六题PrivateSubForm_Click（）

Dimi!

Fori=100To999

If（i\100）^3+（i\10Mod10）^3+（iMod10）^3=iThen

Printi

EndIf

Nexti

EndSub

第八题PrivateSubForm_Click（）

DimsumAsDouble,sum1AsDouble

Fori=1To30

sum=sum+100000

Nexti

Printsum

temp=0.01

Fori=1To30

temp=temp*2

sum1=sum1+temp

Nexti

Printsum1+1

EndSub

七、实验结果及分析

熟练掌握了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。

四、使用仪器、材料

计算机及VisualBasic6.0

五、实验步骤

⑴建立用户界面需要的控件对象；⑵设置对象属性；⑶编写对象事件过程；

⑷保存文件（窗体文件和工程文件及其它）；⑸调试运行程序。

六、实验原始记录及其处理（数据、图表、计算等）

例题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

Nexti

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

EndIf

Nextj

Nexti

Fori=0Ton:

Printa（i）;:

Nexti

EndSub

实验E第一题PrivateSubForm_Click（）

Dima（9）AsInteger,max%,min%,ave!

Randomize

max=30:

min=100:

ave=0

Fori=0To9

a（i）=Int（Rnd*71+30）

Printa（i）;

ave=ave+a（i）

Ifa（i）>maxThenmax=a（i）

Ifa（i）

Nexti

ave=ave/10

Print

Print"Max=";max,"Min=";min,"Ave=";Format（ave,"0.0"）

EndSub

第二题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

Nexti

EndSub

第三题OptionExplicit

Dimd（1To20）AsInteger

PrivateSubCommand1_Click（）

DimiAsInteger

Picture1.Cls

Fori=1To20

d（i）=Int（Rnd（）*100）+1

Picture1.PrintFormat（d（i）,"0"）;

IfiMod4=0ThenPicture1.Print

Nexti

EndSub

PrivateSubCommand2_Click（）

Dimb（5）AsInteger

DimiAsInteger

Picture2.Cls

Fori=1To20

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

EndSelect

Next

Picture2.Print"0～59:

";b

（1）;"个"

Picture2.Print"60～79:

";b

（2）;"个"

Picture2.Print"70～89:

";b（3）;"个"

Picture2.Print"80～99:

";b（4）;"个"

Picture2.Print"90～100:

";b（5）;"个"

EndSub

第七题

PrivateSubList1_Click（）

List2.AddItemList1.List（List1.ListIndex）

List1.RemoveItemList1.ListIndex

IfList2.ListCount>=5Then

MsgBox（"超过5门，不能再选"）

EndIf

EndSub

第八题

PrivateSubCombo1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

IfIsNumeric（Combo1.Text）Then

Combo1.AddItemCombo1.Text

Else

MsgBoxCombo1.Text&"不是数字!

"

EndIf

EndIf

EndSub

PrivateSubCommand1_Click（）

DimiAsInteger,minAsDouble,maxAsDouble,ooAsString,jAsInteger,kAsInteger

min=999999

max=-999999

Fori=0ToCombo1.ListCount-1

IfVal（Combo1.List（i））

j=i

IfVal（Combo1.List（i））>maxThenmax=Val（Combo1.List（i））:

k=i

Next

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

EndSub

七、实验结果及分析

熟练掌握了InputBox与MsgBox的使用，熟悉了VB的数据输入输出方法；掌握了IF语句与SelectCase语句实现的选择结构。

了解了计数型循环与条件型循环语句。

并能使用其熟练编写程序。

实验项目[6]名称：

VB的过程试做日期：

2011.12.6/12.13

一、实验目的

1．掌握函数过程和子过程的定义和调用方法。

2．了解形参、实参、传值与传址

二、实验原理

VB的函数过程与子过程、形参与实参、传值与传址

三、实验内容

1、练习例题6.2、6.5、6.6；

2、完成实验F中的1、2、4、7。

四、使用仪器、材料

计算机及VisualBasic6.0

五、实验步骤

⑴建立用户界面需要的控件对象；⑵设置对象属性；⑶编写对象事件过程；

⑷保存文件（窗体文件和工程文件及其它）；⑸调试运行程序。

六、实验原始记录及其处理（数据、图表、计算等）

例题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

EndSub

例题6.6SubSwap1（ByValx%,ByValy%）

Dimt%

T=x:

x=y:

y=t

EndSub

SubSwap2（ByRefx%,ByRefy%）

Dimt%

T=x:

x=y:

y=t

EndSub

SubCommand1_Click（）

Dima%,b%

A=10,b=20

Print“调用Swap1钱a和b的值为：

”;Tab（40）;a;b

CallSwap1（a,b）

Print“调用Swap1后按传值方式a和b的值为：

”;Tab（40）;a;b

A=10:

b=20

CallSwap2（a,b）

Print“调用Swap2后按传地址方式a和b的值为：

”;Tab（40）;a;b

EndSub

实验F第一题

Functionf%（ByValm%,ByValn%）

Ifm

m=n:

n=t

r=mModn

DoWhile（r<>0）

m=n

n=r

r=mModn

Loop

f=n

EndFunction

PrivateSubCommand1_Click（）

Dima%,b%,c%

a=Val（Text1）

b=Val（Text2）

c=f%（a,b）

Picture1.Printa&""&b&""&c

EndSub

PrivateSubForm_Load（）

EndSub

PrivateSubCommand1_Click（）

Dims$

s=Text1

t=Text2

Calldelestr（s,t）

Text3=s

EndSub

Subdelestr（s1$,ByVals2$）

Dimi%,j%,k%

i=Len（s2）

j=InStr（s1,s2）

DoWhilej>0

s1=Left（s1,j-1）+Mid（s1,j+i）

j=InStr（s1,s2）

Loop

EndSub

PrivateSubForm_Load（）

EndSub

第二题PrivateSubCommand1_Click（）

Dimm,nAsLong

m=