1

ランダムな文字列に数字を追加する方法がわかりません.3のような文字列を表示する代わりに、常に5の文字列を表示したいのですが、その方法がわかりません。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim rndnumber As Random
    Dim number As Integer
    rndnumber = New Random
    number = rndnumber.Next(1, 80000)
    TextBox1.Text = number.ToString
End Sub
4

3 に答える 3

3

この関数を使用して、ランダムな文字列を作成できます。

Public Function GenerateRandomString(ByRef len As Integer, ByRef upper As Boolean) As String
    Dim rand As New Random()
    Dim allowableChars() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray()
    Dim final As String = String.Empty
    For i As Integer = 0 To len - 1
        final += allowableChars(rand.Next(allowableChars.Length - 1))
    Next

    Return IIf(upper, final.ToUpper(), final)
End Function

この関数は次のように呼び出すことができます。

GenerateRandomString(5, False)

最初のパラメーターは文字数で、2番目のパラメーターは大文字が必要かどうか（TrueまたはFalse）です。

于 2013-02-06T07:30:39.967 に答える
1

これにより、長さ 5 のランダムな文字列番号が生成されます。

final = rdm.Next(0, 100000).ToString("00000")

そして、この関数は任意の長さのランダムな文字列を生成します:

Public Function GetRandomString(ByVal iLength As Integer) As String
    Dim sResult As String = ""
    Dim rdm As New Random()

    For i As Integer = 1 To iLength
        sResult &= ChrW(rdm.Next(32, 126))
    Next

    Return sResult
End Function
于 2013-02-06T08:30:44.603 に答える
0

数字の文字列である必要がありますか?そうでない場合は、System.IO.Path.GetRandomFileName を使用できます。この関数は、任意の長さのランダムな大文字の文字列を提供します。デフォルトは 8 文字です。

Public Function GetRandomString(Optional ByVal iLength As Integer = 8) As String
    Dim sPath, SResult As String

    sPath = ""
    Do
        sPath = sPath + System.IO.Path.GetRandomFileName.Replace(".", "")
    Loop Until sPath.Length > iLength
    SResult = sPath.Substring(0, iLength)
    Return SResult.ToUpper
End Function
于 2016-07-13T18:03:32.213 に答える