<%
subshuaxin()
tenue outRed, outBlue, blueBall, redBall(8), a, I
Aleatorizar
a=32
yo=13
bolaazul =int(I*rnd()+1)
para i=1 a 7
tmp = int(a*rnd()+1)
es igual = falso
para j=1 a i-1
si redBall[j]=tmp entonces esSame=true
próximo
si es igual = falso entonces
bola roja[i] = tmp
demás
yo = yo - 1
terminar si
próximo
outBlue = 蓝球： & blueBall
outRed = 红球:
para i = 1 a 7
outRed = outRed & redBall &,
próximo
respuesta.escribir rojo y azul
sub final
%>