Напечатать последнее слово в обратном порядке - 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

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

13 голосов , оценка 4.231 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы