VB to do a simulation of sports lottery 36 choose 7 small program (there will be extra points).

Double precision function JC(n is an integer)

Looking for factorial

JC = 1

For i = 1 to n

JC = JC * i

then

End function

Sub S36_7()

Select number

Continue to the next step when an error occurs.

For i = 0 to 6

Line 1:

a(i) = Fix(Rnd * 36) + 1

For j = 0 to i-1

If a(i) = a(j), then

Go to line 1

If ... it will be over.

then

then

End joint

Sub PrintNum()

output

For i = 0 to 6

Print a (1);

then

print

End joint

Private subcommand 1_Click ()

make a telephone call

Call S36_7

Call PrintNum

End joint

Private subcommand 2_Click ()

output

Print "Winning Probability"; JC(36) / JC(7) / JC(36 - 7)

End joint