"Visual Basic" Programlama dilinde "Bir Dizi Tam Sayının Ortalamasını Bulma" ile ilgili kod örneği aşağıdadır.

Imports System

Module Test
    Sub Main(args As String())

        Console.WriteLine("Sayıların adetini girin: ")
        Dim count As Integer = Integer.Parse(Console.ReadLine())
        Dim i As Integer = 0
        Dim sum As Single = 0
        For i = 0 To count - 1
            Console.WriteLine("Bir tamsayı girin: ")
            Dim x As Integer = Integer.Parse(Console.ReadLine())
            sum = sum + x
        Next i

        Dim avg As Single = sum / count
        Console.WriteLine("Ortalama: " & avg)
    End Sub
End Module