三位数乘一位数

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, yushu3 As Integer
    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(3) * n2(1)
    yushu1 = tempResult Mod 10
    shang = tempResult \ 10
    
    tempResult = n1(2) * n2(1) + shang
    
    yushu2 = tempResult Mod 10
    shang = tempResult \ 10
    
    tempResult = n1(1) * n2(1) + shang
    yushu3 = tempResult Mod 10
    shang = tempResult \ 10
    
    
    Print shang & yushu3 & yushu2 & yushu1
End Sub