【实例说明】
    娱乐节目中会经常看到抽取幸运数字、幸运身份证号等。本例将讲解如何实现随机抽取幸运数字。运行程序，单击“开始”按钮，即可抽取随机数字；单击“停止”按钮，即可得到随机数字。

【编程思路】
    VB中的Rnd函数可以随机查找和打乱排序，运用此函数即可实现本例的随机抽取幸运数字的效果。下面是Rnd函数的语法及参数：
    语法：Rnd[(number)]
    参数：可选的number参数是Single或任何有效的数值表达式。
    Number的值决定了Rnd生成随机数的方式，如生成随机整数，可使用公式：Int(a-b+1)*Rnd+b，其中“a”代表随机数范围的上限；“b”代表随机数范围的下限。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体中放置七个文本框数组(Text1(0)、Text(1)...Text1(6))（有序的排成一排），一个文本框(Text2)（Visible=False）、三个Command控件，一个Timer控件（Interval=50、Enabled=False）。

    3.源程序  [素材源程序下载]


'开始抽取幸运数字
Private Sub Command1_Click()
        Me.Timer1.Enabled = True
End Sub

'停止
Private Sub Command2_Click()
        Me.Timer1.Enabled = False
End Sub

'退出
Private Sub Command3_Click()
        End
End Sub

'显示随机数字
Private Sub Timer1_Timer()
        Dim i As Long
        '取整个数
        Randomize
        Me.Text2.Text = Int((10000000) * Rnd)
        '逐个取数
        For i = 0 To 6
                Me.Text1(i).Text = Right(Left(Me.Text2, i + 1), 1)
        Next i
End Sub