UC知道谁能把这个变成向左跑
来源：百度知道 编辑：UC知道 时间：2024/06/30 19:49:07
<script language=VBscript>
dim a,b,i
a = "欢迎光临解！"
i = 0
a = string(70," ") & a
sub sub1
b = right(a,i)
window.status = b
if i>len(a) then
i = 0
else
i = i+1
end if
settimeout "sub1",100
end sub
sub1
</script>
dim a,b,i
a = "欢迎光临解！"
i = 0
a = string(70," ") & a
sub sub1
b = right(a,i)
window.status = b
if i>len(a) then
i = 0
else
i = i+1
end if
settimeout "sub1",100
end sub
sub1
</script>
<script language=VBscript>
dim a,b,i
a = "欢迎光临解！"
i = len(a)
a = string(70," ") & a
sub sub1
b = right(a,i)
window.status = b
if i> 0 then
i = i -1
else
i = len(a)
end if
settimeout "sub1",100
end sub
sub1
</script>