Imports System.Data
Imports System.Data.OleDb
Partial Class DB03
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim X(4) As Integer
        Dim Y(4) As Integer


        Dim i, j, A, B As Integer

        Label1.Text = ""
        For i = 1 To 4

            X(i) = CInt(Mid(TextBox1.Text, i, 1))
            Y(i) = CInt(Mid(TextBox2.Text, i, 1))
        Next

        A = 0
        B = 0
        For i = 1 To 4
            For j = 1 To 4
                If X(i) = Y(j) Then
                    If i = j Then
                        A = A + 1

                    Else
                        B = B + 1


                    End If
                End If

            Next
        Next
        Label1.Text = A.ToString() & "A" & B.ToString() & "B"
    End Sub
End Class