İSTEDİĞİN KADAR SAYIYI TOPLA

Public Class Form1

    Dim sayi, i, sayi1 As Integer

    Dim toplam As Double

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

        sayi = TextBox1.Text

        For i = 1 To sayi

            sayi1 = InputBox("Sayi Giriniz")

            toplam = toplam + sayi1

        Next

        MsgBox("Toplam Değer = " & toplam, MsgBoxStyle.Information, "Ercan Akgün")

    End Sub

End Class