Question

我想做的就是在NumPad内“分散”0到9之间的数字，就像我在互联网上看到的Pin Number Pads一样。到目前为止，这是我的代码：

Private Sub Command3_Click()
   For i = 0 To 9
       Command1(i).Caption = Int(10 * Rnd)
   Next i
End Sub

其中Command1（i）是我拥有的每个数字按钮的名称。目前，他们每个人的指数都等于他们的标题。（好吧，标题和索引之间并没有真正的依赖关系，所以让我们把它留在那里）

现在，正如我所说，我想分散数字或重新排列数字，这就是我拥有该代码的原因。

你对此有更好的建议吗？：/我只是无法得到它。我在Google上搜索了“No Duplication Random numbers”，但是我无法理解它。

哦，如果你担心整个pin号码垫程序，你没有看到任何标签或文本框或其他什么，请忽略它。我只想要我现在的目标。