Visual Basic Girilen Sayının Kuvveti ve Faktoriyelini Hesaplama

Bu örneğimizde klavyeden girilen bir sayının girilen kuvvetini ve bu sayının faktöriyelini hesaplatan visual basic programını yapacağız. Kullanıcının klavyeden girmiş olduğu bir sayıyı for döngüsü yardımı ile istenilen kadar kendisi ile çarparak o sayının istenilen kuvveti hesaplatılıyor. Diğer bir for döngüsü ise 1’den girilen sayıya kadar olan tüm sayıların çarpımı yaptırılarak sayının faktöriyeli hesaplatılmış oluyor.

Programın ekran görüntüsü:

Programın Visual Basic 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
            sonuc = sayi * sonuc 'Sayı, kuvvet defa kendisi ile             çarpılıyor.
        Next (sayac)
            txtsonuc.Text = sonuc
    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)
            txtfaktor.Text = sonuc
    End Sub
End Class