"Visual Basic" Programlama dilinde "Dikdörtgenin Alanını Hesaplama Örneği" ile ilgili örnek kod aşağıda belirtilmiştir.

Imports System

Module Module1
    Sub Main()
        Dim r As New RectangleArea()
        r.GetData()
        r.ComputeField()
        r.FieldDisplay()
    End Sub
End Module

Class RectangleArea
    Public length, width, area As Double

    Public Sub GetData()
        Console.WriteLine("Dikdortgenin uzunlugunu girin: ")
        length = Convert.ToDouble(Console.ReadLine())
        Console.WriteLine("Dikdortgenin genisligini girin: ")
        width = Convert.ToDouble(Console.ReadLine())
    End Sub

    Public Sub ComputeField()
        area = length * width
    End Sub

    Public Sub FieldDisplay()
        Console.WriteLine("Dikdortgenin Alani: " + area.ToString())
    End Sub
End Class