隨機數亙古不變的文本vb.net追加

你好，這是新的東西我今天發現創造的20個字符隨機數亙古不變的文本vb.net追加

這裏隨機字符字符串時，我不能追加其他字符串是我的代碼

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不是第一個和第二個但如果我在兩個字符串之後追加randchars它會附加什麼可能是問題？

來源

2016-01-08 android_guy

'RNDM（） '以未初始化的元素結束，因爲Dim rndm（）As Char = New Char（llen）{}'創建一個包含21個元素的數組。我無法完全理解問題所在，但Null元素將表示字符串結束。 – Plutonix

這是正確的，但問題也在_llen-1_它應該是_rndm.Length - 1_ – Steve

@Putonix ...和字符串的結尾使得文本框不會呈現字符串的其餘部分。 –

-1

沒關係球員這可以固定在昏暗的地方RNDM（）爲char =新字符（LLEN）{}取字符串構建，然後附加到字符串生成器，並在端stringbuilder.tostring

來源

2016-01-09 10:16:34

你在初始代碼中錯過的所有內容都是三個字符：' - 1'。 –

隨機數亙古不變的文本vb.net追加

回答

相關問題