本文介绍了我如何创建随机数的数组?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我在这个新的。我想创建16个元素的数组。比方说,我的阵列是使用ReDim ARR(15)作为整数和数组中我希望把这一数字从1到16,但炒,例如ARR(0)= 3,编曲(5)= 8等等。
I'm new at this. I want to create an array of 16 elements. Let's say that my array is ReDim arr(15) as Integer and in that array I want to put the numbers from 1 to 16 but scrambled, for example arr(0) = 3, arr(5) = 8 and so on.
推荐答案
试试这个:
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
这篇关于我如何创建随机数的数组?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!