N
NeStLe
Ziyaretçi
Ziyaretçi
Açıklama : Girilen sayının istenilen kuvveti ve faktöriyeli hesaplanıyor. “For-Next” döngü yapısının kullanımına ilişkin bir örnektir.
Public Class Form1
Dim sayi, kuvvet As Integer
Dim sonuc As Long
Private Sub btnhesapla_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnhesapla.Click
sayi = txtsayi.Text
kuvvet = txtkuvvet.Text
sonuc = 1
For sayac = 1 To kuvvet
sonuc = sayi * sonuc ‘Sayı, kuvvet defa kendisi ile çarpılıyor.
Next sayac
txtsonuc.Text = sonuc
End Sub
Private Sub btnfaktor_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnfaktor.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
txtfaktor.Text = sonuc
End Sub
End Class
Public Class Form1
Dim sayi, kuvvet As Integer
Dim sonuc As Long
Private Sub btnhesapla_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnhesapla.Click
sayi = txtsayi.Text
kuvvet = txtkuvvet.Text
sonuc = 1
For sayac = 1 To kuvvet
sonuc = sayi * sonuc ‘Sayı, kuvvet defa kendisi ile çarpılıyor.
Next sayac
txtsonuc.Text = sonuc
End Sub
Private Sub btnfaktor_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnfaktor.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
txtfaktor.Text = sonuc
End Sub
End Class
Hata gördüğünüz takdirde bildirirseniz sevinirim. Tekrar kodlara dönüp düzeltirim..