程序代码简单小程序.docxVIP

实验一（带有进度条的倒计时程序）

PublicClassForm1

DimtimersAsIntegerDimtempAsInteger

PrivateSubTimer1_Tick(ByValsenderAs,ByValeAs HandlesIf + /timers Then

+= /timers

Else

=False

=

(进度完成！)

EndIftemp+=1

=()

EndSub

PrivateSubForm1_Load(ByValsenderAs,ByValeAs Handlestimers=30

EndSub

PrivateSubButton2_Click(ByValsenderAs,ByValeAs Handlestimers=Val(InputBox(输入,请输入总时间。,30,0,0))

EndSub

PrivateSubButton1_Click(ByValsenderAs,ByValeAs Handles

=TrueEndSub

EndClass

实验二（定时器控制蝴蝶飞舞）

PublicClassForm1DimtAsInteger

PrivateSubTimer1_Tick(ByValsenderAs,ByValeAs Handles’DimtAsBoolean

Ift=TrueThen =

t=FalseElse

=

t=TrueEndIfSelectCaset

Case0

=

t=1

Case1

=

t=2

Case2

=

t=3

Case3

=

t=0EndSelect

EndSubEndClass

实验三（递推法迭代法--猴子吃桃）

PublicClassForm1

PrivateSubButton1_Click(ByValsenderAs,ByValeAs HandlesDimn,yAsInteger

n=Valy=Val

DimxiAsDoublexi=y

=第+()+天的桃子为：+()+个。+vbCrLfForiAsInteger=n-1To1Step-1

xi=(xi+1)*2

+=第+()+天的桃子为：+()+个。+vbCrLf

Next

EndSubEndClass

实验四（加减乘除随机数题）

PublicClassForm1

Dimx,yAsIntegerDimiAsIntegerDimsumAsInteger

PrivateSubButton2_Click(ByValsenderAs,ByValeAs HandlesIf )Then

+= +

+= 结果

If(sum=Val)Then

+=√+vbCrLf

Else

+=×+vbCrLf

EndIf

EndIfRandomize()

x=Int(Rnd()*999+1)y=Int(Rnd()*999+1)i=Int(Rnd()*4+1)SelectCasei

Case1

=()+＋+()+＝

sum=x+yCase2

=()+－+()+＝

sum=x-yCase3

=()+×+()+＝

sum=x*yCase4

=()+÷+()+＝

sum=x/yEndSelect

EndSubEndClass

谢谢大家！！！！！！