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

Question

大乐透的 从35个号码中选出5个 然后从12个号码中选出2个
要求按一下就可以显示出这7个数字来

Answer 1

下图是两年前替朋友做的广东南粤风采投注, 呵呵...那时侯我也刚学VB不到半年, 你什么地方不会做,我可以给你思路, 但我总不能把全部的代码都给你吧 ?
效果图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_007.jpg

Answer 2

'添加 Command1  Timer1  Label1(0) 'Label1 的属性 Index 要设为 0Dim 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 SubPrivate Sub Command1_Click()
   Timer1.Enabled = Not Timer1.Enabled
   Command1.Caption = IIf(Command1.Caption = "¿ª Ê¼", "Í£ Ö¹", "¿ª Ê¼")
End SubPrivate 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

Answer 3

晕倒....怎么乱码又来了.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 SubPrivate Sub Command1_Click()
   Timer1.Enabled = Not Timer1.Enabled
   Command1.Caption = IIf(Command1.Caption = "开 始", "停 止", "开 始")
End SubPrivate 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