Visual Basic.Net--1'den 100'e kadar olan sayıların tek ve çift olanlarını bulma

Form görüntüsü

Çift sayıları yazdırmak için  "Çift Sayılar" yazılı checkbox'ın altındaki "bas" butonuna basıyoruz ve içerisine şu kodları yazıyoruz.
---------------------------------------------------

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()     'ListBox'ın içerisini temizler
        If CheckBox1.Checked = True Then      'Eğer checkbox seçili değil ise işlem yapmaz
            For z = 1 To 100
                If z Mod 2 = 0 Then      ' Sayının 2'ye bölümünden kalan 0 ise
                    ListBox1.Items.Add(z)
                End If
            Next z
        End If
    End Sub
--------------------------------------------------

Tek sayıları yazdırmak için "Tek Sayılar" yazılı checkbox'ın altınki "bas" butonuna basıyoruz ve içerisine şu kodları yazıyoruz.
--------------------------------------------------

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        If CheckBox2.Checked = True Then
            For z = 1 To 100
                If z Mod 2 = 1 Then
                    ListBox1.Items.Add(z)
                End If
            Next z
        End If
    End Sub
-------------------------------------------------
Kodda kullandığımız bazı fonksiyonların işlevi

Mod bölme işleminde kalanı verir. C dilinde % işaretiyle aynı işlevi görür.
Clear kullanıldığı yerin içerisindekileri tamamen siler.