请问如何求1~N （整数）之间的随机整数？

Question

RandomizeInt((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

Answer 1

Dim A, N As LongRandomize
N = 100
A = Int(N * Rnd + 1)

Answer 2

e.g, 
Dim MyValue, N As Integer
N = InputBox("Key in a number:")
MyValue = Int((N * Rnd) + 1)
MsgBox MyValue

Answer 3

如求1-100之间的可以用
Randomize
Num=Int(rnd()*100)

Answer 4

dim N as long
debug.print int(rnd()*N)+1那么就是1-N的随机整数拉

Answer 5

dim a,N as integer
a=int(rnd()*N)+1