Imports System

Public Module Module1

    Dim Num() As Integer = {12,14,10,6,7,11,3} 

    Public Sub Main()

        Dim Sum As Decimal = 0

        Dim Average As Decimal = 0

        For i = 0 To 6

        Sum = Sum + Num(i)

    Next

    Average = Sum/7

    Console.WriteLine(Average)

    Console.ReadLine()

    End Sub

End Module