10 numara tahmin kodu

Millipiyangonun oyunlarından biri olan 10 numara için kupon oluşturmaya yarayan bir kod var mı?

80 sayı olup gönder gelsin dediğimizde 10 sayı verecek..
vs vs

yok ama galiba programı vardı. bir ara denedim ama pek sevemedim...

örnek asp kodu

<% 
Dim tahmin(10)
For i=0 to 9
Randomize()
tahmin(i) = Int(Rnd * 80) + 1
Next
For i = 1 To 9
Do
Randomize()
tahmin(i) = Int(Rnd * 80) + 1 
Ktrl = True
For j = 0 To i - 1
If (tahmin(i) = tahmin(j)) Then 
Ktrl = False
Exit For
End If
Next
Loop Until Ktrl
Next
For i = 0 To 9
For j = 0 To 8
If (tahmin(j) > tahmin(j + 1)) Then
tahminn = tahmin(j)
tahmin(j) = tahmin(j + 1)
tahmin(j + 1) = tahminn
End If
Next
Next 
For k = 0 to 9
Response.Write tahmin(k) & " "
Next
%>

teşekkürler