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

54 Okunma VBA

"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
Daire Yarıçap Çevre Alan Hesap VBA

İlginizi Çekebilir

VBA Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

VBA Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği

VBA Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

VBA 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

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