寫在文本框中單獨的數字每兩個數字與逗號vb.net

Question

這裏是數圖表上面提到的，我想編寫代碼下面我查詢：

控件我有textbox1， label1，label2，button1。

我有一個textbox1其產生隨機數即402045.

我想在label1在下面的文本框的文本顯示爲：40,20,45。

而在Label2中，它將顯示上述圖表中逗號分隔數字的值，即：label2值將爲：PFr。

示例代碼：

For i As Integer = 0 To TextBox1.Text.Length 
    ListBox1.Items.Add(i) 
    Label1.Text = TextBox1.Text.Substring(0, 2) & "-" 
Next i 

Answer 1

試試這個：

Dim sChars '--> contain your chars 
Dim s as String = Textbox1.text 
Dim s1,s2,s3 as String 

sChars = "+-* ..." ' --> fill this 
s1 = mid(s,1,2) 
s2 = mid(s,3,2) 
s3 = mid(s,5) 

Label1.text = s1 & "," & s2 & "," & s3 
Label2.text = mid(sChars,val(s1),1) & mid(sChars,val(s2),1) & mid(sChars,val(s3),1) 

但我認爲，在這種情況下是不需要Label1.text！