Подсчитать количество слов в заданной строке - VB
Формулировка задачи:
Помогите пожалуйста с задачей.
Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количесво букв "а" в последнем слове данной строки. в) Найти количество слов, начинающихся с буквы "б". г) Найти количество слов, у которых первый и последний символы совпадают между собой. д) Найти длину самого короткого слова.
Решение задачи: «Подсчитать количество слов в заданной строке»
textual
Листинг программы
Option Explicit Option Compare Text Private Sub Command1_Click() Dim S As String, Word, i As Integer, lenShort As Integer, countSS As Integer Dim countB As Integer, countWord As Integer, countA As Integer lenShort = 1000 S = "Подсчитать количество абба слов бв данной стараке" Word = Split(S) countWord = UBound(Word) + 1 countA = UBound(Split(Split(S)(UBound(Split(S))), "а")) For i = 0 To UBound(Word) If Left(Word(i), 1) = "б" Then countB = countB + 1 If Left(Word(i), 1) = Right(Word(i), 1) Then countSS = countSS + 1 If Len(Word(i)) < lenShort Then lenShort = Len(Word(i)) Next i MsgBox "В строке '" & S & "' :" & vbCrLf & vbCrLf & _ "Количество слов в строке - " & countWord & vbCrLf & _ "Количество букв 'а' в последнем слове - " & countA & vbCrLf & _ "Количество слов начинающихся на букву 'б' - " & countB & vbCrLf & _ "Количество слов, у которых первый и последний символы совпадают - " & countSS & vbCrLf & _ "Длина самого короткого слова - " & lenShort End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д