vb随机数产生但不重复数字
Private Sub Command1_Click()
Text1 = rndx
End Sub
Function rndx() As Integer
Dim i, j, k As Integer
i = Int(Rnd() * 10)
j = Int(Rnd() * 10)
Do While j = i
DoEvents
Loop
k = Int(Rnd() * 10)
Do While k = i Or k = j
str1 = Val(Str(i) & Str(j) & Str(k))
rndx = str1
End Function直接使用函数rndx就返回你要的数了!
分别生成不相同的三位数组合起来就是啦!
vb怎么产生不重复随机数
使用Randomize 语句,初始化随机数生成器.
Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器.由于忽略了数值参数, 所以
Randomize 用 Timer 函数的返回值作为新的随机数种子值.
Dim MyValue
用VB怎么产生不重复的随机数?
Dim a(1 To 10) As Integer
Static n As Integer
n = n + 1
①.0 Then Exit Sub
Do
x = Int((10 - 1 + 1) * Rnd + 1)
j = True
For i = 1 To n - 1
If x = a(i) Then j = False: Exit For
Next i
Loop Until j
a(n) = x
Command1.Caption = a(n)
Private Sub Form_Load()
Randomize
如何用VB生成随意不重复的数字
For j = 1 To i - 1
If a(i) = a(j) Then i = i - 1: Exit For '将生成的随机数字与已有的随机数字比较,若出现相同的,该数剔除,返回重新生成
Next
Print a(i);
s = s & a(i)
Print s
VB中产生几个不重复的随机数字,(尽量要简单点)
Dim n(10) As Integer
For i = 0 To 10
n(i) = abc(i)
Function abc(ByVal i As Integer) As Integer
a = Int(Rnd() * 100)
For j = 0 To i - 1
If n(j) = a Then
a = abc(i)
End If
abc = a
以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!