Dim KOTAE_XN_1 As Integer
        Dim N As Integer = 10
        Dim HAIRET(N, N) As String
        Dim SUURETU As String = "2311312312"
        Dim Y = 1

        For a = 1 To N

            '最後なら抜ける
            If (a = N) Then
                Exit For
            End If

            '最初の値を入れる
            For i = 1 To N

                HAIRET(1, i) = SUURETU.Substring(i - 1, 1)

            Next

            For i = 1 To N

                HAIRET(a + 1, i) = (Integer.Parse(HAIRET(a, i)) - Integer.Parse(HAIRET(a, i + 1))).ToString
                If (Integer.Parse(HAIRET(a + 1, i)) < 0) Then
                    HAIRET(a + 1, i) = (Integer.Parse(HAIRET(a + 1, i)) * -1).ToString
                End If


                If (i + Y = N) Then
                    Y = Y + 1
                    Exit For
                End If


            Next

        Next

        KOTAE_XN_1 = HAIRET(N, 1).ToString