- Feature Articles
- CodeSOD
- Error'd
-
Forums
-
Other Articles
- Random Article
- Alex's Soapbox
- Announcements
- Best of…
- Best of Email
- Best of the Sidebar
- Bring Your Own Code
- Coded Smorgasbord
- Mandatory Fun Day
- Off Topic
- Representative Line
- News Roundup
- Editor's Soapbox
- Software on the Rocks
- Souvenir Potpourri
- Sponsor Post
- Tales from the Interview
- The Daily WTF: Live
- Virtudyne
Admin
Private Function GetLetter(ByVal Index As Integer) As String Select Case Index Case 0 Return "a" Case 1 Return "b" 'SNIP: ... all the way to "Z" End Select End Function
Non-WTF version 1:
Private Function GetLetter(ByVal Index As Integer) As String Return MID$("abcdefghijklmnopqrstuvwxyz", Index, 1) End Function
Non-WTF version 2 (depends on ASCII): Private Function GetLetter(ByVal Index As Integer) As String Return CHR$(64+Index) End Function
(The only BASIC I know is QBASIC, so I may have gotten the VB syntax wrong)