1.求一个按键精灵随机数字的源代码
求一个按键精灵随机数字的源代码
Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int(( * Rnd) + 1) ' 产生 1 到 之间的免签约码支付系统源码随机数。
MsgBox "随机数:"&MyValue
Loop
copyright © 2016 powered by 皮皮网 sitemap