Örnek 5:
Aşağıda program girilen sayının istenilen kuvveti ve faktöriyeli
hesaplamaktadır. “For‐Next” döngü yapısının kullanım örneğidir.
Ekran Görüntüsü
Kodlar
Public Class Form1
Dim sayi, kuvvet As Integer
Dim sonuc As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
sayi = txtsayi.Text
kuvvet = txtkuvvet.Text
sonuc = 1
For sayac = 1 To kuvvet 'FOR döngüsü 1 den girilen kuvvet kadar
tekrarlanacak
sonuc = sayi * sonuc 'Sayı, kuvveti kadar kendisi ile
çarpılıyor.
Next (sayac) 'sayac değeri 1 artırılacak ve FOR döngüsü
tekrarlanacak
kuvvet_sonucu.Text = sonuc 'FOR döngüsü bittiğinde işlem sonuc
değişkenindeki değer kuvvet_sonucu'na atanıyor
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
sayi = txtsayi.Text
sonuc = 1
For sayac = 1 To sayi
sonuc = sayac * sonuc 'Sayıya kadar olan bütün sayılar
çarpılıyor.
Next (sayac)
faktoriyel_sonucu.Text = sonuc
End Sub
End Class
End Class
23