生成随机数模块代码：

       Public Function suijishu(ByVal yy As Long)   '

            Randomize ' 对随机数生成器做初始化的动作。

            suijishu = Int(yy * Rnd + 1)

        End Function

窗体调用代码：text1.text=suijishu(10) '代表生成10以内的随机数字1个

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

生成随机字符串模块代码：

        Public Function suijimi(ByVal Count As Long) As String '

            Dim sText, swq As String, Ir As Long

            swq = "abcdefghijklmnopqrstuvwxyz"

            Randomize Timer

            While Len(sText) < Count

                Ir = Int(Rnd() * Len(swq)) Mod Len(swq) + 1

                sText = sText & Mid(swq, Ir, 1)

            Wend

            suijimi = sText

        End Function

窗体调用代码：text1.text=suijimi(8)  '代表生成 英文字母随机组合 8位数