Çarpım Sembolü ( Multiplication Symbol )

 

Public Class Form1

    Dim a As Integer

    Dim sonuc, toplam, carpim As Double

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

        a = TextBox1.Text

        toplam = 0

        carpim = 1

        For i = 1 To a

            toplam = 3 * i + 2

            carpim = carpim * toplam

        Next

        MsgBox("Sonuç = " & carpim)

    End Sub

End Class