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

84 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 Bir Sayının Karekökünün Hesaplanması

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

VBA Tek Satırda If Else Yazmak

VBA Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

VBA Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği