Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        For a = 1 To 255
            ListBox1.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Integer
        For a = 65 To 90
            ListBox2.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a As Integer
        For a = 97 To 122
            ListBox3.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a As Integer
        For a = 48 To 57
            ListBox4.Items.Add("ASCII kodu=" & a & "Karakter karşılığı=" & (Chr(a)))

        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Application.Exit()
    End Sub
End Class