blocks|key|1565341|text|要获得一个介于1和N(包括1和N)之间的随机整数值，可以使用以下命令。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1565342|CInt(Math.Ceiling(Rnd()+*+n))+%2B+1|code-block|syntax|javascript|1565343|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

To get a random integer value between 1 and N (inclusive) you can use the following.

<pre><code>CInt(Math.Ceiling(Rnd() * n)) + 1
</code></pre>

blocks|key|1780379|text|Public+Function+RandomNumber(ByVal+n+As+Integer)+As+Integer
++++'initialize+random+number+generator
++++Dim+r+As+New+Random(System.DateTime.Now.Millisecond)
++++Return+r.Next(1,+n)
End+Function|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1780380|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Public Function RandomNumber(ByVal n As Integer) As Integer
 'initialize random number generator
 Dim r As New Random(System.DateTime.Now.Millisecond)
 Return r.Next(1, n)
End Function
</code></pre>

blocks|key|1565363|text|使用System.Random|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1565364|Dim+MyMin+As+Integer+=+1,+MyMax+As+Integer+=+5,+My1stRandomNumber+As+Integer,+My2ndRandomNumber+As+Integer

'+Create+a+random+number+generator
Dim+Generator+As+System.Random+=+New+System.Random()

'+Get+a+random+number+>=+MyMin+and+<=+MyMax
My1stRandomNumber+=+Generator.Next(MyMin,+MyMax+%2B+1)+'+Note:+Next+function+returns+numbers+_less+than_+max,+so+pass+in+max+%2B+1+to+include+max+as+a+possible+value

'+Get+another+random+number+(don't+create+a+new+generator,+use+the+same+one)
My2ndRandomNumber+=+Generator.Next(MyMin,+MyMax+%2B+1)|code-block|syntax|javascript|1565365|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/system.random.aspx^0|2|D|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@$A|R|B|S|1|T]]|C|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]]]

Use <a href="http://msdn.microsoft.com/en-us/library/system.random.aspx" rel="noreferrer">System.Random</a>:

<pre><code>Dim MyMin As Integer = 1, MyMax As Integer = 5, My1stRandomNumber As Integer, My2ndRandomNumber As Integer

' Create a random number generator
Dim Generator As System.Random = New System.Random()

' Get a random number &gt;= MyMin and &lt;= MyMax
My1stRandomNumber = Generator.Next(MyMin, MyMax + 1) ' Note: Next function returns numbers _less than_ max, so pass in max + 1 to include max as a possible value

' Get another random number (don't create a new generator, use the same one)
My2ndRandomNumber = Generator.Next(MyMin, MyMax + 1)
</code></pre>

blocks|key|1565434|text|正如已经多次指出的，建议编写这样的代码是有问题的：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1565435|Public+Function+GetRandom(ByVal+Min+As+Integer,+ByVal+Max+As+Integer)+As+Integer
++++Dim+Generator+As+System.Random+=+New+System.Random()
++++Return+Generator.Next(Min,+Max)
End+Function|code-block|syntax|javascript|1565436|原因是Random类的构造函数提供了基于系统时钟的默认种子。在大多数系统上，这是有限的粒度--大约在20ms左右。所以，如果你写了下面的代码，你将会连续得到相同的数字：|offset|length|style|CODE|1565437|Dim+randoms(1000)+As+Integer
For+i+As+Integer+=+0+to+randoms.Length+-+1
++++randoms(i)+=+GetRandom(1,+100)
Next|1565438|下面的代码解决了这个问题：|1565439|Public+Function+GetRandom(ByVal+Min+As+Integer,+ByVal+Max+As+Integer)+As+Integer
++++'+by+making+Generator+static,+we+preserve+the+same+instance+'
++++'+(i.e.,+do+not+create+new+instances+with+the+same+seed+over+and+over)+'
++++'+between+calls+'
++++Static+Generator+As+System.Random+=+New+System.Random()
++++Return+Generator.Next(Min,+Max)
End+Function|1565440|我拼凑了一个简单的程序，使用这两种方法生成了25个介于1和100之间的随机整数。下面是输出：|1565441|Non-static:+70+Static:+70
Non-static:+70+Static:+46
Non-static:+70+Static:+58
Non-static:+70+Static:+19
Non-static:+70+Static:+79
Non-static:+70+Static:+24
Non-static:+70+Static:+14
Non-static:+70+Static:+46
Non-static:+70+Static:+82
Non-static:+70+Static:+31
Non-static:+70+Static:+25
Non-static:+70+Static:+8
Non-static:+70+Static:+76
Non-static:+70+Static:+74
Non-static:+70+Static:+84
Non-static:+70+Static:+39
Non-static:+70+Static:+30
Non-static:+70+Static:+55
Non-static:+70+Static:+49
Non-static:+70+Static:+21
Non-static:+70+Static:+99
Non-static:+70+Static:+15
Non-static:+70+Static:+83
Non-static:+70+Static:+26
Non-static:+70+Static:+16
Non-static:+70+Static:+75|1565442|entityMap^0|0|0|3|6|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|Z|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|10|8|@$I|11|J|12|K|L]]|9|@]|A|$]]|$1|M|3|N|5|D|7|13|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|14|8|@]|9|@]|A|$]]|$1|Q|3|R|5|D|7|15|8|@]|9|@]|A|$E|F]]|$1|S|3|T|5|6|7|16|8|@]|9|@]|A|$]]|$1|U|3|V|5|D|7|17|8|@]|9|@]|A|$E|F]]|$1|W|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|X|$]]

