Dim str As String = "abcdefghi1234567890jklmnopqrstuvwxyz"
Dim ListStr As List(Of String) = New List(Of String)()
Dim rand As Random = New Random()
While str.Length > 0
Dim c As Integer = rand.[Next](0, str.Length)
ListStr.Add(str(c).ToString())
str = str.Remove(c, 1)
End While
这个是别人用C#写转码过来的。。