1.求一个按键精灵随机数字的源代码

求一个按键精灵随机数字的源代码

       Dim MyValue, Response

       Randomize '初始化随机数生成器。

       Do Until Response = vbNo

        MyValue = Int(( * Rnd) + 1) ' 产生 1 到 之间的微信名片 源码随机数。

        MsgBox "随机数:"&MyValue

       Loop