参考
Dim str As String = "abcdefghijklmnopqrstuvwxyz0123456789"Dim n As Integer = 20Dim nstr As String = ""For i As Integer = 1 To n nstr &= str(Rand.Next(str.length))Nextmsgbox(nstr)