Array help. IfThen help. I am new to programming

[trav4]

I have an assignment for school and I am new to programming. For the assignment I need to make a survey with at least 4 choices that uses 2 arrays. It must be done in a console application. How do I make it loop and count/store the responses until the user enters "N" at strAnswer=Console.readline? Where/what loop would I use?

Module Module1
 
   Sub Main()
      Dim strAnswer As String
      Console.WriteLine("Do you want to answer survey")
      strAnswer = Console.ReadLine()
      While Not strAnswer.ToUpper.StartsWith("N")
         Dim resp(3) As Integer
         Console.WriteLine("Pick a number between 1 and 4")
         resp(0) = Console.ReadLine
         'declare response frequency array
         Dim frequency As Integer() = New Integer(4) {}
         ' count frequencies
         For answer As Integer = 0 To resp.GetUpperBound(0)
            frequency(resp(answer)) += 1
         Next
         Console.WriteLine("Choices" & vbTab & "Frequency")
         'display output
         For rating As Integer = 1 To frequency.GetUpperBound(0)
            Console.WriteLine(rating & vbTab & frequency(rating))
         Next
         Console.WriteLine("Do you want to answer survey")
         strAnswer = Console.ReadLine()
      End While
   End Sub
End Module

[debasisdas]

Question moved to .net forum.