资料杂谈
vb秒表（旧版）

OptionExplicit

DimmTime1AsDate

PrivateSubCommand1_Click()

IfCommand1.Caption=开始Then

Label2.Caption=开始时间:CStr(Format(Now,hh:mm:ssAM/pm))

Timer2.Enabled=True

Timer2.Interval=1000

mTime1=00:00:00

Command1.Caption=结束

Label3.Caption=共用时间:

Else

Timer2.Enabled=False

Timer2.Interval=0

Command1.Caption=开始

Label3.Caption=共用时间:CStr(mTime1)

EndIf

EndSub

PrivateSubForm_L)

Command1.Caption=开始

Timer1.Enabled=True

Timer1.Interval=1000

Timer2.Enabled=False

EndSub

PrivateSubTimer1_Timer()

Label1.Caption=当前时间:CStr(Format(Now,hh:mm:ssAM/pm))

EndSub

PrivateSubTimer2_Timer()

mTime1=TimeValue(mTime1)+TimeValue(00:00:01)

EndSubscreen.width*0.35)this.width=screen.width*0.40

读书三件事：阅读，收藏，加打赏！