VBA Üç Kenarı Verilen Bir Üçgenin Alanını Bulma
"VBA" Programlama dilinde "Üç Kenarı Verilen Bir Üçgenin Alanını Bulma" ile ilgili kod örneği aşağıdadır.
Sub Main()
Dim a As Integer
Dim b As Integer
Dim c As Integer
MsgBox("1. kenarı giriniz:")
a = CInt(InputBox("1. kenarı giriniz:", "Kenar A"))
MsgBox("2. kenarı giriniz:")
b = CInt(InputBox("2. kenarı giriniz:", "Kenar B"))
MsgBox("3. kenarı giriniz:")
c = CInt(InputBox("3. kenarı giriniz:", "Kenar C"))
If (a + b) > c And (a + c) > b And (b + c) > a Then
Dim s As Double
s = (a + b + c) / 2.0
Dim area As Double
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox ("Üçgenin Alanı: " & area)
Else
MsgBox("Üçgenin Alanı yoktur")
End If
End Sub