<%
суб Шуаксин ()
dim outRed , outBlue , blueBall ,redBall(8) ,a , I
Рандомизировать
а=32
я=13
blueBall =int(I*rnd()+1)
для я = от 1 до 7
tmp = int(a*rnd()+1)
isSame = ложь
для j=1 до i-1
если redBall[j]=tmp, то isSame=true
следующий
если isSame=false, то
redBall[i] = tmp
еще
я = я - 1
конец, если
следующий
outBlue = 蓝球: & blueBall
outRed = 红球:
для я = от 1 до 7
outRed = outRed & redBall & ,
следующий
ответ.записать outRed и outBlue
конец субтитра
%>