Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VBA] Расшифровать сообщение

Автор: Radick 20.12.2009, 11:36

Доброго времени! Помогите, пожалуйста, решить задачку:
В записке слова зашифрованы — каждое из них записано наоборот. Расшифровать сообщение.

Автор: ТоляМБА 20.12.2009, 12:21

Код

Public Function Freverce(s As String) As String
Dim L, I As Integer
Dim res As String
L = Len(s)
res = ""
For I = L To 1 Step -1
    res = res + Mid(s, I, 1)
Next I
Freverce = res
End Function

Можно в принципе реализовать и через другие циклы.

Автор: Radick 20.12.2009, 13:26

большое спасибо smile