VB.NET - Multiple user-input integers to arraylist - vb.net

Question

I'm new to programming... I'm trying to code a very basic program so that 10 integers can be input by a user, and then averaged. I've considered using an ArrayList to store all the data, but once I use "Input" once I can't use it again.
What I'm supposed to do is take a basic averaging program like this:
Dim A, B, C, D, E, F, G, H, I, J As Integer
A = 10
B = 6
C = 17
...
...
...
J = 15
Dim K As Double
K = A + B + C + D + E + F + G + H + I + J
K /= 10
Console.WriteLine(K)
Console.ReadKey()
...and make it so that the user can input all of the variables.
Hopefully this problem is clear enough... anybody know what I can do?

Answer 1

I have included below and example with comments. Hopefull you will learn from the statements and understand how to loop with Do/Loop or For and how to use List(Of ) to store a variable amount of data.
Sub Main()
' Initialize variable for text input, and numeric value
Dim input As String, x As Double
' Initialize empty array of numbers
Dim array = New List(Of Double)()
Do
Console.Write("Enter a number or press [Enter] to Finish :")
' Read a number (as text)
input = Console.ReadLine()
' Check if input is a number
If (Double.TryParse(input, x)) Then
' If it is a number add it to list
array.Add(x)
ElseIf x.Length>0
' If not then display a message
Console.WriteLine("** Input Not Numeric **")
End If
' Continue until user presses enter
Loop Until input.Length = 0
Console.WriteLine("{0} Numbers Entered", array.Count)
' Calculate average from values
Dim average As Double = 0
For index As Integer = 1 To array.Count
average += array(index - 1)
Next
average /= array.Count
' Display results and wait for enter
Console.WriteLine("The Average Is {0}", average)
Console.Write("Press [Enter] to End")
Console.ReadLine()
End Sub

Answer 2

I would do things in steps. First your way.
Dim a, b, c, d As Integer
Console.Write("Type an integer: ")
a = Int32.Parse(Console.ReadLine())
Console.Write("Type an integer: ")
b = Int32.Parse(Console.ReadLine())
Console.Write("Type an integer: ")
c = Int32.Parse(Console.ReadLine())
Console.Write("Type an integer: ")
d = Int32.Parse(Console.ReadLine())
Console.WriteLine("The average is: " & ((a + b + c + d) / 4))
Console.ReadLine()
Then you convert the code to use a list
Dim v As New List(Of Integer)
Console.Write("Type an integer: ")
v.Add(Int32.Parse(Console.ReadLine()))
Console.Write("Type an integer: ")
v.Add(Int32.Parse(Console.ReadLine()))
Console.Write("Type an integer: ")
v.Add(Int32.Parse(Console.ReadLine()))
Console.Write("Type an integer: ")
v.Add(Int32.Parse(Console.ReadLine()))
Console.WriteLine("The average is: " & ((v(0) + v(1) + v(2) + v(3)) / 4))
Console.ReadLine()
Now that you are using a list, you can easely use a loop to remove duplicate code.
Dim v As New List(Of Integer)
Do While v.Count < 4
Console.Write("Type an integer: ")
v.Add(Int32.Parse(Console.ReadLine()))
Loop
Console.WriteLine("The average is: " & ((v(0) + v(1) + v(2) + v(3)) / 4))
Console.ReadLine()
After that you add error validation and use the built-in Average function.
Dim tempVal As Integer
Dim v As New List(Of Integer)
Do While v.Count < 4
Console.Write("Type an integer: ")
If Int32.TryParse(Console.ReadLine(), tempVal) Then
v.Add(tempVal)
Else
Console.WriteLine("Not a valid integer")
End If
Loop
Console.WriteLine("The average is: " & v.Average())
Console.ReadLine()