急急急！！！帮忙把一段java script转换成vb script - vbscript吧

level 2

甘州艾弗森楼主

<html>
<head>
<script>
var i,j,k,center;
var number=new Array();
function choice()
{
var num=document.getElementById("q").value;
for(i=1;i<=num;i++)
{
if(i<10)
document.write("第"+"0"+i+"注 : ");
else
document.write("第"+i+"注 : ");
for(j=1;j<=6;j++)
{
number[j]=parseInt(Math.random()*33+1);
for(k=j-1;k>0;k--)
{
if(number[k]==number[j])
{
number[j]=parseInt(Math.random()*33+1);
k=j;
}
}
}
for(j=1;j<=6;j++)
{
for(k=j+1;k<=6;k++)
{
if(number[j]>=number[k])
{
temp=number[j];
number[j]=number[k];
number[k]=temp;
}
}
}
for(j=1;j<=6;j++)
{
if(number[j]>=10)
document.write("<font color=red 红色 >" +number[j]+"-" + "</font>");
else
document.write("<font color=red 红色 >" +"0"+number[j]+"-" + "</font>");
}
number[0]=parseInt(Math.random()*16+1);
if(number[0]>=10)
document.write("<font color=blue 蓝色 >" +number[0]+"<br>" + "</font>");
else
document.write("<font color=blue 蓝色 >" +"0"+number[0]+"<br>" + "</font>");
}
}
</script>
</head>
<body>
请输入注数
<input id=q>
<input type="button" value="确定" onClick="javascript:choice()"/>
</html>

2012年01月01日 08点01分 1