Visual Basic (코드 실수)

Question

Visual Studio를 처음 사용합니다. 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