亲,你好,很高兴为你解答哟
// 产生1~100的整数
$numbers = range(1, 100);
// 从1~100中选出10个不重复的整数,这里选出来的就是已经排好序的
$randNumbers = array_rand($numbers, 10);
print_r($randNumbers);
以上代码即可满足你的需求哦!~~希望可以帮到你!~~
Private Sub Command1_Click() Dim arr(1 To 20) For i = 1 To 20 arr(i) = Int(Rnd * 99) + 1 Next For i = 1 To 20 For j = i + 1 To 20 If arr(j) < arr(i) Then a = arr(j) arr(j) = arr(i) arr(i) = a End If Next Next Print Join(arr) End Sub