'已生成0-20之间的随机数为例；有问题可以咨询我；Int((上界 - 下界 + 1) * Rnd + 下界)
Dim arr() As Integer
Dim s As Integer
Dim j As Integer
Private Sub Command1_Click()
j = j + 1
If j = 22 Then
MsgBox "0-20间随机数已全部生成"
End
End If
Dim a, b As Integer
X:
b = Int((20 - 0 + 1) * Rnd + 0)
If s > 0 Then
For a = 1 To UBound(arr)
If b = arr(a) Then GoTo X:
Next
End If
s = s + 1
ReDim Preserve arr(s)
arr(s) = b
Text1.Text = b
Print "第" & j & "个随机数是：" & b
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024