Visual Basic programlama dilinde 3 kenarı verilen bir üçgenin alanını bulan kod örneği aşağıda verilmiştir..

Dim a, b, c As Integer
Console.WriteLine("1. tarafı girin:")
a = Console.ReadLine()

Console.WriteLine("2. tarafı girin:")
b = Console.ReadLine()

Console.WriteLine("3. tarafı girin:")
c = Console.ReadLine()

If (a + b > c AndAlso a + c > b AndAlso b + c > a) Then
    Dim s = (a + b + c) / 2.0
    Dim area = Math.Sqrt(s * (s - a) * (s - b) * (s - c))
    Console.WriteLine("Üçgenin Alanı: " & area)
Else
    Console.WriteLine("Üçgenin Alanı mevcut değil.")
End If

Bu kod kullanıcıdan üç kenar uzunluğunu alır ve bu üç kenarın bir üçgen oluşturup oluşturmadığını kontrol eder. Eğer üç kenar bir üçgen oluşturuyorsa, üçgenin alanını hesaplar ve ekrana yazdırır. Bu hesaplama için üçgenin yarı çevresi kullanılarak alanın kökünü içeren bir formül kullanılır. Eğer üç kenar bir üçgen oluşturamıyorsa, ekrana uygun bir mesaj yazdırılır.