As has been pointed out many times, the suggestion to write code like this is problematic:

<pre><code>Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
 Dim Generator As System.Random = New System.Random()
 Return Generator.Next(Min, Max)
End Function
</code></pre>

The reason is that the constructor for the <code>Random</code> class provides a default seed based on the system's clock. On most systems, this has limited granularity -- somewhere in the vicinity of 20 ms. So if you write the following code, you're going to get the same number a bunch of times in a row:

<pre><code>Dim randoms(1000) As Integer
For i As Integer = 0 to randoms.Length - 1
 randoms(i) = GetRandom(1, 100)
Next
</code></pre>

The following code addresses this issue:

<pre><code>Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
 ' by making Generator static, we preserve the same instance '
 ' (i.e., do not create new instances with the same seed over and over) '
 ' between calls '
 Static Generator As System.Random = New System.Random()
 Return Generator.Next(Min, Max)
End Function
</code></pre>

I threw together a simple program using both methods to generate 25 random integers between 1 and 100. Here's the output:

<pre><code>Non-static: 70 Static: 70
Non-static: 70 Static: 46
Non-static: 70 Static: 58
Non-static: 70 Static: 19
Non-static: 70 Static: 79
Non-static: 70 Static: 24
Non-static: 70 Static: 14
Non-static: 70 Static: 46
Non-static: 70 Static: 82
Non-static: 70 Static: 31
Non-static: 70 Static: 25
Non-static: 70 Static: 8
Non-static: 70 Static: 76
Non-static: 70 Static: 74
Non-static: 70 Static: 84
Non-static: 70 Static: 39
Non-static: 70 Static: 30
Non-static: 70 Static: 55
Non-static: 70 Static: 49
Non-static: 70 Static: 21
Non-static: 70 Static: 99
Non-static: 70 Static: 15
Non-static: 70 Static: 83
Non-static: 70 Static: 26
Non-static: 70 Static: 16
Non-static: 70 Static: 75
</code></pre>

blocks|key|1780509|text|Function+xrand()+As+Long
++++++++Dim+r1+As+Long+=+Now.Day+&+Now.Month+&+Now.Year+&+Now.Hour+&+Now.Minute+&+Now.Second+&+Now.Millisecond
++++++++Dim+RAND+As+Long+=+Math.Max(r1,+r1+*+2)
++++++++Return+RAND
End+Function|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1780510|这是最好的方法，从零开始:P|unstyled|1780511|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>Function xrand() As Long
 Dim r1 As Long = Now.Day &amp; Now.Month &amp; Now.Year &amp; Now.Hour &amp; Now.Minute &amp; Now.Second &amp; Now.Millisecond
 Dim RAND As Long = Math.Max(r1, r1 * 2)
 Return RAND
End Function
</code></pre>

[BBOYSE]
This its the best way, from scratch :P

blocks|key|1565537|text|如果你使用Joseph的答案，这是一个很好的答案，你可以像这样背靠背地运行：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1565538|dim+i+=+GetRandom(1,+1715)
dim+o+=+GetRandom(1,+1715)|code-block|syntax|javascript|1565539|然后，结果可能会一遍又一遍地返回相同的结果，因为它处理调用的速度非常快。这在08年可能不是问题，但由于现在的处理器速度要快得多，该函数不允许系统时钟在进行第二次调用之前有足够的时间进行更改。|1565540|因为System.Random()函数是基于系统时钟的，所以我们需要留出足够的时间让它在下一次调用之前进行更改。实现这一点的一种方法是将当前线程暂停1毫秒。如下例所示：|1565541|Public+Function+GetRandom(ByVal+min+as+Integer,+ByVal+max+as+Integer)+as+Integer
++++Static+staticRandomGenerator+As+New+System.Random
++++max+%2B=+1
++++Return+staticRandomGenerator.Next(If(min+>+max,+max,+min),+If(min+>+max,+min,+max))
End+Function|1565542|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|R|8|@]|9|@]|A|$]]|$1|K|3|L|5|D|7|S|8|@]|9|@]|A|$E|F]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

If you are using Joseph's answer which is a great answer, and you run these back to back like this:

<pre><code>dim i = GetRandom(1, 1715)
dim o = GetRandom(1, 1715)
</code></pre>

Then the result could come back the same over and over because it processes the call so quickly. This may not have been an issue in '08, but since the processors are much faster today, the function doesn't allow the system clock enough time to change prior to making the second call. 

Since the System.Random() function is based on the system clock, we need to allow enough time for it to change prior to the next call. One way of accomplishing this is to pause the current thread for 1 millisecond. See example below:

<pre><code>Public Function GetRandom(ByVal min as Integer, ByVal max as Integer) as Integer
 Static staticRandomGenerator As New System.Random
 max += 1
 Return staticRandomGenerator.Next(If(min &gt; max, max, min), If(min &gt; max, min, max))
End Function
</code></pre>

blocks|key|1780558|text|Dim+rnd+As+Random+=+New+Random
rnd.Next(n)|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1780559|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Dim rnd As Random = New Random
rnd.Next(n)
</code></pre>

blocks|key|1565628|text|您应该只创建一次伪随机数生成器：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1565629|Dim+Generator+As+System.Random+=+New+System.Random()|code-block|syntax|javascript|1565630|然后，如果一个整数足以满足您的需求，您可以使用：|1565631|Public+Function+GetRandom(myGenerator+As+System.Random,+ByVal+Min+As+Integer,+ByVal+Max+As+Integer)+As+Integer
'min+is+inclusive,+max+is+exclusive+(dah!)
Return+myGenerator.Next(Min,+Max+%2B+1)
End+Function|1565632|你想要多少次都行。使用包装器函数是合理的，因为最大值是独占的-我知道随机数是这样工作的，但是.Next的定义是令人困惑的。|1565633|在我看来，每次需要一个数字时都创建一个生成器是错误的；伪随机数不是这样工作的。|1565634|首先，你得到了初始化的问题，这已经在其他回复中讨论过了。如果你初始化一次，就不会有这个问题。|1565635|其次，我根本不确定你是否得到了一个有效的随机数序列；相反，你得到的是多个不同序列的第一个数字的集合，这些序列是基于计算机时间自动播种的。我不确定这些数字是否能通过测试来确认序列的随机性。|1565636|entityMap^0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|W|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|X|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|Y|8|@]|9|@]|A|$]]|$1|M|3|N|5|6|7|Z|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|10|8|@]|9|@]|A|$]]|$1|Q|3|R|5|6|7|11|8|@]|9|@]|A|$]]|$1|S|3|-4|5|6|7|12|8|@]|9|@]|A|$]]]|T|$]]

You should create a pseudo-random number generator only once:

<pre><code>Dim Generator As System.Random = New System.Random()
</code></pre>

Then, if an integer suffices for your needs, you can use:

<pre><code>Public Function GetRandom(myGenerator As System.Random, ByVal Min As Integer, ByVal Max As Integer) As Integer
'min is inclusive, max is exclusive (dah!)
Return myGenerator.Next(Min, Max + 1)
End Function
</code></pre>

as many times as you like. Using the wrapper function is justified only because the maximum value is exclusive - I know that the random numbers work this way but the definition of .Next is confusing.

Creating a generator every time you need a number is in my opinion wrong; the pseudo-random numbers do not work this way.

First, you get the problem with initialization which has been discussed in the other replies. If you initialize once, you do not have this problem.

Second, I am not at all certain that you get a valid sequence of random numbers; rather, you get a collection of the first number of multiple different sequences which are seeded automatically based on computer time. I am not certain that these numbers will pass the tests that confirm the randomness of the sequence.

