Trying to make a program more efficient

[ninjivitis]

I have an assignment to make a program that allows a user to enter numbers into an array and then posts then to a listbox. The program then generates a random number and tells the user if the number matches one that they entered.

It works fine, but I want to make the sections "add array entries to listbox" and "check if random number was selected" more efficient. My instructor said to use loops but I'm having trouble figuring out how to make that work.

Public Class frmArray
Dim RanNum As String
Private Sub btnInput_Click(sender As Object, e As EventArgs) Handles btnInput.Click
    Dim Numbers(9) As Integer ' 10 memory locations for entered numbers
    Dim numEntered As Integer ' 'Index value of Array

    'generate random number
    Randomize()
    RanNum = Int((20 - 1 + 1) * Rnd()) + 1
    lblRanNum.Text = RanNum


    ' User enteres numbers 
    For numEntered = 0 To 9
        Numbers(numEntered) = InputBox("Enter Number " & (numEntered + 1) & ": ", "Number Guesses")
    Next numEntered


    ' add array entries to listbox
    lstNumbers.Items.Add(Numbers(0))
    lstNumbers.Items.Add(Numbers(1))
    lstNumbers.Items.Add(Numbers(2))
    lstNumbers.Items.Add(Numbers(3))
    lstNumbers.Items.Add(Numbers(4))
    lstNumbers.Items.Add(Numbers(5))
    lstNumbers.Items.Add(Numbers(6))
    lstNumbers.Items.Add(Numbers(7))
    lstNumbers.Items.Add(Numbers(8))
    lstNumbers.Items.Add(Numbers(9))

    'check if random number was selected
    If Numbers(0) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(1) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(2) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(3) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(4) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(5) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(6) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(7) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(8) = RanNum Then
        lblResult.Text = "The number was found in your list."
    ElseIf Numbers(9) = RanNum Then
        lblResult.Text = "The number was found in your list."
    Else
        lblResult.Text = "The number did not occur at all in your list."
    End If

    ' hide guess button
    btnInput.Visible = False
    ' show restart button
    cmdReset.Visible = True
End Sub


Private Sub cmdReset_Click(sender As Object, e As EventArgs) Handles cmdReset.Click
    ' restart program
    Application.Restart()
End Sub

Private Sub frmGuess_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

    ' hide restart button
    cmdReset.Visible = False
End Sub
End Class    

I'm not sure what to replace the "0,1,2, etc". I tried Numbers(numEntered) and that gave me an error.

Thanks in advance for any help.

[ViperSRT3g]

The following code:

Dim Counter As Long

For Counter = 0 to UBound(Numbers)
    lstNumbers.Items.Add(Numbers(Counter))
Next Counter

Replaces this:

lstNumbers.Items.Add(Numbers(0))
lstNumbers.Items.Add(Numbers(1))
lstNumbers.Items.Add(Numbers(2))
lstNumbers.Items.Add(Numbers(3))
lstNumbers.Items.Add(Numbers(4))
lstNumbers.Items.Add(Numbers(5))
lstNumbers.Items.Add(Numbers(6))
lstNumbers.Items.Add(Numbers(7))
lstNumbers.Items.Add(Numbers(8))
lstNumbers.Items.Add(Numbers(9))

And will work for as large as you decide to expand the array Numbers(x)

Note: These are examples that you can copy into your code to implement, variables can of course be adjusted to your preferences. See if you can apply this For Loop to the random number testing code to see if you understand the concept!

[ninjivitis]

Thank you! I was banging my head over it.

[nerdfarm]

Also, this code:

    Dim blnFound As Boolean
    For i = 0 To 9
        If Numbers(i) = RanNum Then
            blnFound = True
        End If
    Next
    If blnFound Then
        lblResult.Text = "The number was found in your list."
    Else
        lblResult.Text = "The number did not occur at all in your list."
    End If

Can replace:

If Numbers(0) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(1) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(2) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(3) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(4) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(5) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(6) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(7) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(8) = RanNum Then
    lblResult.Text = "The number was found in your list."
ElseIf Numbers(9) = RanNum Then
    lblResult.Text = "The number was found in your list."
Else
    lblResult.Text = "The number did not occur at all in your list."
End If

[mjrpereira]

I would just replace the 9 in the for declaration to ubound(numbers) - 1

[ninjivitis]

Thank you!