【VB技巧】VB生成随机字母 VB产生随机数字

VB 随机字母：

Randomize
MsgBox Chr$(&H60 + Int((26 * Rnd) + 1))

VB生成/产生指定位数的随机字母：

Public Function MakeAbcd(Abc) As String '产生指定位数的随机字母
Dim I
Randomize
For I = 1 To Abc
    MakeAbcd = MakeAbcd & Chr$(&H60 + Int((26 * Rnd) + 1))
Next
End Function

VB 随机数字：

Randomize '初始化随机数发生器,纯随机不重复
MsgBox Int((999999999 * Rnd) + 111111111) '生成111111111到999999999之间随机数

Randomize 语句但独用就可以，在第一个rnd函数之前有就可以，作用是初始化随机数生成器。

Randomize 语句示例

    本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。

Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 7 之间(不包括7)的随机数值。

如果没有Randomize，比如：
dim a
a=rnd*100

那每次程序运行，第一次取随机数都是一样的，因此是固定的顺序
Randomize表示用时间做种子，时间不会后退，因此保证不重复，但是VB的随机数其实是计算出来的，不是真正随机。