blocks|key|1565670|text|微软示例Rnd+Function|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1565671|https://msdn.microsoft.com/en-us/library/f7s023d2%2528v=vs.90%2529.aspx|1565672|1-初始化随机数生成器。|1565673|Randomize()|code-block|syntax|javascript|1565674|2-生成1到6之间的随机值。|1565675|Dim+value+As+Integer+=+CInt(Int((6+*+Rnd())+%2B+1))|1565676|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/en-us/library/f7s023d2%2528v=vs.90%2529.aspx|1|https://msdn.microsoft.com/en-us/library/f7s023d2%2528v=vs.90%2529.aspx^0|4|C|0|0|0|1V|1|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|10|8|@]|9|@$A|11|B|12|1|13]]|C|$]]|$1|D|3|E|5|6|7|14|8|@]|9|@$A|15|B|16|1|17]]|C|$]]|$1|F|3|G|5|6|7|18|8|@]|9|@]|C|$]]|$1|H|3|I|5|J|7|19|8|@]|9|@]|C|$K|L]]|$1|M|3|N|5|6|7|1A|8|@]|9|@]|C|$]]|$1|O|3|P|5|J|7|1B|8|@]|9|@]|C|$K|L]]|$1|Q|3|-4|5|6|7|1C|8|@]|9|@]|C|$]]]|R|$S|$5|T|U|V|C|$W|X]]|Y|$5|T|U|V|C|$W|Z]]]]

Microsoft Example <a href="https://msdn.microsoft.com/en-us/library/f7s023d2%28v=vs.90%29.aspx" rel="noreferrer">Rnd Function</a>

<a href="https://msdn.microsoft.com/en-us/library/f7s023d2%28v=vs.90%29.aspx" rel="noreferrer">https://msdn.microsoft.com/en-us/library/f7s023d2%28v=vs.90%29.aspx</a>

1- Initialize the random-number generator.

<pre><code>Randomize()
</code></pre>

2 - Generate random value between 1 and 6. 

<pre><code>Dim value As Integer = CInt(Int((6 * Rnd()) + 1))
</code></pre>

