两数相乘

有史以来难得的状态这么好，从编程到写博客到发表，竟然都这么顺利，给自己赞一个

一、单个数字*单个数字

      Private Sub Command1_Click()
        Dim n1 As Integer
        Dim n2 As Integer
        Dim yushu As Byte
        Dim shang As Byte

        n1 = Int(Val(Me.Text1.Text))
        n2 = Int(Val(Me.Text2.Text))

        tempresult = n1 * n2

        yushu = tempresult Mod 10
        shang = tempresult \ 10

        Print shang & yushu

     End Sub
二、多位数*单位数
        Private Sub Command1_Click()
        Dim n1 As Integer, n1len As Long
        Dim n2 As Integer, n2len As Long
        Dim yushu 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
        tempresult = n1(2) * n2(1) * shang
        yushu = tempresult Mod 10
        shang = tempresult \ 10
        tempresult = n1(1) * n2(1) * shang
        yushu = tempresult Mod 10
        shang = tempresult \ 10

        Print shang & yushu2 & yuahu1
        End Sub