小问题
Dim a(4) As Integer
Dim t As Integer

a(0) = 1
a(1) = 5
a(2) = 7
a(3) = 10

Randomize

t = Int(3 + 1 * Rnd)

Print a(t)

我想 把 1 5 7 10装入数组 然后随即选出一个从数组随即选一个打印 为什么每次都打印10呢??

[解决办法]
Rnd 的返回值区间为 [0,1)，所以 Int(3 + 1 * Rnd) 始终为 3，应该是 Int(4 * Rnd)