Visual Basic（錯誤代碼）

Question

我是新來的Visual Studio.I試圖寫在Visual Basic中的一個簡單的程序，從一個文本框中取一個13位數字，並將其數字寫入一個數組。然後它寫入數組的第二個成員（數字的第二個數字）到另一個文本框，但它不起作用。這裏是代碼：

Public Class Form1 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim array(12) As Integer 
     Dim index As Integer = 11 
     Dim code As Long = TextBox1.Text 
     Do While index >= 0 
      array(index) = code Mod 10 
      code /= 10 
      index -= 1 
     Loop 
     TextBox2.Text = array(1) 
    End Sub 
End Class 

你能告訴我什麼是錯的嗎？

Answer 1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim array(12) As Integer 
    Dim index As Integer = 11 
    Dim code As Char() = TextBox1.Text.ToCharArray() 

    For i As Integer = 0 To code.Count - 1 
     array(i) = Integer.Parse(code(i)) 
    Next 

    TextBox2.Text = array(1) 
End Sub