blocks|key|1565717|text|仅供参考，RND和RANDOMIZE的VB网络函数定义(应给出与BASIC+(1980年)及以后的所有版本相同的结果：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1565718|Public+NotInheritable+Class+VBMath
++++'+Methods
++++Private+Shared+Function+GetTimer()+As+Single
++++++++Dim+now+As+DateTime+=+DateTime.Now
++++++++Return+CSng((((((60+*+now.Hour)+%2B+now.Minute)+*+60)+%2B+now.Second)+%2B+(CDbl(now.Millisecond)+/+1000)))
++++End+Function

++++Public+Shared+Sub+Randomize()
++++++++Dim+timer+As+Single+=+VBMath.GetTimer
++++++++Dim+projectData+As+ProjectData+=+ProjectData.GetProjectData
++++++++Dim+rndSeed+As+Integer+=+projectData.m_rndSeed
++++++++Dim+num3+As+Integer+=+BitConverter.ToInt32(BitConverter.GetBytes(timer),+0)
++++++++num3+=+(((num3+And+&HFFFF)+Xor+(num3+>>+&H10))+<<+8)
++++++++rndSeed+=+((rndSeed+And+-16776961)+Or+num3)
++++++++projectData.m_rndSeed+=+rndSeed
++++End+Sub

++++Public+Shared+Sub+Randomize(ByVal+Number+As+Double)
++++++++Dim+num2+As+Integer
++++++++Dim+projectData+As+ProjectData+=+ProjectData.GetProjectData
++++++++Dim+rndSeed+As+Integer+=+projectData.m_rndSeed
++++++++If+BitConverter.IsLittleEndian+Then
++++++++++++num2+=+BitConverter.ToInt32(BitConverter.GetBytes(Number),+4)
++++++++Else
++++++++++++num2+=+BitConverter.ToInt32(BitConverter.GetBytes(Number),+0)
++++++++End+If
++++++++num2+=+(((num2+And+&HFFFF)+Xor+(num2+>>+&H10))+<<+8)
++++++++rndSeed+=+((rndSeed+And+-16776961)+Or+num2)
++++++++projectData.m_rndSeed+=+rndSeed
++++End+Sub

++++Public+Shared+Function+Rnd()+As+Single
++++++++Return+VBMath.Rnd(1!)
++++End+Function

++++Public+Shared+Function+Rnd(ByVal+Number+As+Single)+As+Single
++++++++Dim+projectData+As+ProjectData+=+ProjectData.GetProjectData
++++++++Dim+rndSeed+As+Integer+=+projectData.m_rndSeed
++++++++If+(Number+<>+0)+Then
++++++++++++If+(Number+<+0)+Then
++++++++++++++++Dim+num1+As+UInt64+=+(BitConverter.ToInt32(BitConverter.GetBytes(Number),+0)+And+&HFFFFFFFF)
++++++++++++++++rndSeed+=+CInt(((num1+%2B+(num1+>>+&H18))+And+CULng(&HFFFFFF)))
++++++++++++End+If
++++++++++++rndSeed+=+CInt((((rndSeed+*+&H43FD43FD)+%2B+&HC39EC3)+And+&HFFFFFF))
++++++++End+If
++++++++projectData.m_rndSeed+=+rndSeed
++++++++Return+(CSng(rndSeed)+/+1.677722E%2B07!)
++++End+Function

End+Class|code-block|syntax|javascript|1565719|而Random类是：|1565720|Public+Class+Random
++++'+Methods
++++<__DynamicallyInvokable>+_
++++Public+Sub+New()
++++++++Me.New(Environment.TickCount)
++++End+Sub

++++<__DynamicallyInvokable>+_
++++Public+Sub+New(ByVal+Seed+As+Integer)
++++++++Me.SeedArray+=+New+Integer(&H38++-+1)+{}
++++++++Dim+num4+As+Integer+=+If((Seed+=+-2147483648),+&H7FFFFFFF,+Math.Abs(Seed))
++++++++Dim+num2+As+Integer+=+(&H9A4EC86+-+num4)
++++++++Me.SeedArray(&H37)+=+num2
++++++++Dim+num3+As+Integer+=+1
++++++++Dim+i+As+Integer
++++++++For+i+=+1+To+&H37+-+1
++++++++++++Dim+index+As+Integer+=+((&H15+*+i)+Mod+&H37)
++++++++++++Me.SeedArray(index)+=+num3
++++++++++++num3+=+(num2+-+num3)
++++++++++++If+(num3+<+0)+Then
++++++++++++++++num3+=+(num3+%2B+&H7FFFFFFF)
++++++++++++End+If
++++++++++++num2+=+Me.SeedArray(index)
++++++++Next+i
++++++++Dim+j+As+Integer
++++++++For+j+=+1+To+5+-+1
++++++++++++Dim+k+As+Integer
++++++++++++For+k+=+1+To+&H38+-+1
++++++++++++++++Me.SeedArray(k)+=+(Me.SeedArray(k)+-+Me.SeedArray((1+%2B+((k+%2B+30)+Mod+&H37))))
++++++++++++++++If+(Me.SeedArray(k)+<+0)+Then
++++++++++++++++++++Me.SeedArray(k)+=+(Me.SeedArray(k)+%2B+&H7FFFFFFF)
++++++++++++++++End+If
++++++++++++Next+k
++++++++Next+j
++++++++Me.inext+=+0
++++++++Me.inextp+=+&H15
++++++++Seed+=+1
++++End+Sub

++++Private+Function+GetSampleForLargeRange()+As+Double
++++++++Dim+num+As+Integer+=+Me.InternalSample
++++++++If+((Me.InternalSample+Mod+2)+=+0)+Then
++++++++++++num+=+-num
++++++++End+If
++++++++Dim+num2+As+Double+=+num
++++++++num2+=+(num2+%2B+2147483646)
++++++++Return+(num2+/+4294967293)
++++End+Function

++++Private+Function+InternalSample()+As+Integer
++++++++Dim+inext+As+Integer+=+Me.inext
++++++++Dim+inextp+As+Integer+=+Me.inextp
++++++++If+(%2B%2Binext+>=+&H38)+Then
++++++++++++inext+=+1
++++++++End+If
++++++++If+(%2B%2Binextp+>=+&H38)+Then
++++++++++++inextp+=+1
++++++++End+If
++++++++Dim+num+As+Integer+=+(Me.SeedArray(inext)+-+Me.SeedArray(inextp))
++++++++If+(num+=+&H7FFFFFFF)+Then
++++++++++++num+-=+1
++++++++End+If
++++++++If+(num+<+0)+Then
++++++++++++num+=+(num+%2B+&H7FFFFFFF)
++++++++End+If
++++++++Me.SeedArray(inext)+=+num
++++++++Me.inext+=+inext
++++++++Me.inextp+=+inextp
++++++++Return+num
++++End+Function

++++<__DynamicallyInvokable>+_
++++Public+Overridable+Function+[Next]()+As+Integer
++++++++Return+Me.InternalSample
++++End+Function

++++<__DynamicallyInvokable>+_
++++Public+Overridable+Function+[Next](ByVal+maxValue+As+Integer)+As+Integer
++++++++If+(maxValue+<+0)+Then
++++++++++++Dim+values+As+Object()+=+New+Object()+{+"maxValue"+}
++++++++++++Throw+New+ArgumentOutOfRangeException("maxValue",+Environment.GetResourceString("ArgumentOutOfRange_MustBePositive",+values))
++++++++End+If
++++++++Return+CInt((Me.Sample+*+maxValue))
++++End+Function

++++<__DynamicallyInvokable>+_
++++Public+Overridable+Function+[Next](ByVal+minValue+As+Integer,+ByVal+maxValue+As+Integer)+As+Integer
++++++++If+(minValue+>+maxValue)+Then
++++++++++++Dim+values+As+Object()+=+New+Object()+{+"minValue",+"maxValue"+}
++++++++++++Throw+New+ArgumentOutOfRangeException("minValue",+Environment.GetResourceString("Argument_MinMaxValue",+values))
++++++++End+If
++++++++Dim+num+As+Long+=+(maxValue+-+minValue)
++++++++If+(num+<=+&H7FFFFFFF)+Then
++++++++++++Return+(CInt((Me.Sample+*+num))+%2B+minValue)
++++++++End+If
++++++++Return+(CInt(CLng((Me.GetSampleForLargeRange+*+num)))+%2B+minValue)
++++End+Function

++++<__DynamicallyInvokable>+_
++++Public+Overridable+Sub+NextBytes(ByVal+buffer+As+Byte())
++++++++If+(buffer+Is+Nothing)+Then
++++++++++++Throw+New+ArgumentNullException("buffer")
++++++++End+If
++++++++Dim+i+As+Integer
++++++++For+i+=+0+To+buffer.Length+-+1
++++++++++++buffer(i)+=+CByte((Me.InternalSample+Mod+&H100))
++++++++Next+i
++++End+Sub

++++<__DynamicallyInvokable>+_
++++Public+Overridable+Function+NextDouble()+As+Double
++++++++Return+Me.Sample
++++End+Function

++++<__DynamicallyInvokable>+_
++++Protected+Overridable+Function+Sample()+As+Double
++++++++Return+(Me.InternalSample+*+4.6566128752457969E-10)
++++End+Function


++++'+Fields
++++Private+inext+As+Integer
++++Private+inextp+As+Integer
++++Private+Const+MBIG+As+Integer+=+&H7FFFFFFF
++++Private+Const+MSEED+As+Integer+=+&H9A4EC86
++++Private+Const+MZ+As+Integer+=+0
++++Private+SeedArray+As+Integer()
End+Class|1565721|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

Just for reference, VB NET Fuction definition for RND and RANDOMIZE (which should give the same results of BASIC (1980 years) and all versions after is:

<pre><code>Public NotInheritable Class VBMath
 ' Methods
 Private Shared Function GetTimer() As Single
 Dim now As DateTime = DateTime.Now
 Return CSng((((((60 * now.Hour) + now.Minute) * 60) + now.Second) + (CDbl(now.Millisecond) / 1000)))
 End Function

 Public Shared Sub Randomize()
 Dim timer As Single = VBMath.GetTimer
 Dim projectData As ProjectData = ProjectData.GetProjectData
 Dim rndSeed As Integer = projectData.m_rndSeed
 Dim num3 As Integer = BitConverter.ToInt32(BitConverter.GetBytes(timer), 0)
 num3 = (((num3 And &amp;HFFFF) Xor (num3 &gt;&gt; &amp;H10)) &lt;&lt; 8)
 rndSeed = ((rndSeed And -16776961) Or num3)
 projectData.m_rndSeed = rndSeed
 End Sub

 Public Shared Sub Randomize(ByVal Number As Double)
 Dim num2 As Integer
 Dim projectData As ProjectData = ProjectData.GetProjectData
 Dim rndSeed As Integer = projectData.m_rndSeed
 If BitConverter.IsLittleEndian Then
 num2 = BitConverter.ToInt32(BitConverter.GetBytes(Number), 4)
 Else
 num2 = BitConverter.ToInt32(BitConverter.GetBytes(Number), 0)
 End If
 num2 = (((num2 And &amp;HFFFF) Xor (num2 &gt;&gt; &amp;H10)) &lt;&lt; 8)
 rndSeed = ((rndSeed And -16776961) Or num2)
 projectData.m_rndSeed = rndSeed
 End Sub

 Public Shared Function Rnd() As Single
 Return VBMath.Rnd(1!)
 End Function

 Public Shared Function Rnd(ByVal Number As Single) As Single
 Dim projectData As ProjectData = ProjectData.GetProjectData
 Dim rndSeed As Integer = projectData.m_rndSeed
 If (Number &lt;&gt; 0) Then
 If (Number &lt; 0) Then
 Dim num1 As UInt64 = (BitConverter.ToInt32(BitConverter.GetBytes(Number), 0) And &amp;HFFFFFFFF)
 rndSeed = CInt(((num1 + (num1 &gt;&gt; &amp;H18)) And CULng(&amp;HFFFFFF)))
 End If
 rndSeed = CInt((((rndSeed * &amp;H43FD43FD) + &amp;HC39EC3) And &amp;HFFFFFF))
 End If
 projectData.m_rndSeed = rndSeed
 Return (CSng(rndSeed) / 1.677722E+07!)
 End Function

End Class
</code></pre>

While the Random CLASS is:

<pre><code>Public Class Random
 ' Methods
 &lt;__DynamicallyInvokable&gt; _
 Public Sub New()
 Me.New(Environment.TickCount)
 End Sub

 &lt;__DynamicallyInvokable&gt; _
 Public Sub New(ByVal Seed As Integer)
 Me.SeedArray = New Integer(&amp;H38 - 1) {}
 Dim num4 As Integer = If((Seed = -2147483648), &amp;H7FFFFFFF, Math.Abs(Seed))
 Dim num2 As Integer = (&amp;H9A4EC86 - num4)
 Me.SeedArray(&amp;H37) = num2
 Dim num3 As Integer = 1
 Dim i As Integer
 For i = 1 To &amp;H37 - 1
 Dim index As Integer = ((&amp;H15 * i) Mod &amp;H37)
 Me.SeedArray(index) = num3
 num3 = (num2 - num3)
 If (num3 &lt; 0) Then
 num3 = (num3 + &amp;H7FFFFFFF)
 End If
 num2 = Me.SeedArray(index)
 Next i
 Dim j As Integer
 For j = 1 To 5 - 1
 Dim k As Integer
 For k = 1 To &amp;H38 - 1
 Me.SeedArray(k) = (Me.SeedArray(k) - Me.SeedArray((1 + ((k + 30) Mod &amp;H37))))
 If (Me.SeedArray(k) &lt; 0) Then
 Me.SeedArray(k) = (Me.SeedArray(k) + &amp;H7FFFFFFF)
 End If
 Next k
 Next j
 Me.inext = 0
 Me.inextp = &amp;H15
 Seed = 1
 End Sub

 Private Function GetSampleForLargeRange() As Double
 Dim num As Integer = Me.InternalSample
 If ((Me.InternalSample Mod 2) = 0) Then
 num = -num
 End If
 Dim num2 As Double = num
 num2 = (num2 + 2147483646)
 Return (num2 / 4294967293)
 End Function

 Private Function InternalSample() As Integer
 Dim inext As Integer = Me.inext
 Dim inextp As Integer = Me.inextp
 If (++inext &gt;= &amp;H38) Then
 inext = 1
 End If
 If (++inextp &gt;= &amp;H38) Then
 inextp = 1
 End If
 Dim num As Integer = (Me.SeedArray(inext) - Me.SeedArray(inextp))
 If (num = &amp;H7FFFFFFF) Then
 num -= 1
 End If
 If (num &lt; 0) Then
 num = (num + &amp;H7FFFFFFF)
 End If
 Me.SeedArray(inext) = num
 Me.inext = inext
 Me.inextp = inextp
 Return num
 End Function

 &lt;__DynamicallyInvokable&gt; _
 Public Overridable Function [Next]() As Integer
 Return Me.InternalSample
 End Function

 &lt;__DynamicallyInvokable&gt; _
 Public Overridable Function [Next](ByVal maxValue As Integer) As Integer
 If (maxValue &lt; 0) Then
 Dim values As Object() = New Object() { "maxValue" }
 Throw New ArgumentOutOfRangeException("maxValue", Environment.GetResourceString("ArgumentOutOfRange_MustBePositive", values))
 End If
 Return CInt((Me.Sample * maxValue))
 End Function

 &lt;__DynamicallyInvokable&gt; _
 Public Overridable Function [Next](ByVal minValue As Integer, ByVal maxValue As Integer) As Integer
 If (minValue &gt; maxValue) Then
 Dim values As Object() = New Object() { "minValue", "maxValue" }
 Throw New ArgumentOutOfRangeException("minValue", Environment.GetResourceString("Argument_MinMaxValue", values))
 End If
 Dim num As Long = (maxValue - minValue)
 If (num &lt;= &amp;H7FFFFFFF) Then
 Return (CInt((Me.Sample * num)) + minValue)
 End If
 Return (CInt(CLng((Me.GetSampleForLargeRange * num))) + minValue)
 End Function

 &lt;__DynamicallyInvokable&gt; _
 Public Overridable Sub NextBytes(ByVal buffer As Byte())
 If (buffer Is Nothing) Then
 Throw New ArgumentNullException("buffer")
 End If
 Dim i As Integer
 For i = 0 To buffer.Length - 1
 buffer(i) = CByte((Me.InternalSample Mod &amp;H100))
 Next i
 End Sub

 &lt;__DynamicallyInvokable&gt; _
 Public Overridable Function NextDouble() As Double
 Return Me.Sample
 End Function

 &lt;__DynamicallyInvokable&gt; _
 Protected Overridable Function Sample() As Double
 Return (Me.InternalSample * 4.6566128752457969E-10)
 End Function


 ' Fields
 Private inext As Integer
 Private inextp As Integer
 Private Const MBIG As Integer = &amp;H7FFFFFFF
 Private Const MSEED As Integer = &amp;H9A4EC86
 Private Const MZ As Integer = 0
 Private SeedArray As Integer()
End Class
</code></pre>

blocks|key|1780780|text|我看到很多用户对System.Random的使用不满意。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1780781|尽管我个人仍然会使用System.Random，但我正在考虑一种使用GUID作为随机值基础的方法。GUID可以使用其ToByteArray方法转换为字节数组，生成的字节数组可以使用BitConverter转换为数值。|1780782|'Function+for+reuse+(min+is+inclusive+and+max+is+exclusive)
Function+GetRandom(min+As+Integer,+max+As+Integer)+As+Integer
++++Return+BitConverter.ToUInt64(Guid.NewGuid.ToByteArray)+Mod+(max+-+min)+%2B+min
End+Function|code-block|syntax|javascript|1780783|'one-liner+specific+for+your+purpose+(n+is+exclusive)
BitConverter.ToUInt64(Guid.NewGuid.ToByteArray)+Mod+(n+-+1)+%2B+1|1780784|请注意，这只是一个小小的思考实验。我没有测试性能，也没有调查结果的实际“随机性”。但对于您的目的来说，它可能正好可以完成工作。|1780785|公认的答案是使用Microsoft.VisualBasic.VBMath.Rnd方法，该方法确实提供了一个简单而吸引人的内联程序，但我个人会避免编写使用Microsoft.VisualBasic名称空间的新代码。|1780786|entityMap|0|LINK|mutability|MUTABLE|url|https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.vbmath.rnd^0|8|D|0|A|D|1M|B|2I|C|0|0|0|0|8|W|24|L|8|W|0|0^^$0|@$1|2|3|4|5|6|7|10|8|@$9|11|A|12|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|13|8|@$9|14|A|15|B|C]|$9|16|A|17|B|C]|$9|18|A|19|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|1A|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|J|7|1B|8|@]|D|@]|E|$K|L]]|$1|O|3|P|5|6|7|1C|8|@]|D|@]|E|$]]|$1|Q|3|R|5|6|7|1D|8|@$9|1E|A|1F|B|C]|$9|1G|A|1H|B|C]]|D|@$9|1I|A|1J|1|1K]]|E|$]]|$1|S|3|-4|5|6|7|1L|8|@]|D|@]|E|$]]]|T|$U|$5|V|W|X|E|$Y|Z]]]]

