1。给定一个时间，要求自动倒计时
2。调用现在的时间，自动倒计时

如何编写程序啊？

谢谢大哥啦，我本来以为倒计时程序应该很容易呢，看了大哥的程序，居然那么多语句啊
我刚学VB不久，你的程序哪断是调用系统内部时间的啊，我看书上写的是用format语句，您的是用什么语句调用的啊？谢谢大哥指导

首先，我想说，做任何东西，不要感觉他容易才去做，难的我们更要去学着做。
不管黑猫白猫，抓到老鼠的就是好猫呀。先达到目的吧，先有再完美吗。
其它的我不太清楚，没有做过，以前老师教过我们用时钟调REB()颜色控制作窗体的背景的自动变化，跟这个差不多，只不过你的是减法，随心所欲吧。

Text1.Text = Time() '这就是将系统时间写入text1的文本框
time1 = Split(Time(), ":") '这里是用split()函数将系统时间分隔成“时：分：秒”
hour = CInt(time1(0)) '这里是将分隔的小时赋给变量“hour”
minute = CInt(time1(1)) '这里是将分隔的分钟赋给变量“minute”
second = CInt(time1(2)) '这里是将分隔的秒钟赋给变量“second”

分好了后，然后再用时钟控件来做判断，时钟每加一秒，如果秒钟>0,秒变时值就减1，当秒钟<1的时候，分钟减1，秒钟又变成60秒，时钟是一样的判断。
If second > 0 Then '当秒钟大于0时
second = second - 1 '秒钟做减法
End If
If second < 1 And minute > 0 Then '当秒钟<1和分钟>0
minute = minute - 1 '分钟减1
second = 60 '秒钟重新计数
End If
If minute < 1 And second = 0 And hour > 0 Then '当分钟<1、秒钟=0和小时大于0时
hour = hour - 1 '小时做一次减法
minute = 60 '分钟做一次减法
End If
If hour < 0 Then '不能让小时小于零，所以当小时<0
hour = 0 ' 小时重新赋值为0
End If
If minute < 0 Then '不能让分钟小于零，所以当分钟<0
minute = 0 ' 分钟重新赋值为0

End If

'下面一行是显示倒计时的时间
Text1.Text = Trim(Str(hour)) + ":" + Trim(Str(minute)) + ":" + Trim(Str(second))
'下面一行就是判断三个变时是不是都各自等于小时、分钟、秒钟文本框中的值。如果等于，就弹出消息框“时间到了”
If hour = Int(h1.Text) And minute = Int(m1.Text) And second = Int(s1.Text) Then
MsgBox ("时间到了")
End If

当三个变量值分别等于相应该文本框里的值时，就报告一次，可以跟据自己的思想来增加程序难度。

[此贴子已经被作者于2006-3-28 16:31:07编辑过]

不错，上楼朋友说得对，Interval属生是时钟控件的重要属性。
Interval属性固然重要，但我觉得还是程序的思想是最重要的。