帮忙做一个模拟彩票开奖的软件

大乐透的从35个号码中选出5个然后从12个号码中选出2个
要求按一下就可以显示出这7个数字来 --------------------编程问答-------------------- 下图是两年前替朋友做的广东南粤风采投注, 呵呵...那时侯我也刚学VB不到半年, 你什么地方不会做,我可以给你思路, 但我总不能把全部的代码都给你吧 ?

效果图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_007.jpg

--------------------编程问答-------------------- 南粤风采这4个字是动画, 7个球也是在旋转的动画, 数字是与抽奖一样是随机乱跳再固定显示的. --------------------编程问答-------------------- 我不要求那么强大只要一个按键一个显示框就可以了 --------------------编程问答-------------------- 晚上我弄一个简单一点的给你

35选5 是 1-35

12选 2 是 ?-? 1-12 ???

我吃饭去了, 把12的数字区间给我吧. --------------------编程问答-------------------- 回楼上的 1-35   1-12 谢谢 --------------------编程问答-------------------- 用随机数函数吧 --------------------编程问答-------------------- 昨天都帮你写好了,只等你确认, 晚上回去再贴给你. --------------------编程问答-------------------- '添加 Command1  Timer1  Label1(0) 'Label1 的属性 Index 要设为 0

Dim i&, jj&, aa$, bb$, RndNum$(6)

Private Sub Form_Load()
   Me.Width = 7600: Me.Height = 3600
   Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
   Label1(0).FontSize = 24
   Label1(0).BackStyle = 0
   jj = Label1(0).Width * 7 + 200 * 6 + 600
   Label1(0).Move (Me.Width - jj) \ 2, 200
   For i = 1 To 6
      Load Label1(i)
      Label1(i).Visible = True
      Label1(i).Move Label1(i - 1).Left + Label1(0).Width + 200, Label1(0).Top
      If i = 5 Then Label1(i).Left = Label1(i).Left + 600
      If i >= 5 Then Label1(i).ForeColor = QBColor(12)
   Next i
   Timer1.Interval = 100
   Timer1.Enabled = False
   Command1.Caption = "¿ª Ê¼"
   Command1.Move (Me.Width - Command1.Width) \ 2, Me.Height - 1000 - Command1.Height
End Sub

Private Sub Command1_Click()
   Timer1.Enabled = Not Timer1.Enabled
   Command1.Caption = IIf(Command1.Caption = "¿ª Ê¼", "Í£ Ö¹", "¿ª Ê¼")
End Sub

Private Sub Timer1_Timer()
   Randomize
   aa = "": bb = ""
   For i = 0 To 6
      Do
         If i <= 4 Then
            RndNum(i) = Format(CStr(Int(Rnd * 35) + 1), "00")
            If InStr(aa, RndNum(i)) = 0 Then
               aa = aa & RndNum(i) & " "
               Exit Do
            End If
         Else
            RndNum(i) = Format(CStr(Int(Rnd * 12) + 1), "00")
            If InStr(bb, RndNum(i)) = 0 Then
               bb = bb & RndNum(i) & " "
               Exit Do
            End If
         End If
      Loop
      Label1(i).Caption = RndNum(i)
   Next i
End Sub

--------------------编程问答-------------------- 晕倒....怎么乱码又来了.

Dim i&, jj&, aa$, bb$, RndNum$(6)
Private Sub Form_Load()
   Me.Width = 7600: Me.Height = 3600
   Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
   Label1(0).FontSize = 24
   Label1(0).BackStyle = 0
   jj = Label1(0).Width * 7 + 200 * 6 + 600
   Label1(0).Move (Me.Width - jj) \ 2, 200
   For i = 1 To 6
      Load Label1(i)
      Label1(i).Visible = True
      Label1(i).Move Label1(i - 1).Left + Label1(0).Width + 200, Label1(0).Top
      If i = 5 Then Label1(i).Left = Label1(i).Left + 600
      If i >= 5 Then Label1(i).ForeColor = QBColor(12)
   Next i
   Timer1.Interval = 100
   Timer1.Enabled = False
   Command1.Caption = "开始"
   Command1.Move (Me.Width - Command1.Width) \ 2, Me.Height - 1000 - Command1.Height
End Sub

Private Sub Command1_Click()
   Timer1.Enabled = Not Timer1.Enabled
   Command1.Caption = IIf(Command1.Caption = "开始", "停止", "开始")
End Sub

Private Sub Timer1_Timer()
   Randomize
   aa = "": bb = ""
   For i = 0 To 6
      Do
         If i <= 4 Then
            RndNum(i) = Format(CStr(Int(Rnd * 35) + 1), "00")
            If InStr(aa, RndNum(i)) = 0 Then
               aa = aa & RndNum(i) & " "
               Exit Do
            End If
         Else
            RndNum(i) = Format(CStr(Int(Rnd * 12) + 1), "00")
            If InStr(bb, RndNum(i)) = 0 Then
               bb = bb & RndNum(i) & " "
               Exit Do
            End If
         End If
      Loop
      Label1(i).Caption = RndNum(i)
   Next i
End Sub
--------------------编程问答-------------------- 恩？？？下面的怎么没那旋转的字了

补充：VB ,  基础类