• Home
 · 
• Custom Controls/Forms/Menus
 · 
• How Lucky draw works (Random numbers)

How Lucky draw works (Random numbers)

How Lucky draw works (Random numbers)

API Declarations


' and a command button
' Please Feel Free to contact me for any idea u regarding programming needs
' email: [email protected]



Rate How Lucky draw works (Random numbers)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

List1.Clear
Dim intRequiredSamples, intNum_Start, intNumEnd, intTempSample As Long
Dim intCounter As Integer
intCounter = 0
   intNum_Start = InputBox("Enter starting number", "Starting Number")
   intNum_End = InputBox("Enter Ending   number", "Ending Number")
   intRequiredSamples = InputBox("Enter Required samples", "Total Samples")
    
  Do
    intTempSample = Rnd() * intNum_End
    intTempSample = Int(intTempSample)
    If intTempSample >= intNum_Start And intTempSample <= intNum_End Then
        intCounter = intCounter + 1
        List1.AddItem intTempSample
    End If
    If intCounter >= intRequiredSamples Then
        Exit Do
    End If
  Loop
    
End Function


Private Sub Command1_Click()
 DrawNumber
End Sub