如何讓下面的隨機函數不重復出現(VB)？

Dim n為整數，a(20)為整數

私有子命令1_Click()？初始化

n = 20

對於i = 1到n

a(i) = i

接下來我

打印

命令2。啟用=真

末端接頭

Private Sub Command2_Click()'隨機提取不重復的數字。

使不規則化

k = Int(Rnd * n) + 1

打印a(k)；

a(k) = a(n)

n = n - 1

如果n Mod 10 = 0，則打印

如果n = 0，則命令2。啟用=假

末端接頭