1、VB6.0中的冒号（:）
冒号（:）在vb程序编写中，是一个一行可写多个代码语句的连接符号，等同于多行语句连在一行。两种写法，实际效果相同，仅是一行代码紧凑，多行代码清晰便于阅读。
2、本程序设计涉及到的代码：
TextBox1（h）的代码——
PrivateSubh_LostFocus()h=Int(Val(h))检查是否含有小数或字母，如果含有则立即过滤Ifh0Thenh=0检查小时数是否小于0，如果是，则近似处理Ifh23Thenh=23检查小时数是否大于23，如果是，则近似处理EndSub
TextBox2（m）的代码——
PrivateSubm_LostFocus()m=Int(Val(m))检查是否含有小数或字母，如果含有则立即过滤Ifm0Thenm=0检查分钟数是否小于0，如果是，则近似处理Ifm59Thenm=59检查分钟数是否大于59，如果是，则近似处理EndSub
TextBox3（s）的代码——
PrivateSubs_LostFocus()s=Int(Val(s))检查是否含有小数或字母，如果含有则立即过滤Ifs0Thens=0检查秒数是否小于0，如果是，则近似处理Ifs59Thens=59检查秒数是否大于59，如果是，则近似处理EndSub
Command1（开始/停止）的代码——
PrivateSubCommand1_Click()Ifh=0Andm=0Ands=0ThenTimer1.Enabled=FalseElseTimer1.Enabled=Not(Timer1.Enabled)EndIfIfTimer1.Enabled=TrueThenh.Locked=True:m.Locked=True:s.Locked=TrueElseh.Locked=False:m.Locked=False:s.Locked=FalseEndIfEndSub
Command2（复位）的代码——
PrivateSubCommand2_Click()Timer1.Enabled=Falseh=0:m=0:s=0:h.Locked=False:m.Locked=False:s.Locked=FalseEndSub
Timer1的代码——
PrivateSubTimer1_Timer()Ifh=0Andm=0Ands=0ThenTimer1.Enabled=FalseMsgBox时间到！h.Locked=False:m.Locked=False:s.Locked=FalseElseIfs=0Thens=59Ifm=0Thenm=59:h=h-1Elsem=m-1EndIfElses=s-1EndIfEndSub
3、具体步骤如下图所示：
有需要自学的，可以从淘宝、京东查找一下“VB6.0”。
vb编程6.0从入门到精通淘宝￥50购买已下架