|
1
2
3
4
5
6
7
8
9
10
11
12
13 |
Private
Sub random(ByVal
num As
Integer, ByVal
min As
Integer, ByVal
max As
Integer) Dim
i As Integer = 1 Dim
number As
Integer Dim
numbers As
String = "" While
i <= num number = CInt(Rnd() * (max - min + 1) + 1) While
InStr(numbers, "‘"
+ CStr(number) + "‘") > 0 number = CInt(Rnd() * (max - min + 1) + 1) End
While numbers += "‘"
+ CStr(number) + "‘," i += 1 End
WhileEnd Sub |
原文：http://www.cnblogs.com/vinsonLu/p/3557300.html