<%
sub shuaxin()
redupkan Merah , keluarBiru , bola biru ,bola merah(8) ,a , I
Acak
Sebuah=32
saya=13
bola biru =int(I*rnd()+1)
untuk i=1 sampai 7
tmp = ke dalam(a*rnd()+1)
sama=salah
untuk j=1 sampai i-1
jika redBall[j]=tmp maka isSame=true
Berikutnya
jika isSame=salah maka
bola merah[i] = tmp
kalau tidak
saya = saya - 1
berakhir jika
Berikutnya
outBlue = 蓝球: & blueBall
keluarMerah = 红球:
untuk saya = 1 sampai 7
keluarMerah = keluarMerah & bola merah & ,
Berikutnya
respon.tulis Merah & keluar Biru
sub akhir
%>