Toplam Sembolü ( Total Symbol)

Public Class Form1

    Dim k As Integer

    Dim toplam, kok, sonuc As Double

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        k = InputBox("Değer giriniz")

        toplam = 0

        kok = 1

        sonuc = 0

        For i = 1 To k

            toplam = i + 2

            kok = toplam * toplam

            sonuc = sonuc + kok

        Next

        MsgBox("Sonuç = " & sonuc)

    End Sub

End Class