1x1

Option Base 1

Private Sub Command1_Click()

    Me.Font.Size = 70

    Dim n1() As Byte, n1len As Long

    Dim n2() As Byte, n2len As Long

    Dim yushu As Byte

    Dim shang As Byte

    Dim tempresult As Byte

    n1len = Len(Me.Text1.Text)

    n2len = Len(Me.Text2.Text)

    ReDim n1(n1len)

    ReDim n2(n2len)

    For i = LBound(n1) To UBound(n1)

        n1(i) = Mid(Me.Text1.Text, i, 1)

    Next

    For i = LBound(n2) To UBound(n2)

        n2(i) = Mid(Me.Text2.Text, i, 1)

    Next

    tempresult = n1(1) * n2(1) + shang

    yushu = tempresult Mod 10

    shang = tempresult \ 10

    Print shang & yushu

End Sub