For loop / Array Question

[Madhadda]

So i'm supposed to generate a 5 digit number which i will compare to other numbers. I should then store it into a string variable:

i = Rnd() * (99999 - 9999) + 9999
number = LTrim(str(i))

Then im supposed to ask how many numbers a person would like to generate to try to match to this number I already created. I am to use a for loop and store these numbers into a string array (Which im not sure how to do). Ill finish it up with a do loop that trys to match these numbers with the winning number up top. My problem is, im not sure how to generate the amount the user wants.
I.E. how do I structure a For loop to generate the amount of numbers a person wants, and then store it into a string array. Thanks for reading.

 

[Rick Rothstein]

Coerced Byte Arrays will always give you a 0-based Array, too.

Yes, I do remember that now that you mention it. I use the Split function quite a lot whereas I almost never use Byte arrays which is why the Split function came to mind and Byte arrays didn't. Thanks for following up with that.

I stick with defining/testing my boundaries.

Agreed... that is definitely the better way to make use of declared arrays.

 

[Madhadda]

Well, at the Microsoft MVP page you are Mr. Nathan...

Madhadda:

I'll write it for you tomorrow, because it's 1:15 AM , bed time...

That would be greatly appreciated, and no worries, get our your sleep man.

 

[Worf]

As promised... I didn' t use strings at all, if you need them for some reason please say so.
Check if the routine does what you want.

Option Explicit

Sub Lottery()
Dim UserArray&(), winner&, ncards%, i%, rich As Boolean

Randomize
rich = False
winner = Round(10000 + Rnd() * 89999)
ncards = Application.InputBox(prompt:="How many cards?", Type:=1)
ReDim UserArray(1 To ncards)
For i = 1 To ncards             ' fills the array
    UserArray(i) = Round(10000 + Rnd() * 89999)
Next
i = 1

Do
    If UserArray(i) = winner Then rich = True
    i = i + 1
Loop Until (rich Or i = (ncards + 1))

If rich Then
    MsgBox "Congratulations !!!", vbExclamation, "Winning number= " & winner
    
Else
    MsgBox "Buy more tickets..."
End If
End Sub

 

[Madhadda]

This will work perfectly, thanks for taking your time to help me out man, cheers.

As promised... I didn' t use strings at all, if you need them for some reason please say so.
Check if the routine does what you want.

Option Explicit

Sub Lottery()
Dim UserArray&(), winner&, ncards%, i%, rich As Boolean

Randomize
rich = False
winner = Round(10000 + Rnd() * 89999)
ncards = Application.InputBox(prompt:="How many cards?", Type:=1)
ReDim UserArray(1 To ncards)
For i = 1 To ncards             ' fills the array
    UserArray(i) = Round(10000 + Rnd() * 89999)
Next
i = 1

Do
    If UserArray(i) = winner Then rich = True
    i = i + 1
Loop Until (rich Or i = (ncards + 1))

If rich Then
    MsgBox "Congratulations !!!", vbExclamation, "Winning number= " & winner
    
Else
    MsgBox "Buy more tickets..."
End If
End Sub

 

[Worf]

You are welcome, thanks for the feedback.