求VB的时钟代码，指针式和电子表数码管式
直接发到邮箱:15651686276@qq.com希望能加些注释，不需要太详细。好的加分。补充下要求，右键菜单改指针背景的颜色和背景图样式。分无限加啊。...
直接发到邮箱:15651686276@qq.com
希望能加些注释，不需要太详细。
好的加分。
补充下要求，右键菜单改指针背景的颜色和背景图样式。分无限加啊。 展开
希望能加些注释，不需要太详细。
好的加分。
补充下要求，右键菜单改指针背景的颜色和背景图样式。分无限加啊。 展开
展开全部
<html>
<head>
<script language="vbscript">
dim y,m,d,w,ww
y=Year(Date)
m=Month(Date)
d=Day(Date)
w=WeekDay(Date)
select case w
case 1
ww="星期日"
case 2
ww="星期一"
case 3
ww="星期二"
case 4
ww="星期三"
case 5
ww="星期四"
case 6
ww="星期五"
case 7
ww="<font color=red>星期日</font>"
end select
sub tt()
bb.innerHTML=cstr(time)
call setTimeout("tt()",1000)
end sub
</script>
</head>
<body onLoad="tt()">
<script language="vbscript">
document.write("今天是 "&y&"年"&m&"月"&d&"日 "&ww&"<br>")
</script>
现在的时间是：<span id="bb"></span>
</body>
</html>
<head>
<script language="vbscript">
dim y,m,d,w,ww
y=Year(Date)
m=Month(Date)
d=Day(Date)
w=WeekDay(Date)
select case w
case 1
ww="星期日"
case 2
ww="星期一"
case 3
ww="星期二"
case 4
ww="星期三"
case 5
ww="星期四"
case 6
ww="星期五"
case 7
ww="<font color=red>星期日</font>"
end select
sub tt()
bb.innerHTML=cstr(time)
call setTimeout("tt()",1000)
end sub
</script>
</head>
<body onLoad="tt()">
<script language="vbscript">
document.write("今天是 "&y&"年"&m&"月"&d&"日 "&ww&"<br>")
</script>
现在的时间是：<span id="bb"></span>
</body>
</html>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
