Задача! Срочно!

[sufffa]

Завтра надо сдать....
Пожалста хелп
в текстовое поле вводится три слова произвольной длины через пробел. Необходимо что б после нажатие на кнопку в каждом слове первая и последняя буква поменялись местиами и буквы стали заглавными.

[FaKk2]

UCase - заглавные.

Код: Выделить всё

Private Function DoHomeWork(str As String)
Dim tarr() As String, i&, fst$, snd$

tarr = Split(str, " ") ' Разбиваем в массив по пробелу
For i = 0 To UBound(tarr)
    fst = Mid(tarr(i), 1, 1)' Сохраняем первый символ
    fst=UCase(fst)
    snd = Mid(tarr(i), Len(tarr(i)), 1) 'Последний
    snd=UCase(snd)
    tarr(i) = Left(tarr(i), Len(tarr(i)) - 1) ' Удаляем последний
    tarr(i) = Right(tarr(i), Len(tarr(i)) - 1) ' Удаляем первый
    tarr(i) = snd & tarr(i) & fst ' Сшиваем в обратной последовательности
Next i
str = Join(tarr, " ") 'Сшиваем массив в строку
DoHomeWork=str 'Возращаем результат
End Function


Все таки, слово "пожалуйста", могло ускорить реакцию жителей VBS

[gaidar]

FAKK2
А еще помогла бы бутылка пива

[FaKk2]

gaidar
Да, с этим напряг
Виртуальная разве что