毕业就是爽!

要进高中了,我要像在华初时一样努力!!!!!!

快试试吧，
可以对自己使用挽尊卡咯~

◆

嘿!努力你个混呐�

218.78.247.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

<HTML>
<HEAD>
<TITLE>星期几</TITLE>
<SCRIPT LANGUAGE="VBScript">
a=cint(Inputbox("星期几"))
If a>0 Then
If a<=7 Then

If a=1 Then o=Msgbox("星期一")

If a=2 Then o=Msgbox("星期二")

If a=3 Then o=Msgbox("星期三")

If a=4 Then o=Msgbox("星期四")

If a=5 Then o=Msgbox("星期五")

If a=6 Then o=Msgbox("星期六")

If a=7 Then o=Msgbox("星期日")

Else
o=Msgbox("不存在 & a")
End If
Else
o=Msgbox("不存在 & a")

End If

</SCRIPT>

</HEAD>
<BODY>

</BODY>

</HTML>

218.78.247.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

<HTML>
<HEAD>
<TITLE>星期几</TITLE>
<SCRIPT LANGUAGE="VBScript">
a=cint(Inputbox("星期几"))
If a>0 Then
If a<=7 Then

If a=1 Then o=Msgbox("星期一")

If a=2 Then o=Msgbox("星期二")

If a=3 Then o=Msgbox("星期三")

If a=4 Then o=Msgbox("星期四")

If a=5 Then o=Msgbox("星期五")

If a=6 Then o=Msgbox("星期六")

If a=7 Then o=Msgbox("星期日")

Else
o=Msgbox("不存在" & a)
End If
Else
o=Msgbox("不存在" & a)

End If

</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>

218.78.247.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

<HTML>
<HEAD>
<TITLE>p2005-1</TITLE>
<SCRIPT LANGUAGE="VBScript">
a=cint(Inputbox("星期几"))
Select Case a

case 1 o=Msgbox("星期一")
case 2 o=Msgbox("星期二")
case 3 o=Msgbox("星期三")
case 4 o=Msgbox("星期四")
case 5 o=Msgbox("星期五")
case 6 o=Msgbox("星期六")
case 7 o=Msgbox("星期日")
case else o=Msgbox("不存在" & a)

End Select

</SCRIPT>

</HEAD>
<BODY>

</BODY>

</HTML>