Дана фраза. Выяснить сколько в ней имен собственных (начинающихся с заглавной буквы). - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д