Вам понравился наш сайт? Хотите сказать спасибо? Посмотрите объявления, может быть Вас что-нибудь заинтересует:
Реверс строки
Библиотека кодов 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 Переменные, массивы, формат Реверс строки
Библиотека кодов Visual Basic 6 Переменные, массивы, формат Реверс строки