Напечатать последнее слово в обратном порядке - VB
Формулировка задачи:
В гугле находил подобные задания,но решений к ним нету.Помогите
Дана строка символов.
1) Определить и напечатать слово, содержащее максимальное количество гласных букв.
2) Определить количество слов, начинающихся на букву "р" и длиной от пяти до семи символов.
3) Определить количество символов между первым символом "*" и последним символом "№".
4) напечатать последнее слово в обратном порядке.
Решение задачи: «Напечатать последнее слово в обратном порядке»
textual
Листинг программы
Dim s As String, a() As String
s = InputBox("S=", , "раз два три")
a = Split(s)
a(UBound(a)) = StrReverse(a(UBound(a)))
MsgBox Join(a), , s
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д