这个程序用VB怎么改
<body bgcolor=white OnLoad="stack()"><SCRIPT LANGUAGE="JavaScript">
<!-- hide script from old browsers
var phrase = "晕晕晕晕晕晕晕晕晕!!!";
var lenPhrase = phrase.length;
var phraseOut = "";
var pause = 25;
var i=0;
var j=0;
var animateWidth = 20;
var position=animateWidth;
function stack() {
if (phrase.charAt(i) != " ") {
phraseOut = "";
for (j=0; j<i; j++) {
phraseOut += phrase.charAt(j);
}
for (j=i; j<position; j++) {
phraseOut += " ";
}
phraseOut += phrase.charAt(i);
for (j=position; j<animateWidth; j++) {
phraseOut += " ";
}
window.status = phraseOut;
if (position == i) {
animateWidth++;
position = animateWidth;
i++;
}
else {
position--;
}
}
else {
i++
}
if (i<lenPhrase) {
setTimeout("stack()",pause);
}
}
// end hiding contents -->
</SCRIPT>
<
/body> --------------------编程问答-------------------- UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP --------------------编程问答-------------------- 是改成 VB ,还是改成 VBScript ???
补充:VB , 基础类