如何让下面的随机函数不重复出现(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。启用=假

末端接头