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

"VBA" Programlama dilinde "Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir.

Sub Main()
    Dim radius As Double
    radius = CDbl(InputBox("Yarıçap Girin:"))

    Dim c As Double
    c = 2 * Application.WorksheetFunction.Pi * radius

    Dim area As Double
    area = Application.WorksheetFunction.Pi * radius * radius

    MsgBox "Dairenin Çevresi: " & c & vbCrLf & "Dairenin Alanı: " & area
End Sub



İlginizi Çekebilir

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

VBA Boş Olan Tüm Hücreleri Vurgulu Yapmak

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

VBA Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Örnek

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