vb怎么随机产生不重复的数字_vb随机数产生但不重复数字

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

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

以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用，就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！