vb语言代码翻译

Question

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
aoyun = #8/8/2008#
a = 19 - Hour(Time)
b = DateDiff("d", Now, aoyun)
If a < 0 Then
a = 24 + a
b = b - 1
End If
Label1 = "距离奥运开幕还有" & b & "天" & a & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"
End Sub

Answer 1

Private Sub Form_Load()'启动函数
Timer1.Interval = 1000'设置时间控件每1秒钟执行一次动作
End Sub

Private Sub Timer1_Timer()'时间控件执行函数
aoyun = #8/8/2008#’赋值日期变量北京奥运开幕日期
a = 19 - Hour(Time)‘得到开幕时间与现在小时差
b = DateDiff("d", Now, aoyun)得到开幕日期差
If a < 0 Then’小时超过19点即日期减一天时间加24小时修正
a = 24 + a‘小时加24小时
b = b - 1日期减一天
End If
Label1 = "距离奥运开幕还有" & b & "天" & a & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"’显示
End Sub

Answer 2

Private Sub Form_Load() ’单击窗体
Timer1.Interval = 1000’设定timer1的interval的值为1000
End Sub

Private Sub Timer1_Timer()
aoyun = #8/8/2008# 显示日期格式
a = 19 - Hour(Time) 给变量a赋值
b = DateDiff("d", Now, aoyun) 给变量b 赋值
If a < 0 Then 条件语句
a = 24 + a
b = b - 1
End If
Label1 = "距离奥运开幕还有" & b & "天" & a & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒" 显示时间
End Sub

Answer 3

天空是小鸟家，河流是鱼儿的家，地球是我们的家,谁能忍受每天戴着防毒面具过日子？——还空气清新吧! 资源有限,节省燃油就是珍惜生命,安装美洲狮车神，功在当代、利在千秋。 美洲狮车神节油15-35%，减少废气排放50%，增加动力10-20%，现诚招各区县区域代理商，做美洲狮产品代理商勿需店铺，投资2万左右，年盈利10-20万，备有详细的项目分析报告，函索即寄，想找真正的零风险创业赚钱项目，请加986650380了解环保节能项目美洲狮车神