Ini Yang Berbentuk Picture.

2.Ini yang berbentuk tulisan.
Public Class Form2

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        Dim i, j, k, l As Short
        Dim n As Integer
        Dim ganjil, genap, max, min As Integer

        i = 1
        n = txtnilai.Text
        Do While i <= n
            lboxangka.Items.Add(i)
            i += 1
        Loop

        'mencari ganjil&genap
        j = 1
        Do While j <= n
            ganjil = j
            If (ganjil Mod 2 = 1) Then
                lst_ganjil.Items.Add(ganjil & ", ")
            Else
                genap = j
                If (genap Mod 2 = 0) Then
                    lst_genap.Items.Add(genap & ", ")
                End If
            End If
            j += 1
        Loop

        'mencari nilai terkecil
        k = 1
        min = 1
        Do While k <= n
            If k <= min Then
                min = k
            End If
            k += 1
        Loop
        txtmin.Text = min

        'mencari nilai terbesar
        l = 1
        max = 1
        Do While l <= n
            If l >= max Then
                max = l
            End If
            l += 1
        Loop
        txtmax.Text = max
    End Sub


Kalau Misalnya Mau Jelas Silakan download di link ini,,,,:
http://www.4shared.com/file/7DzDDE8y/Bilangan_Ganjil_Dan_Bilangan_G.html


Ini Dia Source Kode nya Maaf Saya Tidak Dapat Menjelaskan dari gambar tersebut karena ini hanya untuk teman teman saya....Tetapi kalau memang bisa di mengerti pahami saja sekian terimakasih.................(^_^)
"Jangan Lupa Follow"