Tip: you can modify some code before running
<SCRIPT language=JavaScript>Var speed = 2;<!--速度-->Var cycledelay= 1000;<!--循环周期-->Var maxsize = 48;<!--最大数目-->Var x = 0; var y = 0; var themessage, size; var esize = ""; function initArray (){<!--初始化数组-->This. length = initArray. arguments. length; for (var I = 0; I <this. length; I ++) {this [I] = initArray. arguments [I] ;}}var themessage2 = new initArray (<!--初始化矩阵-->"Welcome to", "JavaScript world", "grand dedication", "webpage special effects", "colorful", "brilliant presentation"); if (navigator. appVersion. indexOf ("MSIE ")! =-1)<!--如果是ie浏览器-->Document. write ('<br>');<!--新的层-->Function upwords () {themessage = themessage2 [y];<!--读取第y条信息-->If (x <maxsize ){<!--当前字体大小小于最大值-->X ++;<!--字体变大-->SetTimeout ("upwords ()", speed);} else<!--当前字体已经最大-->SetTimeout ("downwords ()", cycledelay );<!--字体变小-->If (navigator. appVersion. indexOf ("MSIE ")! =-1 ){<!--如果是ie浏览器-->Wds. innerHTML ="<center>"+ Themessage +"</center>";<!--写入信息-->Wds. style. fontSize = x + 'px'<!--按照给定的字体-->} Function downwords () {if (x> 1 ){<!--如果当前字体比1大-->X --;<!--字体继续变小-->SetTimeout ("downwords ()", speed);} else {<!--字体已经最小-->SetTimeout ("upwords ()", cycledelay );<!--更换下一条信息-->Y ++;<!--下一条信息-->If (y> themessage2.length-1) y = 0;<!--如果到头,重头开始-->} If (navigator. appVersion. indexOf ("MSIE ")! =-1 ){<!--如果是ie浏览器-->Wds. innerHTML ="<center>"+ Themessage +"</center>";<!--写入信息-->Wds. style. fontSize = x + 'px'<!--按照给定的字体-->} SetTimeout ("upwords ()", speed );<!--调用upwords函数--></script><!--本例程实现了about窗口--><!--字体在窗口中变化的效果的实现--><!--循环处理、显示消息的方法--><!--settimeout函数实现动画效果-->
Tip: you can modify some code before running