Kod:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim toplam As Double = 1
Dim k, i, faktor, faktor1 As Long
If Strings.Trim(TxtYaklasim.Text) <> "" Then ‘Boş text
istemiyoruz.
If IsNumeric(TxtYaklasim.Text) Then ‘Sayısal olmayan veri de
istemiyoruz.
If TxtYaklasim.Text > 0 And TxtYaklasim.Text < 10 Then
‘Bir de yaklaşım sayısı 1 il 9 arasında olacak.
For k = 1 To TxtYaklasim.Text
'k faktöriyel hesaplanıyor:
faktor = 1
For i = 1 To k
faktor = faktor * i
Next
'2k+1 faktöriyel hesaplanıyor:
faktor1 = 1
For i = 1 To 2 * k + 1
faktor1 = faktor1 * i
Next
'Toplam hesaplanıyor:
toplam = toplam + ((2 ^ k) * (faktor ^ 2)) /
faktor1
Next
LblSonuc.Text = 2 * toplam
Else
MsgBox("Yaklaşım sayısı 1-9 arasında olmalıdır!")
End If
Else
MsgBox("Lütfen sayısal veri giriniz!")
End If
Else
MsgBox("İlgili alana veri girişi yapınız!")
End If
End Sub
End Class