Mega Code Archive

 

Categories / VB.Net Tutorial / Data Type

 

Reorder chars in a string

Public Class Tester     Public Shared Sub Main         Dim counter As Integer         Dim position As Integer         Dim holdChar As Char         Dim jumbleMethod As New Random         Dim quote As String = "abcedfg"         Dim chars() As Char = CType(quote, Char())         For counter = 0 To chars.Length - 1             position = jumbleMethod.Next Mod chars.Length             holdChar = chars(counter)             chars(counter) = chars(position)             chars(position) = holdChar         Next counter         Dim result As String = New String(chars)         Console.WriteLine(result)     End Sub End Class cfabdge