1到10的隨機排列如何編程？

將I標註為整數

私有子窗體_Load()

我。AutoRedraw = True

使不規則化

i = 1

For i = LBound(shuzu)至UBound(shuzu)

shuzu(I)= 1+Int(100 * Rnd())

印刷術組(壹)；

然後

打印

派旭書族

For i = LBound(shuzu)至UBound(shuzu)

印刷術組(壹)；

然後

末端接頭

Sub paixu(shuzu()為整數)

Dim j為整數

將k標註為整數

將m標註為整數

j = 1

k = 1

對於j = 1到UBound(shuzu) - 1

對於k = 1到UBound(shuzu) - 1

if shuzu(k+1)& lt；shuzu(k)然後

m =舒祖(k)

shuzu(k) = shuzu(k + 1)

shuzu(k + 1) = m

如果…就會結束

然後

然後

末端接頭