前言：
此时咱们对“随机数表读数可以重复吗”可能比较注意，小伙伴们都想要剖析一些“随机数表读数可以重复吗”的相关资讯。那么小编也在网络上搜集了一些对于“随机数表读数可以重复吗””的相关知识，希望看官们能喜欢，小伙伴们快快来了解一下吧！我们在生成100以内的随机数时，直接用Int(Rnd() * 100 + 1)，但实际应用中发现，老是会生成重复的数据，所以，我们就考虑是否可以让生成的一组数据不出现重复？
原理很简单，比如我们要生成10个随机数，生成一个随机数，我们就与已生成的随机去比较，看是否有重复，如果重复了，就返回重复生成一次，直到不重复。
代码：
Dim a(9) As Integer, i As Integer, j As Integer
Private Sub Command85_Click()
Dim strA As String
strA = ""
For i = 0 To 9
a(i) = Int(Rnd() * 100 + 1)
For j = 0 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
Next i
For j = 0 To 9
strA = strA & a(j) & ";"
Next j
Me.Label84.Caption = strA
End Sub
示例下载：
在“了解更多”里下载。
演示截图：
版权声明：
本站文章均来自互联网搜集，如有侵犯您的权益，请联系我们删除，谢谢。
标签： #随机数表读数可以重复吗
