我有三个声明为字符串的变量，有没有办法随机选择一个？

Question

我有三个字符串，sUpperCase、sLowerCase 和 sNumbers。每个都有小写字符、大写字符或数字。我需要知道如何随机选择这些字符串之一。我想过也许可以给他们分配一个数字，但我不确定如何在不覆盖其中的文本的情况下做到这一点。甚至可能是一个数组，但我也不确定该怎么做。有人可以帮忙吗？

Dim sLowerCase As String = "qwertyuiopasdfghjklzxcvbnm"
Dim sUpperCase As String = "MNBVCXZLKJHGFDSAPOIUYTREWQ"
Dim sNumbers   As String = "1234567890"

答案：

 Function GeneratePassword() As String
        '
        ' Declare two strings as the characters which the password can be created from
        Dim sLowerCase As String = "qwertyuiopasdfghjklzxcvbnm"
        Dim sUpperCase As String = "MNBVCXZLKJHGFDSAPOIUYTREWQ"
        Dim sNumbers As String = "1234567890"

        ' Create a new random. 
        ' Random is something which gets a random set of characters from a string. 
        Dim random As New Random

        '
        ' Create sPassword as a new stringbuilder
        ' A stringbuilder is simply a class which builds a string from multiple characters
        Dim sPassword As New StringBuilder

        ' Not random enough
        'For i As Integer = 1 To 4
        '    Dim idxUpper As Integer = random.Next(0, sUpperCase.Length - 1)
        '    sPassword.Append(sUpperCase.Substring(idxUpper, 1))
        '    Dim idxNumber As Integer = random.Next(0, sNumbers.Length - 1)
        '    sPassword.Append(sNumbers.Substring(idxNumber, 1))
        '    Dim idxLower As Integer = random.Next(0, sLowerCase.Length - 1)
        '    sPassword.Append(sLowerCase.Substring(idxLower, 1))
        'Next


        ' Random select Upper, lower or numeric
        ' Check for a max number of this(three if's to check for which one it was, might need or in if)
        ' If yes randomly select another one
        ' If no get random char from that type
        ' Add to password
        ' Is the password complete?
        ' If yes return password, if not repeat

        Dim iCountUpper As Integer = 0
        Dim iCountLower As Integer = 0
        Dim iCountNumber As Integer = 0

        Do Until sPassword.Length = 10
            'Needed help for this bit
            Dim x = New Random(Now.GetHashCode)
            Dim y = {"sLowerCase", "sUpperCase", "sNumbers"}
            Dim z = y(x.Next(0, y.Length))

            If z.Contains("sLowerCase") And iCountUpper < 4 Then

                Dim idxUpper As Integer = random.Next(0, sUpperCase.Length - 1)
                sPassword.Append(sUpperCase.Substring(idxUpper, 1))
                iCountUpper = iCountUpper + 1

            ElseIf z.Contains("sUpperCase") And iCountLower < 4 Then
                Dim idxLower As Integer = random.Next(0, sLowerCase.Length - 1)
                sPassword.Append(sLowerCase.Substring(idxLower, 1))
                iCountLower = iCountLower + 1

            ElseIf z.Contains("sNumbers") And iCountNumber < 2 Then
                Dim idxNumber As Integer = random.Next(0, sNumbers.Length - 1)
                sPassword.Append(sNumbers.Substring(idxNumber, 1))
                iCountNumber = iCountNumber + 1
            Else

            End If
        Loop

        '
        ' Return the password as a string
        Return sPassword.ToString

    End Function

Answer 1

你可以这样做：

Dim sLowerCase As String = "qwertyuiopasdfghjklzxcvbnm"
Dim sUpperCase As String = "MNBVCXZLKJHGFDSAPOIUYTREWQ"
Dim sNumbers As String = "1234567890"

Dim x = New Random(Now.GetHashCode)
Dim y = {sLowerCase, sUpperCase, sNumbers}
Dim z = y(x.Next(0, y.Length))
Debug.Print(z)

Answer 2

Dim strings = {"qwertyuiopasdfghjklzxcvbnm", "MNBVCXZLKJHGFDSAPOIUYTREWQ", "1234567890"}

Dim selected As String
Dim Generator As System.Random = New System.Random()
selected = strings(Generator.Next(0, strings.GetUpperBound(0)))

Answer 3

用您的字符串创建一个数组：

Dim array As String() = New String() {sLowerCase, sUpperCase, sNumbers}

使用Randomclass生成0到数组长度之间的随机数：

Dim random As Random = New Random(DateTime.Now.Ticks)
Dim randomChoose As String = array(random.Next(0, array.Length - 1))

Select 一个随机字符：

Dim ch As Char = randomChoose(random.Next(0, randomChoose.Length - 1))

我有三个声明为字符串的变量，有没有办法随机选择一个？

I have three variables declared as strings, is there a way to randomly choose one?

vb.net