Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Test6.txt")
        Dim row() = Split(fileContents, vbNewLine)

        Dim result = ""
        For j As Integer = 1 To Val(row(0))
            Dim str = row(j)
            Dim a = 0
            For i As Integer = 1 To str.Length
                If (i   1) Mod 2 = 0 Then
                    a = a   Val(Mid(str, i, 1))
                Else
                    a = a - Val(Mid(str, i, 1))
                End If
            Next
            Dim str1 = ""
            If a = 0 Or a = 11 Then
                str1 = "1"     '是11的倍數
            Else
                str1 = "0"
            End If
            result = result & str1 & vbNewLine
        Next

        My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\result6.txt", result, False)

        End
    End Sub
End Class