Visual Basic Form Application For Döngüsü Örneği-2

Visual Basic Form Application ortamında yaptığımız bu örnek ile 0 dan 100 e kadar olan çift sayıları ekrana bir liste kutusu içerisine yazdıracağız. Öncelikle formumuza bir tane label ve bir tane de listbox nesnesi ekliyoruz.

Program yüklendiğinde yani Form1_Load olayına bir for döngüsü ile programı yazıyoruz. Öncelikle bir i değişkeni tanımlayarak bu değişkenin for döngüsü içerisinde 0 dan başlayarak 2 şer artışla 100 e kadar artmasını ve her artıştan sonra da yeni değierini ekrana yazdırmasını sağlıyoruz.

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

Programın Visual Basic Kodları:

Public Class Form1

    '0'dan 100'e kadar olan çift sayılar
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'www.bilisimkonulari.com

        Dim i As Integer

        For i = 0 To 100 Step 2 'i 0 den başlayarak 100'e kadar ikişer ikişer artacak
            ListBox1.Items.Add(i)
        Next
    End Sub
End Class