Imports System
Imports System.Linq
Public Class GenerateRandomStringWithLinq_VB_NET
Public Shared Function generate_rand_string(ByVal length As Integer) As String
Const characters As String = "0123456789" &
"abcdefghijklmnopqrstuvwxyz" &
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim random = New Random()
Return New String(Enumerable.Repeat(characters, length).
Select(Function(s) s(random.Next(s.Length))).ToArray())
End Function
Public Shared Sub Main(ByVal args As String())
Console.WriteLine(generate_rand_string(10))
End Sub
End Class
' run:
'
' lMsu70sHgL
'