<%
sub shuaxin()
dim outRed , outBlue , blueBall ,redBall(8) ,a , I
Randomisieren
a=32
Ich=13
blueBall =int(I*rnd()+1)
für i=1 bis 7
tmp = int(a*rnd()+1)
isSame=false
für j=1 bis i-1
Wenn redBall[j]=tmp, dann ist isSame=true
nächste
wenn isSame=false dann
redBall[i] = tmp
anders
ich = ich - 1
Ende wenn
nächste
outBlue = 蓝球： & blueBall
outRed = 红球:
für i = 1 bis 7
outRed = outRed & redBall & ,
nächste
Antwort.write outRed & outBlue
Ende sub
%>