I see a lot of answers of users that are not satisfied with using <code>System.Random</code>.
Despite the fact that I personally would still use <code>System.Random</code>, I was thinking about a way to use a GUID as the base for a random value. A GUID can be converted to a byte array using its <code>ToByteArray</code> method, and the resulting byte array can be converted to a numeric value using a <code>BitConverter</code>.
<pre class="lang-vb prettyprint-override"><code>'Function for reuse (min is inclusive and max is exclusive)
Function GetRandom(min As Integer, max As Integer) As Integer
 Return BitConverter.ToUInt64(Guid.NewGuid.ToByteArray) Mod (max - min) + min
End Function
</code></pre>
<pre class="lang-vb prettyprint-override"><code>'one-liner specific for your purpose (n is exclusive)
BitConverter.ToUInt64(Guid.NewGuid.ToByteArray) Mod (n - 1) + 1
</code></pre>
Note that this is just a little thought experiment. I haven't tested the performance, nor have I investigated the actual &quot;randomness&quot; of the results. But for your purpose, it might just do the job.
The accepted answer uses the <a href="https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.vbmath.rnd" rel="nofollow noreferrer"><code>Microsoft.VisualBasic.VBMath.Rnd</code></a> method, which indeed offers a simple and attractive oneliner, but I personally would avoid writing new code that uses the <code>Microsoft.VisualBasic</code> namespace.

I need to generate a random integer between 1 and n (where n is a positive whole number) to use for a unit test. I don't need something overly complicated to ensure true randomness - just an old-fashioned random number.

How would I do that?

Random integer in VB.NET

单元测试

我需要生成一个介于1和n(其中n是正整数)之间的随机整数，以用于单元测试。我不需要过于复杂的东西来确保真正的随机性--只需要一个老式的随机数即可。我该怎么做呢？

问VB.NET中的随机整数
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VB.NET中的随机整数EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问VB.NET中的随机整数
EN