High score requires vb to generate several non-repetitive random numbers.

Add the controls text 1, text2, text3 and command 1 to the form, and then copy and run the following code. When you enter a number in text 1 and a number range in text2, press the command 1 button, and text3 will display n unique random numbers.

Option explicit

Private subcommand 1_Click ()

Dim i is an integer, J is an integer, K is an integer, ss, tt () is an integer, and outzf is a string.

ss = Split(Text 1。 Text, ",")

Redim TT

K = Val (text 2. Text)

If k> discover (ss)+1then

MsgBox "The generated quantity you entered is greater than the quantity list, please correct it!"

outlet connection

If ... it will be over.

Irregular

do

j = Rnd * k

If tt(j) = 0, then

tt(j) = 1

Outzf = outzf & ampss(j) and amp ","

i = i + 1

If ... it will be over.

Multiple activities

Loop until I = K.

SMS 3. Text = outzf

End joint