Письмо игра вызов - визуальные основы

Question

Игра в слова присуждает очки за буквы, используемые в слове.Чем ниже частота письма на английском языке, тем выше оценка за письмо.Напишите программу, которая просит пользователя ввести слово.Затем программа должна вывести оценку для слова в соответствии со следующим правилом:

https://i.stack.imgur.com/Fhyli.jpg

**, и я сделал **

Sub Main()
    Dim total As Integer
    Dim word As String
    total = 0


    Console.Write("Word:")
    word = Console.ReadLine()
    Select Case word
        Case = "e"
            total = total + 1
        Case = "a"
            total = total + 2
        Case = "r"
            total = total + 3
        Case = "i"
            total = total + 4
        Case = "o"
            total = total + 5
        Case = "t"
            total = total + 6
        Case = "n"
            total = total + 7
        Case = "s"
            total = total + 8
        Case = "l"
            total = total + 9
        Case = "c"
            total = total + 10
        Case = "u"
            total = total + 11
        Case = "d"
            total = total + 12
        Case = "p"
            total = total + 13
        Case = "m"
            total = total + 14
        Case = "h"
            total = total + 15
        Case "g"
            total = total + 16
        Case = "b"
            total = total + 17
        Case = "f"
            total = total + 18
        Case = "y"
            total = total + 19
        Case = "w"
            total = total + 20
        Case = "k"
            total = total + 21
        Case = "v"
            total = total + 22
        Case = "x"
            total = total + 23
        Case = "z"
            total = total + 24
        Case = "j"
            total = total + 25
        Case = "q"
            total = total + 26
    End Select
    Console.WriteLine(total)
    Console.ReadLine()

, новывод равен 0 Мне было интересно, как принять во внимание полное слово и как учитывать несколько букв в 1 слове.

Answer 1

Все просто, создайте словарь, который будет содержать буквы и точки при загрузке формы.Создайте функцию, которая возвращает значение точки буквы, цикл по строке с для каждого цикла.Вам нужно текстовое поле, кнопка и метка.

Dim WordPoints As New Dictionary(Of String, Integer)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    WordPoints.Add("e", 1)
    WordPoints.Add("a", 2)
    WordPoints.Add("r", 3)
    WordPoints.Add("i", 4)
    WordPoints.Add("o", 5)
    WordPoints.Add("t", 6)
    WordPoints.Add("n", 7)
    WordPoints.Add("s", 8)
    WordPoints.Add("l", 9)
    WordPoints.Add("c", 10)
    WordPoints.Add("u", 11)
    WordPoints.Add("d", 12)
    WordPoints.Add("p", 13)
    WordPoints.Add("m", 14)
    WordPoints.Add("h", 15)
    WordPoints.Add("g", 16)
    WordPoints.Add("b", 17)
    WordPoints.Add("f", 18)
    WordPoints.Add("y", 19)
    WordPoints.Add("w", 20)
    WordPoints.Add("k", 21)
    WordPoints.Add("v", 22)
    WordPoints.Add("x", 23)
    WordPoints.Add("z", 24)
    WordPoints.Add("j", 25)
    WordPoints.Add("q", 26)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim TotalPoints As Integer
    For Each letter As String In TextBox1.Text.ToLower
        TotalPoints += WordPoints(letter)
    Next
    Label1.Text = TotalPoints.ToString
End Sub

Что вам нужно добавить, так это еще немного обработать текстовое поле, чтобы оно не принимало пробел, цифры и специальные символы.И настроить его так, как вы хотите.