0

Visual Studio は初めてです。Visual Basic で、テキスト ボックスから 13 桁の数字を取得し、その数字を配列に書き込む簡単なプログラムを作成しようとしました。次に、配列の 2 番目のメンバー (番号) を別のテキスト ボックスに入力しますが、機能しません。コードは次のとおりです。

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

何が悪いのか教えていただけますか？

4

1 に答える 1

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
于 2013-03-08T09:43:16.943 に答える