txtbox1
から入力を受け取り、結果を出力する次の関数がありますtxtbox2
。要点は、各文字を特定の数値に置き換え、各単語の値を計算してから、すべての単語の合計を表示することです。現在、この関数は常に 13 まで計算していaaa bbb cc
ます。たとえば、入力すると、結果は次のようになります。それを行うために関数を変更するにはどうすればよいですか?
aaa = 3
bbb = 15
cc = 14
Total = 32
Private Sub CountLetters(Input As String)
Dim total As Integer = 0
Dim dicLetters As New Dictionary(Of Char, Integer)
dicLetters.Add("a", 1)
dicLetters.Add("b", 5)
dicLetters.Add("c", 7)
For Each word As String In Input.Split
Dim wordtotal As Integer = 0
For Each cc As KeyValuePair(Of Char, Integer) In dicLetters
wordtotal += cc.Value
Next
total += wordtotal
'Display word totals here
txtBox2.Text += word.PadRight(12) + "=" + _
wordtotal.ToString.PadLeft(5) + vbNewLine
Next
'Display total here
txtBox2.Text += "Total".PadRight(12) + "=" + total.ToString.PadLeft(5)
End Sub