Original Blog Entry: A Better Random Comb.

JADELottery — Fri, 05 May 2017 22:09:36 GMT

Function RandComb(ByVal N As Integer, ByVal R As Integer) As String

Dim vs As Integer 'Value Selection

Dim v(99) As Integer 'Values Array

Dim s(99) As Boolean 'Sorted Selected Values Array

Dim temp As String 'Temporary String Storeage

temp = 'Initialize Temporary String

'Initialize Arrays

For a = 0 To 99

v(a) = a

s(a) = False

Next

'Select R of N values

For a = 1 To R

vs = Int(Rnd * (N - a + 1)) + 1 'Randomly select a value from 1 to N of any remaining values less by previous selections

s(v(vs)) = True 'Set sorted select value array

'Shift to lower array positions those values greater than the current randomly selected value

For b = 1 To N - a

If b = vs Then

v(b) = v(b + 1)

End If

Next

Next

'Add in order the selected values

For a = 1 To 99

If (s(a)) Then temp = temp + Format(a, 00 )

Next

'Return the selected R of N values

RandComb = temp

End Function

... [ More ]