vb 高考倒计时

Question

想用VB写一个高考倒计时程序，就是一打开程序就在窗体显示“距高考还有**天”，不用文本框和空间，请大虾指教~~~
我只学过几天VB，勉强过计算机会考，里面的函数几乎都不知道、、
方便的话直接帮我生成exe.谢谢了！我邮箱[email protected]

Answer 1

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

Answer 2

我建议用Excel来完成吧
简单的很！

A1中选择你要输入日期单元格 格式如："2008-11-11"
A2中输入=NOW()，并且在选中状态下右击鼠标右键，选择“设置单元格格式”---在数字中“分类”选择日期--在示例类型中选择你需要的类型，然后确定。
A3中输入=DATEDIF(A2,A1,"d")

Answer 3

【09年高考倒计时器】的代码：this.createEmptyMovieClip("myMC", this.getNextHighestDepth());
myMC.createTextField("myTxt", 0, 0, 0, 0, 0);
myMC.myTxt.autoSize = true;
myMC._x = Stage.width*0.5-myMC._width*0.5;
myMC._y = Stage.height*0.5-myMC._height*0.5;
var EndDate:Date = new Date(2009, 5, 7, 8);
this.onEnterFrame = function() {
var newDate:Date = new Date();
var _temp:Number;
var newTime:Number = (EndDate-newDate)/1000;
var newDay:Number = (newTime/3600/24) >> 0;
var newHour:Number = (newTime%(3600*24)/3600) >> 0;
var newMin:Number = ((newTime%(3600*24)%3600)/60) >> 0;
var newSec:Number = (newTime%(3600*24)%3600%60) >> 0;
myMC.myTxt.text = "距离2009全国高考还有"+newDay+"天"+newHour+"小时"+newMin+"分钟"+newSec+"秒";
if (newTime<=0) {
myMC.myTxt.text = "倒计时完毕";
delete onEnterFrame;
}
};