VBA基础入门（48）35选7该怎么选？

1

Rnd 函数

返回一个包含伪随机数字的Single 。

【语法】

Rnd(Number)

可选的Number 参数是一个单个或任何有效的数值表达式。

【返回值】

如果Number为	则 Rnd 生成
小于 0	使用_number_作为种子时, 每次使用相同的数字。
大于 0	伪随机序列中的下一个号码。
等于 0	最近生成的数字。
未提供	伪随机序列中的下一个号码。

注：Rnd 函数返回一个小于 1 但大于或等于 0 的值。

一般直接使用RND，并不会指定一个Number，这个Number直接取用基于系统计时器的种子初始化随机数字生成器。例如RND（-1），小于0，则每次都生成相同的返回值，RND（0）生成跟上次返回值相同的值。使用这个随机数将变得没有意思。所以直接使用RND即可。

【例】

在A1单元格生成了0到1之间的随机数。

那么我们如何生成1到35之间的随机数呢？

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

此处，upperbound 是范围中的最大数字，lowerbound是范围中的最小数字。

那么1到35之间的随机整数就应该用：

Int((35 - 1 + 1) * Rnd + 1)

【代码】

Sub AAA()Dim arr1(6)Dim i As IntegerFor i = 0 To 6 arr1(i) = Int((35) * Rnd + 1)NextRange('A1') = '35选7的号码为：' & Join(arr1, ', ')End Sub

注：因为数组下标是从0开始的所以定义arr1（6）

【结果】