Зашифровать строку, записав все ее символы в обратном порядке - VB

Узнай цену своей работы

Формулировка задачи:

Дана фраза. Зашифровать ее, записав все ее символы в обратном порядке. Помогите написать программу пожалуйстаааа

Решение задачи: «Зашифровать строку, записав все ее символы в обратном порядке»

textual
Листинг программы
Option Explicit
 
 
Function StrReverse32(ByVal Expression$)
    Dim i&, ll&
    ll = Len(Expression)
    Let StrReverse32 = Space$(ll)
    For i = 1 To ll: Mid$(StrReverse32, ll - i + 1, 1) = Mid$(Expression, i, 1): Next
End Function
 
 
Private Sub Form_Load()
    '
    'Вызов! - вписать можно что угодно например если написать 123 на выходе будет 321
    '
    MsgBox StrReverse32(123)
End Sub

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

10   голосов , оценка 3.9 из 5
Похожие ответы