Children’s show “Sesame Street” famously ends each episode with a message along the lines of, “Today’s episode is brought to you by the letter ‘B’.”

The alphabet is the first thing that’s drilled into us when we’re learning our native language. Brenden’s co-worker definitely understands the alphabet. Their grasp of loops and conditionals on the other hand…

Public Sub CreateAlphabets()
       Dim tempTable As New DataTable
       tempTable.Columns.Add("ID")
       tempTable.Columns.Add("Alphabets")

       For i As Integer = 0 To 26
           Dim dr As DataRow
           dr = tempTable.NewRow

           Select Case i
               Case 0
                   dr.Item("ID") = "A"
                   dr.Item("Alphabets") = "A"
                   tempTable.Rows.Add(dr)
               Case 1
                   dr.Item("ID") = "B"
                   dr.Item("Alphabets") = "B"
                   tempTable.Rows.Add(dr)
               Case 2
                   dr.Item("ID") = "C"
                   dr.Item("Alphabets") = "C"
                   tempTable.Rows.Add(dr)
               Case 3
                   dr.Item("ID") = "D"
                   dr.Item("Alphabets") = "D"
                   tempTable.Rows.Add(dr)
               ' SNIP … 
               Case 24
               	dr.Item("ID") = "Y"
               	dr.Item("Alphabets") = "Y"
               	tempTable.Rows.Add(dr)
               Case 25
                   dr.Item("ID") = "Z"
                   dr.Item("Alphabets") = "Z"
                   tempTable.Rows.Add(dr)
           End Select

       Next

       Me.rptAlphabets.DataSource = tempTable
       Me.rptAlphabets.DataBind()
End Sub

This code, by the way, is to help generate a list of links to pages where lists of users are grouped by the first letter in their name.