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

  • A+
所属分类:lcx

    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的随机数其实是计算出来的,不是真正随机。

文章来源于lcx.cc:【VB技巧】VB生成随机字母 VB产生随机数字

相关推荐: 【文章】4.13 秘密的全或无泄露 ANDOS协议

4.13 秘密的全或无泄露     假设Alice是前苏联的前代理商,现在失业了,Alice为了挣钱,便出卖机密,任何愿意付钱的人都可以买秘密。Alice甚至还有一个目录,所有的秘密都编号列出,并加上一个非常撩人的标题:“Jimmy Hoffa在那里?”谁在秘…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: