Klavyeden girilen bir sayının birler basamağından itibaren ikinci çift sayısının faktöriyelini alan program Vb.Net
[code lang=”vb”]
Public Class Form1
‘www.gorselprogramlama.com
Private Sub btnHesapla_Click(sender As System.Object, e As System.EventArgs) Handles btnHesapla.Click
Dim s As String
label2.Text = "0" ‘www.gorselprogramlama.com
Dim sayac As Integer = 0, sayi As Integer = 0, faktoriyel As Integer = 1
s = InputBox("Sayıyı Giriniz")
For i As Integer = s.Length – 1 To 0 Step -1
If Integer.Parse(s(i).ToString()) Mod 2 = 0 Then
sayac += 1 ‘www.gorselprogramlama.com
If sayac = 2 Then
sayi = Integer.Parse(s(i).ToString())
Exit For
End If ‘www.gorselprogramlama.com
End If
Next
If sayac < 2 Then
MessageBox.Show("Girilen sayı içinde gerekli miktarda çift sayı yoktur !")
Else ‘www.gorselprogramlama.com
For i As Integer = sayi To 1 Step -1
faktoriyel *= i
Next
label2.Text = faktoriyel.ToString() ‘www.gorselprogramlama.com
End If
End Sub
End Class ‘www.gorselprogramlama.com
[/code]
