Как посчитать количество прописных букв в строке, Visual Basic(код)

Спасибо, только как по другому записать вот эту строчку: If (Mid(stroka, i) >= "A" And Mid(stroka, i) <= "Z") Then count = count + 1

Ответ:

Объяснение:

Module Module1

   Sub Main()

       Dim stroka As String = "Test STRING" '7 прописных символов

       Dim i, count As Byte

       count = 0

       For i = 1 To Len(stroka)

           If (Mid(stroka, i) >= "A" And Mid(stroka, i) <= "Z") Then

               count = count + 1

           End If

       Next i

       Console.WriteLine("Количество прописных букв= {0}", count)

       Console.ReadLine()

   End Sub

End Module