如何在VB.Net中生成7位随机数/特殊字符串？

Question

在VB.Net中，如何在按钮单击事件的文本框中生成7位随机数和特殊字符串？

Answer 1

Put the characters you want in a string and pick from that:

Dim chars As String = "0123456789abcdefghijklmnopqrstuvwxyz!#%&()?+-;:"
Dim word As Char() = New Char(6)
Dim rnd As New Random()
For i As Integer = 0 To word.Length - 1
  word(i) = chars.Chars(rnd.Next(chars.Length))
Next
TheTextBox.Text = New String(word)

Answer 2

here is a light weight version i use:

Protected Function GetRandomPass() As String
    Dim pass As String = String.Empty
    Dim AllowedChars() As String = {"ABCDEFGHJKLMNPQRSTWXYZ", "abcdefghjklmnpqrstwxyz", "0123456789"}
    Dim rnd = New Random()
    While pass.Length < 10
        Dim rndSet As Integer = rnd.Next(0, AllowedChars.Length)
        pass &= AllowedChars(rndSet).Substring(rnd.Next(0, AllowedChars(rndSet).Length), 1)
    End While
    Return pass
End Function

it chooses a random index of the AllowedChars() array and then chooses a random character in that index using the substring property and appends it to the pass string when the string reaches the defined length it returns the randomly generated password.

this way you can keep your character types separate and also have the ability to add more items to the AllowedChars() array with out editing the rest of the function

I know you could do this with just a plain string and get a random substring out of it but i prefer to see the differences between UPPER, lowercase, and num3r1c/($pec|@|_) characters.