Учет определенного символа в строке с использованием SubString

Question

Я преподаю себе VB.net, и я пытаюсь выполнить задачи.

Я застрял на этом вызове.

Я пытаюсь выяснить, как идти о подсчете конкретных символов в строке с помощью SubString.

Я не должен использовать функции обработки строк, кроме: Trim, ToUpper, ToLower, Indexof, SubString.

Добавить одну кнопку для каждого гласного алфавита. Когда вы нажимаете, вывод - это количество этой гласной в введенном тексте. Используя SubString, код под обработчиком события нажатия кнопки показывает, сколько раз соответствующий символ появляется в тексте.

Это то, что у меня есть до сих пор, но как мне включить SubString?

Dim counter As Integer = 0 
    For Each vowelA As Char In TextBox1.Text 
     If vowelA = "a" Then 
      counter += 1 
     End If 

     If vowelA = "A" Then 
      counter += 1 
     End If 

    Next 

Answer 1

Здесь я включил также .ToUpper так что вам не нужно сравнивать "а" и "А"

Dim counter As Integer = 0 
For i = 0 To TextBox1.Text.Length - 1 
    If TextBox1.Text.ToUpper.Substring(i, 1) = "A" Then 
     counter += 1 
    End If 
Next 

Answer 2

Попробуйте что-то вроде этого:

Dim pos As Integer = 0 
    Dim letter as String 
    While pos < TextBox1.Text.Length 
     letter = TextBox1.Text.Substring(pos, 1) 
     If letter = "A" Then 
      counter += 1 
     End If 

     pos += 1 
    End While 

Answer 3

Без с использованием функции substring(),

Function count_vowels(ByVal str As String, ByVal chr As String) As Integer 
     str = str.ToUpper() 
     chr = chr.ToUpper() 
     count_vowels = str.Split(chr).Length - 1 
     Return count_vowels 
End Function 

Использование:

Dim counter As Integer = 0 
counter = count_vowels(TextBox3.Text, "a") 

или просто использовать

counter = TextBox1.Text.ToUpper.Split("a".ToUpper).Length - 1