VBCoding Библиотека кодов Visual Basic 6 Переменные, массивы, формат Реверс строки

Visual Basic 6
Реверс строки

Переворачивает слова. телефон - нофелет


Public Function ReverseString(ByVal InputString As String) As String
Dim lLen As Long, lCtr As Long
Dim sChar As String
Dim sAns As String
lLen = Len(InputString)
For lCtr = lLen To 1 Step -1
sChar = Mid(InputString, lCtr, 1)
sAns = sAns & sChar
Next
ReverseString = sAns
End Function

 

Источник: http://www.vbnet.ru/ 

 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Переменные, массивы, формат Реверс строки  
Powered by Exponenta -