<%
subshuaxin()
dim outRed , outBlue , blueBall ,redBall(8) ,a , I
Randomizar
uma=32
Eu = 13
bolaazul =int(I*rnd()+1)
para i = 1 a 7
tmp = int(a*rnd()+1)
éMesmo=falso
para j = 1 para i-1
se redBall[j]=tmp então isSame=true
próximo
se isSame=falso então
bola vermelha[i] = tmp
outro
eu = eu - 1
terminar se
próximo
outBlue = 蓝球： & blueBall
outRed = 红球:
para eu = 1 a 7
outRed = outRed & redBall & ,
próximo
resposta.write outRed e outBlue
final sub
%>