VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Реверс строки
	Переворачивает слова. телефон - нофелет 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

VBNet online (всего: 52050)

Лучшие материалы

ActiveX контролы (112)

Примеры кода (546)

Статьи по VB (136)