资料杂谈
动态秒表（旧版）

OptionExplicit

DimxAsLong

DimhAsLong,mAsLong,sAsLong,msAsLong

DimcjlhAsLong,cjlmAsLong,cjlsAsLong

DimcjlmsAsString

PrivateSubForm_L)

Form1.StartUpPosition=2

Form1.Caption=真正的动态秒表（小时：分：秒.毫秒）

Command1.Caption=开始[S]

Command2.Caption=结束[E]

Label1.Alignment=2居中对齐

Label1.Caption=00:00:00.000

Timer1.Interval=10

Timer1.Enabled=False

Label1.BackColor=H0

Label1.ForeColor=HFF00

Label1.Font.Name=ArialRoundedMTBold

Label1.Alignment=2

x=0

EndSub

PrivateSubCommand1_Click()

Timer1.Enabled=True

Label1.Font.Size=24

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=False

Label1.Font.Size=14

x=0

Label1.Caption=运行了IIf(Len(Trim(Str(h)))2,0Trim(Str(h)),Trim(Str(h)))小时IIf(Len(Trim(Str(m)))2,0Trim(Str(m)),Trim(Str(m)))分IIf(Len(Trim(Str(s)))2,0Trim(Str(s)),Trim(Str(s)))秒cjlms毫秒

Form1.Caption=Label1.Caption

EndSub

PrivateSubTimer1_Timer()每1秒钟触发100次

x=x+10单位是毫秒

cjlh=Int(x/3600000)

h=cjlh取得小时

cjlm=Int(((xMod3600000)/60000))关键在这里，用INT取整，不用INT的话，每30秒进1,有点奇怪

m=cjlm取得分钟

cjls=Int(((xMod3600000)Mod60000)/1000)

s=cjls取得秒种

ms=(((xMod3600000)Mod60000)Mod1000)

IfLen(Trim(Str(ms)))=2Then

cjlms=0Trim(Str(ms))

EndIf

IfLen(Trim(Str(ms)))=3Then

cjlms=Trim(Str(ms))

EndIf

cjlms=Left(cjlms,2)Trim(Str(Int(Rnd*9)))

Label1.Caption=IIf(Len(Trim(Str(h)))2,0Trim(Str(h)),Trim(Str(h)))+:+IIf(Len(Trim(Str(m)))2,0Trim(Str(m)),Trim(Str(m)))+:+IIf(Len(Trim(Str(s)))2,0Trim(Str(s)),Trim(Str(s)))+.+cjlms

EndSub

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