网站首页 > 文章中心 > 其它

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

作者:小编 更新时间:2023-10-16 07:37:14 浏览量:9人看过

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

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

版权声明:倡导尊重与保护知识产权。未经许可,任何人不得复制、转载、或以其他方式使用本站《原创》内容,违者将追究其法律责任。本站文章内容,部分图片来源于网络,如有侵权,请联系我们修改或者删除处理。

编辑推荐

热门文章