-
ย่อยซัวซิน()
dim outRed , outBlue , blueBall ,redBall(8) ,a , I
สุ่ม
ก=32
ผม=13
blueBall =int(I*rnd()+1)
สำหรับ i=1 ถึง 7
tmp = int(a*rnd()+1)
คือเหมือนกัน=เท็จ
สำหรับ j=1 ถึง i-1
ถ้า redBall[j]=tmp แล้ว isSame=true
ต่อไป
ถ้า isSame=false แล้ว
เรดบอล[i] = tmp
อื่น
ฉัน = ฉัน - 1
สิ้นสุดถ้า
ต่อไป
outBlue = 蓝球： & blueBall
outRed = 红球:
สำหรับฉัน = 1 ถึง 7
outRed = outRed & redBall & ,
ต่อไป
response.write outRed & outBlue
จบย่อย
-