关于要求：一个计时器，用于中考倒计时。即每天打开，都会告诉我：离中考还有**天（不要分秒）
谢谢
75分敬上
（先回答且正确者获分）！
不胜感激！的问题
下面为具体过程，附件中是源代码
1。创建VB工程，在窗体form1中绘三个Label控件，将其中一个的Name属性设置为Label
2。粘贴下列代码（已有详细注释）
————————此行以下为代码————————
Public Class Form1
Private Sub Form1_Load(ByVal sender As System。
Object, ByVal e As System。EventArgs) Handles MyBase。Load
Dim Timenow As Date
Dim StrTimeNow As String
Dim StrTimeTest As String = “2006-08-28”
‘设置中考时间，我不知道你们的中考日期，我们这里是每年6月20日
Dim Count As Integer = 1
Timenow = Now()
‘获取当前时间
StrTimeNow = Format(Timenow, “yyyy-MM-dd”)
‘将当前时间以yyyy-MM – dd形式转化为字符串, 如2006年1月1日转化为2006 – 1 – 1)
While StrTimeNow StrTimeTest
‘如果当前日期不等于中考日期
Timenow = DateAdd(“d”, 1, Timenow)
‘当前日期增加一天
StrTimeNow = Format(Timenow, “yyyy-MM-dd”)
‘将当前时间以yyyy-MM – dd形式转化为字符串
Count = Count + 1
‘计数器加一
End While
Label。
Text = (Count – 1) & vbCrLf
‘打印计数器-1, 便是倒计时天数
End Sub
End Class
————————此行以上为代码————————。
