VB 随机字母,VB 随机数字,VB生成随机字母,VB产生随机数字,VB Randomize,Randomize 语句示例,VB Randomize 详解,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的随机数其实是计算出来的,不是真正随机。