二乘一的运算

电脑有点故障，没办法弄图片了，只能直接打程序了。

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) = 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)
    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

关于三乘二，一乘一，与这个程序只有很小的区别，就不再一一打出来了。