我觉得你可以买个计划本高考倒计时器，这样更有感觉。或者你买个自己喜欢的笔记本，做好表格，写上几月几号然后小括号注明倒计时，在下面列今日计划

vb 高考倒计时

Private Sub Form_Load()
Dim 高考日期 As Date
Me.AutoRedraw = True
高考日期 = CDate(2009-6-30)
Me.Print 距高考还有 & DateDiff(y, Now, 高考日期) & 天
End Sub