VBA Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

29 Okunma VBA

"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
Üçgen Alan Kenar VBA

İlginizi Çekebilir

VBA Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

VBA Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

VBA Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

VBA Dosyanın Güncelleme Tarihini Değiştirme

VBA Dosya Taşıma