My Programming 12 class is working on a Letter Counter that counts the occurence of all letters (and spaces) in a string. All of us are stumped as to how this code isn't working. We don't know too much about arrays, so we tried it with variables and it still didn't work. Is anyone able to help us with an answer?
Thanks!
Thanks!
VB.NET:
Dim myString(26) As Integer
Dim i As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inny As String = Input.Text
Dim added As Integer = (i + 65)
Dim counter As Integer
Dim substring As Char
inny = inny.Trim()
inny = inny.ToUpper
Output.Text = ""
For counter = 0 To inny.Length 'goes for length of input string
For i = 0 To 26 'goes through each letter
substring = inny.Substring(i, 1)
If substring = Chr(added) Then 'takes character in the position of i and if it equals the character code equivalent to i + 65
myString(i) = myString(i) + 1 'it adds one to its array
End If
If substring = Chr(32) Then 'if space
myString(26) = myString(26) + 1 'add one to myString spot for spaces
End If
Next
Next
Output.Text = myString(0) & " A's" & vbNewLine & myString(1) & " B's" & vbNewLine & _
myString(2) & " C's" & vbNewLine & myString(3) & " D's" & vbNewLine & _
myString(4) & " E's" & vbNewLine & myString(5) & " F's" & vbNewLine & _
myString(6) & " G's" & vbNewLine & myString(7) & " H's" & vbNewLine & _
myString(8) & " I's" & vbNewLine & myString(9) & " J's" & vbNewLine & _
myString(10) & " K's" & vbNewLine & myString(11) & " L's" & vbNewLine & _
myString(12) & " M's" & vbNewLine & myString(13) & " N's" & vbNewLine & _
myString(14) & " O's" & vbNewLine & myString(15) & " P's" & vbNewLine & _
myString(16) & " Q's" & vbNewLine & myString(17) & " R's" & vbNewLine & _
myString(18) & " S's" & vbNewLine & myString(19) & " T's" & vbNewLine & _
myString(20) & " U's" & vbNewLine & myString(21) & " V's" & vbNewLine & _
myString(22) & " W's" & vbNewLine & myString(23) & " X's" & vbNewLine & _
myString(24) & " Y's" & vbNewLine & myString(25) & " Z's"
End Sub