Random 制作针数键盘随机化器

我想做的就是把数字从0分散到9，就像我在互联网上看到的Pin码键盘一样。 到目前为止，这是我的代码：

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

其中Command1（i）是我拥有的每个数字按钮的名称。目前，他们每个人都有一个与标题相同的索引。（好吧，标题和索引之间并没有真正的依赖关系，所以我们就到此为止）

现在，正如我所说，我想分散数字或重新排列数字，这就是为什么我有那个代码

你对此有更好的建议吗？：/我就是搞不懂。我在谷歌上搜索“无重复随机数”之类的东西，但我就是找不到

---

哦，如果你担心整个pin码键盘程序，你看不到任何标签或文本框或其他东西，就忽略它吧。我只想要我现在的目标。

哦，谢谢你在维基百科上提到的这个话题，钚。。。终于找到了！Private Sub Command3（）Dim i As Integer Dim j As Integer Dim tmp As Integer Randomize For i=0到9-1'选择一个随机条目。j=Int（（9-i+1）*Rnd+i）'交换数字。tmp=Command1（i）.Caption Command1（i）.Caption=Command1（j）.Caption Command1（j）.Caption=tmp Next i End Sub Private Sub Command1_Click（索引为整数）Text1.Text=Text1.Text&Command1（索引）.Caption Call Command3 End subhere有许多不同语言的随机代码示例。可能重复