VBA Dikdörtgenin Alanını Hesaplama Örneği

"VBA" Programlama dilinde "Dikdörtgenin Alanını Hesaplama Örneği" ile ilgili kod örneği aşağıdadır.

Sub RectangleArea()

    Dim length As Double
    Dim width As Double
    Dim area As Double
    
    length = InputBox("Dikdortgenin uzunlugunu girin: ")
    width = InputBox("Dikdortgenin genisligini girin: ")
    
    area = length * width
    
    MsgBox "Dikdortgenin Alani: " & area
    
End Sub



İlginizi Çekebilir

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

VBA Bir Dizideki Tek Sayıların Adetini Bulma Örneği

VBA 1'den 100'e Kadar Asal Sayı Toplam Örneği

VBA Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği