举报
#include "array.au3" $n = 5 ;要取的总个数 $Bx = "" ;显示用 Dim $A[5] ;存放5个数 For $i = 0 To 4 ;放数进去 $A[$i] = $i + 1 Next For $i = 1 To $n $y = Random(1, UBound($A)-1, 1) $Bx &=$A[$y] _ArrayDelete($A, $y) Next MsgBox(0, "", $Bx)
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-1-12 22:51 , Processed in 0.072444 second(s), 20 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.