随机数不会附加在文本框vb.net中

  • 本文关键字:vb net 文本 随机数 vb.net
  • 更新时间 :
  • 英文 :


你好,这是我今天发现的新东西,当创建20个字符的随机字符串时,我无法附加其他字符串

这是我的代码

Const llen As Integer = 20 ' total 20 chars
Dim cp() As Integer = {48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90}
Dim ch As Integer
Dim r As System.Random = New System.Random()
Dim rndm() As Char = New Char(llen) {}
For i As Integer = 0 To llen - 1
    ch = cp(r.Next(0, cp.Length))
    rndm(i) = Chr(ch)
Next
Dim randchars As String = rndm
Dim first As String = "CUSTOM1"
Dim second As String = "CUSTOM2"
Textbox1.Text = first & randchars & second

现在,如果我采用这种方式,输出不会在这些随机字符后面附加第二个字符串

Textbox1.Text=随机字符&第二&第一个

输出只有randchars而不是第一个和第二个但是,如果我在两个字符串后面都加上randchars,它会附加什么问题?

好吧,伙计们,这可以用字符串生成器代替Dim rndm()As Char=New Char(llen){},然后附加到字符串生成器和字符串生成器的末尾。tostring

最新更新