Как создать массив со случайными числами?

Question

Я новичок в этом. Я хочу создать массив из 16 элементов. Предположим, что мой массив является ReDim arr (15) как Integer, и в этом массиве я хочу поместить числа от 1 до 16, но скремблирован, например arr (0) = 3, arr (5) = 8 и т. Д.

Answer 1

Вот некоторые очень ленивый код:

Dim arr(15) As Integer 
Dim i As Integer, j As Integer 
i = 1 
Do 
    j = Int(16 * Rnd) 
    If arr(j) = 0 Then 
     arr(j) = i 
     i = i + 1 
    End If 
Loop Until i = 17 

Rnd генерирует single от 0 до 1, умножить на 16 и полосы десятичной части с Int, и это даст вам случайное число от 0 до 15 .

Это неэффективно, я бы не использовал его в производстве, но он выполнит эту работу.

Надеюсь, это поможет!

Answer 2

Дайте этому попытку:

Sub MAIN() 
    Dim ary(1 To 16) As Variant 
    Dim i As Long, msg As String 

    For i = 1 To 16 
     ary(i) = i 
    Next i 

    Call Shuffle(ary) 

    msg = "" 
    For i = 1 To 16 
     msg = msg & vbCrLf & ary(i) 
    Next i 
    MsgBox msg 
End Sub 

Sub Shuffle(InOut() As Variant) 
    Dim HowMany As Long, i As Long, J As Long 
    Dim tempF As Double, temp As Variant 

    Hi = UBound(InOut) 
    Low = LBound(InOut) 
    ReDim Helper(Low To Hi) As Double 
    Randomize 

    For i = Low To Hi 
     Helper(i) = Rnd 
    Next i 


    J = (Hi - Low + 1) \ 2 
    Do While J > 0 
     For i = Low To Hi - J 
      If Helper(i) > Helper(i + J) Then 
      tempF = Helper(i) 
      Helper(i) = Helper(i + J) 
      Helper(i + J) = tempF 
      temp = InOut(i) 
      InOut(i) = InOut(i + J) 
      InOut(i + J) = temp 
      End If 
     Next i 
     For i = Hi - J To Low Step -1 
      If Helper(i) > Helper(i + J) Then 
      tempF = Helper(i) 
      Helper(i) = Helper(i + J) 
      Helper(i + J) = tempF 
      temp = InOut(i) 
      InOut(i) = InOut(i + J) 
      InOut(i + J) = temp 
      End If 
     Next i 
     J = J \ 2 
    Loop 
End Sub