Re: Random Numbers help

• • Reply

  14 years ago

  by DoctorMahdi

  DoctorMahdi

  , Somalia

  Joined 15 years ago

  Hi BlueTech

  Use this code

  Private Sub Command1_Click()
  Dim Num, Num1 As Integer
  Dim ChkNum(7)
  Dim Flag As Boolean
  Flag = False
  Randomize
  'First loop creates Create random numbers 0 - 9
  For Num = 0 To 7
      ChkNum(Num) = Int((7 - 1 + 1) * Rnd + 1)
      'Do not check the first number
      If Num <> 0 Then
          'Second loop makes sure current number was not already used
          For Num1 = 0 To Num - 1
              If lb1.Caption = ChkNum(Num1) Then 'if current number matches any numbers already used
                  lb1.Caption = 11         'Set Current label to a number out of range
                  Num = Num - 1                  'Subtract 1 from First loops counter so it can generate an unused number for current label
                  Flag = False                   'Current number has been used so set flag to false
                  Exit For                       'Exit loop
              Else
                  Flag = True                    'Current number has not been used so set flag to true
              End If
         Next
      Else
          Flag = True                            'First number generated set flag to true
      End If
      If Flag = True Then                        'Flag true = number has not been used
          lb1.Caption = ChkNum(Num) - 1    'Write new number to proper label
          Flag = False
      End If
  Next
  End Sub
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  

  regards

  DoctorMahdi

  Report abuse