•Private
Sub btnAnalyze_Click(...) Handles btnAnalyze.Click
•'Count
occurrences of the various letters in a sentence
• Dim index, letterNum As Integer
• Dim sentence, letter As
String
• Dim charCount(26) As
Integer
• 'Examine and tally each letter of the
sentence
• sentence = (txtSentence.Text).ToUpper
• For letterNum = 1 To sentence.Length
• letter = sentence.Substring(letterNum - 1,
1)
• If (letter >= "A") And (letter <=
"Z") Then
• index = Asc(letter) - 64 'The ANSI
value of "A" is 65
• charCount(index) += 1
• End If
• Next