Дана фраза. Выяснить сколько в ней имен собственных (начинающихся с заглавной буквы). - VB

Узнай цену своей работы

Формулировка задачи:

Дана фраза. Выяснить сколько в ней имен собственных (начинающихся с заглавной буквы).

Решение задачи: «Дана фраза. Выяснить сколько в ней имен собственных (начинающихся с заглавной буквы).»

textual
Листинг программы
Private Sub Command1_Click()
    Dim S() As String, i As Integer, n As Integer
    S = Split(InputBox("Введите фразу.", "Ввод данных", "Столица нашей Родины - город Москва."))
    For i = 0 To UBound(S)
         If UCase(Left(S(i), 1)) = Left(S(i), 1) And Len(S(i)) > 1 Then n = n + 1
    Next i
    MsgBox "Количество слов, начинающихся с заглавной буквы во фразе - " & n
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы