Visual Basic For Döngüsü İle Girilen Sayıları Toplama

Bu örneğimizde Visual Basic Form ortamında kullanıcının girmiş olduğu sayıların toplamını hesaplayan programı yapacağız. Kullanıcının 10 tane sayı girmesini sağlayacağız. Bunun için InputBox kutusu ile kullanıcının dışarıdan sayıları girmesini sağlayacağız. 10 tane sayı girmesi için de bu giriş işlemini bir For döngüsü içerisine koyacağız. Böylece for döngüsü ile kullanıcı ard arda 10 tane sayı girebilecek. Bu arada kullanıcının girmiş olduğu sayıları bir listbox nesnesi içerisine alt alta yazdıracağız. Toplam adındaki değişkene de girilen her sayıyı toplama işlemini yapacağız. Son olarak alttaki textbox kutusuna elde edilen toplam değeri yazdırılacak.

Programın Visual Basic Kodları:

Public Class Form1

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

        'www.bilisimkonulari.com

        Dim toplam As Integer
        toplam = 0
        For i = 1 To 10
            ListBox1.Items.Add(InputBox("Girilen sayı", "Bir sayı giriniz"))
            'toplam = toplam + ListBox1.Items(i).ToString
        Next
        For i = 0 To 9
            toplam = toplam + ListBox1.Items(i)
        Next
        TextBox1.Text = toplam.ToString()
    End Sub
End Class

Programın ekran görüntüleri: