【已解决】已知5个数值，如何随机选出1个，然后下一次随机从另外4个选出，依次类推

烟雨

已知5个数值，如何随机选出1个，然后下一次随机从另外4个选出，依次类推
5选1
然后4选1
然后3选1
然后2选1
然后1选1
选出来的数值不参与下一次的选择，高手来吧

烟雨

#include <Array.au3>

Local $aNum[5]
For $i = 0 To 4
        $aNum[$i] = Random(1, 5) & "," & ($i + 1)
Next
_Arraysort($aNum)
For $i = 0 To 4
        $aVar = StringSplit($aNum[$i], ",")
        Msgbox(0, '', $aVar[2])
Next

veket_linux

Local $array[10]=[0]
Local $i
Local $str = ""
For $i = 0 To UBound($array)-1
        $array[$i] = Random(0, 100, 1)
        $str &= $array[$i] & ","
Next
$str =StringTrimRight($str, 1)
$str = "随机生成的数据:" & @CRLF & $str & @CRLF & @CRLF
Local $j
Local $index
Local $last = UBound($array)-1
Local $tmp
While $last>0
        For $i=0 To $last
                $str &= $array[$i] & ", "
        Next
        $str &= ",,,取出,,,"
        $index = Random(0, $last, 1)
        If $index <> $last Then
                $tmp = $array[$last]
                $array[$last] = $array[$index]
                $array[$index] = $tmp
        EndIf
        $str &= $array[$last] & "," & @CRLF
        $last -= 1
WEnd
MsgBox(0, "随机生成的数据", $str & $array[$last])

烟雨

回复 3# veket_linux


   膜拜