Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("AVERAGE VALUE CALCULATOR")

        Console.WriteLine("")

        Console.WriteLine("Note: Values Above 10 will not be included")

​

        Dim values, valid_values, total, average as double

        Console.WriteLine("")

        For i = 1 to 10

        Console.Write("Please Enter Your Value " & i & ": ")

        values = Console.ReadLine()

            If values < 10 Then

                total = total + values

                valid_values = valid_values + 1

                Console.WriteLine("Valid Value # " & valid_values)

            End If

        Next

        Console.WriteLine("The Total of Values = " & total)

        average = total / valid_values

        Console.WriteLine("")

        Console.WriteLine("The Average of your " & valid_values & " Values = " & average)

    End Sub

End Module