Draft

From CleanPosts

Revision as of 17:18, 7 April 2019 by Selah (Talk | contribs)
Jump to: navigation, search
 Dim iArr As Variant
 Dim i As Integer
 Dim r As Integer
 Dim temp As Integer


 Application.Volatile


 ReDim iArr(Bottom To Top)
 For i = Bottom To Top
     iArr(i) = i
 Next i


 For i = Top To Bottom + 1 Step -1
     r = Int(Rnd() * (i - Bottom + 1)) + Bottom
     temp = iArr(r)
     iArr(r) = iArr(i)
     iArr(i) = temp
 Next i


 For i = Bottom To Bottom + Amount - 1
     RandLotto = RandLotto & " " & iArr(i)
 Next i


 RandLotto = Trim(RandLotto)
Personal tools
Strangers In Paradise