Образуйте по заданному слову слово-перевёртыш - VB
Формулировка задачи:
Образовать по заданному слову слово перевёртыш, в котором все буквы идут в обратном порядке.
Решение задачи: «Образуйте по заданному слову слово-перевёртыш»
textual
Листинг программы
Function RevStr(S As String) As String
l% = Len(S)
If l% <= 1 Then
RevStr = S
Else
RevStr = Right$(S, 1) & RevStr(Mid$(S, 2, l% - 2)) & Left$(S, 1)
End If
End Function
Sub Test()
Debug.Print RevStr("123456")
End Sub