<%
sous shuaxin()
dim outRed , outBlue , blueBall ,redBall(8) ,a , je
Randomiser
a=32
je=13
boulebleue =int(I*rnd()+1)
pour i=1 à 7
tmp = int(a*rnd()+1)
isSame = faux
pour j=1 à i-1
si redBall[j]=tmp alors isSame=true
suivant
si isSame=false alors
boule rouge[i] = tmp
autre
je = je - 1
finir si
suivant
outBlue = 蓝球: & blueBall
outRed = 红球 :
pour i = 1 à 7
outRed = outRed & redBall & ,
suivant
réponse.write outRed et outBlue
fin du sous
%>