7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
crazyxf 2003-06-30
- 打赏
- 举报
Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGUID As GUID) As Long
Private Declare Function StringFromGUID2 Lib "OLE32.DLL" (pGUID As GUID, ByVal PointerToString As Long, ByVal MaxLength As Long) As Long
Private Type GUID '定义UID
Guid1 As Long
Guid2 As Long
Guid3 As Long
Guid4(0 To 7) As Byte
End Type
'***************************************
'自动产生一个36位的GUID
'***************************************
Public Function CreateGUID() As String
Dim udtGUID As GUID
Dim sGUID As String
Dim lResult As Long
lResult = CoCreateGuid(udtGUID)
If lResult Then
sGUID = ""
Else
sGUID = String$(38, 0)
StringFromGUID2 udtGUID, StrPtr(sGUID), 39
End If
CreateGUID = sGUID
End Function
全球唯一码生成，绝对不会重复
Private Declare Function StringFromGUID2 Lib "OLE32.DLL" (pGUID As GUID, ByVal PointerToString As Long, ByVal MaxLength As Long) As Long
Private Type GUID '定义UID
Guid1 As Long
Guid2 As Long
Guid3 As Long
Guid4(0 To 7) As Byte
End Type
'***************************************
'自动产生一个36位的GUID
'***************************************
Public Function CreateGUID() As String
Dim udtGUID As GUID
Dim sGUID As String
Dim lResult As Long
lResult = CoCreateGuid(udtGUID)
If lResult Then
sGUID = ""
Else
sGUID = String$(38, 0)
StringFromGUID2 udtGUID, StrPtr(sGUID), 39
End If
CreateGUID = sGUID
End Function
全球唯一码生成，绝对不会重复
ChenChen88 2003-06-30
- 打赏
- 举报
楼主,上面这些方法基本有效(不是全部),不过有些确实是滥竽充数.给分要小心
lnhsgj 2003-06-30
- 打赏
- 举报
Dim d(19) As Integer
Randomize Timer
For a = 0 To 19
b = Int(100 * Rnd)
For c = 0 To 19
If b = d(c) Then
a = a - 1
Exit For
End If
Next c
d(a) = b
Next a
Randomize Timer
For a = 0 To 19
b = Int(100 * Rnd)
For c = 0 To 19
If b = d(c) Then
a = a - 1
Exit For
End If
Next c
d(a) = b
Next a
crazyxf 2003-06-30
- 打赏
- 举报
回复人： liuguangxing(liuguangxing) ( ) 信誉：98
不会吧，这个据说一秒钟产生1000万个guid,持续产生1000年也不会重复的
不会吧，这个据说一秒钟产生1000万个guid,持续产生1000年也不会重复的
yujiabian 2003-06-30
- 打赏
- 举报
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(20) As Long, i As Long, j As Long
For i = 1 To 20
Randomize Timer
l:
a(i) = Rnd * 50 + 50
For j = 1 To i - 1
If a(j) = a(i) Then GoTo l
Next j
Debug.Print a(i)
Next i
End Sub
Option Base 1
Private Sub Command1_Click()
Dim a(20) As Long, i As Long, j As Long
For i = 1 To 20
Randomize Timer
l:
a(i) = Rnd * 50 + 50
For j = 1 To i - 1
If a(j) = a(i) Then GoTo l
Next j
Debug.Print a(i)
Next i
End Sub
liuguangxing 2003-06-30
- 打赏
- 举报
crazyxf(网海鲨鱼):
楼上的大鲨鱼啊，这个uuid不尽然啊，我们曾经测试过，100万次中就出现了一次啊！
楼上的大鲨鱼啊，这个uuid不尽然啊，我们曾经测试过，100万次中就出现了一次啊！
rainstormmaster 2003-06-29
- 打赏
- 举报
建议使用FSO对象的词典，可以利用词典的Exists方法判定新产生的随机数是否已经产生过：
Option Explicit
'注意引用microsoft scripting runtime
Private Sub Command1_Click()
Dim numarr(1 To 20) As Long
Dim mydict As New Dictionary
Dim i As Long, num As Long
i = 1
Do
Randomize
num = CLng(Rnd * 65535)'这里的65535你可以取小些，以适应你的要求
If mydict.Exists(num) = False Then
mydict.Add num, CStr(i)
numarr(i) = num
i = i + 1
End If
Loop While i <= 20
End Sub
Option Explicit
'注意引用microsoft scripting runtime
Private Sub Command1_Click()
Dim numarr(1 To 20) As Long
Dim mydict As New Dictionary
Dim i As Long, num As Long
i = 1
Do
Randomize
num = CLng(Rnd * 65535)'这里的65535你可以取小些，以适应你的要求
If mydict.Exists(num) = False Then
mydict.Add num, CStr(i)
numarr(i) = num
i = i + 1
End If
Loop While i <= 20
End Sub
gyxqwer 2003-06-29
- 打赏
- 举报
Int((20 * Rnd) + 1)能生成一组随机数，但是一但有第一次后，以后每次运行时
产生的都会一样，所以要改变一下20，才能得到另一组随机数，没必用那长的代码
产生的都会一样，所以要改变一下20，才能得到另一组随机数，没必用那长的代码
AechoJohn 2003-06-29
- 打赏
- 举报
dim blnF as boolean
dim lngAry() as long ,lngI as long ,lngK as long ,lngU as long ,lngII as long
lngU = 19' base 0
redim lngAry(lngU)
randomize timer
for lngI = 0 to lngU
lngK = int(rnd() * 20 + 1)
blnF = false
do
for lngII = 0 to lngI
if lngAry(lngII) = lngK then
blnF = true
exit for
end if
next lngII
loop while (blnF) '这个地方测试一下
lngAry(lngI) = lngK
next lngI
直接在这儿写,没有测试,你用一下,应该没有什么问题.
dim lngAry() as long ,lngI as long ,lngK as long ,lngU as long ,lngII as long
lngU = 19' base 0
redim lngAry(lngU)
randomize timer
for lngI = 0 to lngU
lngK = int(rnd() * 20 + 1)
blnF = false
do
for lngII = 0 to lngI
if lngAry(lngII) = lngK then
blnF = true
exit for
end if
next lngII
loop while (blnF) '这个地方测试一下
lngAry(lngI) = lngK
next lngI
直接在这儿写,没有测试,你用一下,应该没有什么问题.
Beover1984 2003-06-29
- 打赏
- 举报
Rondmize time()
Int((20 * Rnd) + 1)
Int((20 * Rnd) + 1)
smalle 2003-06-29
- 打赏
- 举报
上面的方法不太好,我给一个更好的给你
假设你的随机数在0到1000,要取10个不同的随机数.
先把0到1000分成10组,每组的数字个数不一定相等,但最好接近,然后在每组取一个随机数,所取得的一堆随机数就是不同的了.
假设你的随机数在0到1000,要取10个不同的随机数.
先把0到1000分成10组,每组的数字个数不一定相等,但最好接近,然后在每组取一个随机数,所取得的一堆随机数就是不同的了.
wingchi 2003-06-29
- 打赏
- 举报
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(20) As Long, i As Long, j As Long
For i = 1 To 20
Randomize Timer
l:
a(i) = Rnd * 50 + 50
For j = 1 To i - 1
If a(j) = a(i) Then GoTo l
Next j
Debug.Print a(i)
Next i
End Sub
csdngoodnight 2003-06-29
- 打赏
- 举报
还少一个呢？
做一个码农都是奢望 2003-06-29
- 打赏
- 举报
up
goodname008 2003-06-29
- 打赏
- 举报
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim a(20) As Long, i As Long, j As Long
For i = 1 To 20
Randomize Timer
l:
a(i) = Rnd * 50 + 50
For j = 1 To i - 1
If a(j) = a(i) Then GoTo l
Next j
Debug.Print a(i)
Next i
End Sub
Option Base 1
Private Sub Command1_Click()
Dim a(20) As Long, i As Long, j As Long
For i = 1 To 20
Randomize Timer
l:
a(i) = Rnd * 50 + 50
For j = 1 To i - 1
If a(j) = a(i) Then GoTo l
Next j
Debug.Print a(i)
Next i
End Sub
gpo2002 2003-06-29
- 打赏
- 举报
msgbox Int((20 * Rnd) + 1) ' Generate random value between 1 and 20.
Rnd Function
Returns a Single containing a random number.
Syntax
Rnd[(number)]
The optional number argument is a Single or any valid numeric expression.
Return Values
If number is Rnd generates
Less than zero The same number every time, using number as the seed.
Greater than zero The next random number in the sequence.
Equal to zero The most recently generated number.
Not supplied The next random number in the sequence.
Remarks
The Rnd function returns a value less than 1 but greater than or equal to zero.
The value of number determines how Rnd generates a random number:
For any given initial seed, the same number sequence is generated because each successive call to the Rnd function uses the previous number as a seed for the next number in the sequence.
Before calling Rnd, use the Randomize statement without an argument to initialize the random-number generator with a seed based on the system timer.
To produce random integers in a given range, use this formula:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the range.
Note To repeat sequences of random numbers, call Rnd with a negative argument immediately before using Randomize with a numeric argument. Using Randomize with the same value for number does not repeat the previous sequence.
Rnd Function
Returns a Single containing a random number.
Syntax
Rnd[(number)]
The optional number argument is a Single or any valid numeric expression.
Return Values
If number is Rnd generates
Less than zero The same number every time, using number as the seed.
Greater than zero The next random number in the sequence.
Equal to zero The most recently generated number.
Not supplied The next random number in the sequence.
Remarks
The Rnd function returns a value less than 1 but greater than or equal to zero.
The value of number determines how Rnd generates a random number:
For any given initial seed, the same number sequence is generated because each successive call to the Rnd function uses the previous number as a seed for the next number in the sequence.
Before calling Rnd, use the Randomize statement without an argument to initialize the random-number generator with a seed based on the system timer.
To produce random integers in a given range, use this formula:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the range.
Note To repeat sequences of random numbers, call Rnd with a negative argument immediately before using Randomize with a numeric argument. Using Randomize with the same value for number does not repeat the previous sequence.
