怎么样产生一个0-100的随机数?谢谢！！

Question

Dim i As Long
Dim a(1 To 100) As Integer
For i = 1 To 100
    a(i) = Int(Rnd(1) * 101)'最小值为0，最大值为100
Next i

Answer 1

Int(Rnd(1) * 101)'最小值为0，最大值为100

Answer 2

MyValue = Int(101 * Rnd) 

Answer 3

rnd(1)*100
如果要整数则是int(rnd(1)*101)

Answer 4

有一点要注意，rnd返回的是单精度型数，1出现的几率要大的多

Answer 5

同意楼上几位仁兄的方法。
补充一点：
上述方法得到的随机数列是相同的。你可以多运行几次看看。
若要等到不同的数列，可加一句Randomize。如下
Dim i As Long
Dim a(1 To 100) As Integer
For i = 1 To 100
    Randomize
    a(i) = Int(Rnd(1) * 101)'最小值为0，最大值为100
Next i其实，得到随机整数有一个公式，在MSDN里就有
Int((A-B+1)*Rnd+B)多看看MSDN吧，那可真是宝库啊。我的VB知识相当一部分都是从这里学的，真正看书倒不多

Answer 6

Randomize 放到FORM_LOAD就可以，不用每次调用。
为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。