两位数 乘 一位数

Option Base 1
Private Sub Command1_Click()

    Me.Font.Size = 70

          Dim n1() As Byte, n1LenAs Long
    Dim n2() As Byte, n2Len As Long
    Dim yushu1 As Byte, yushu2 As Byte
    Dim shang As Byte
    Dim i As Long
    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(2) * n2(1) + shang
    yushu1 = tempResult Mod 10
    shang = tempResult \ 10
    
    tempResult = n1(1) * n2(1) + shang
    yushu2 = tempResult Mod 10
    shang = tempResult \ 10
   
    Print shang & yushu2 & yushu1
    
End Sub