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

Ответ:

Объяснение:

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) gt;= "A" And Mid(stroka, i) lt;= "Z") Then

               count = count + 1

           End If

       Next i

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

       Console.ReadLine()

   End Sub

End Module