两位数乘一位数

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 yushu1 As Byte, yushu2 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) = Int(Val(Mid(Me.Text1.Text, i, 1)))
     Next
     For i = LBound(n2) To UBound(n2)
         n2(i) = Int(Val(Mid(Me.Text2.Text, i, 1)))
     Next
     tempResult = n1(2) * n2(1)
     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