VBA Bir Sayının Karekökünün Hesaplanması

VBA'de bir sayının karekökünü hesaplamak için "Sqr" metodu kullanılır. Aşağıdaki kod örneği, kullanıcı tarafından girilen bir sayının karekökünü hesaplamayı gösterir..

Sub Karekok_Hesapla()

   Dim girilenSayi As Double
   Dim karekok As Double

   girilenSayi = InputBox("Bir sayı girin:")
   karekok = Sqr(girilenSayi)

   MsgBox "Girilen sayının karekökü: " & karekok

End Sub

Bu kod örneğinde, Sub anahtar kelimesi ile bir alt-procedure oluşturulur ve Karekok_Hesapla ismi verilir. Daha sonra, Dim anahtar kelimesi ile iki adet değişken tanımlanır: girilenSayi ve karekok.

InputBox fonksiyonu, kullanıcıdan bir sayı girmesini sağlar ve bu sayı girilenSayi değişkenine atanır. Sqr fonksiyonu, verilen sayının karekökünü hesaplamak için kullanılır ve sonuç karekok değişkenine atanır. Son olarak, MsgBox fonksiyonu ile kullanıcıya hesaplanan karekök değeri gösterilir.


VBA

İlginizi Çekebilir

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

VBA Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Örne ...

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

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

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