两个数相乘

1、一个数与一个数

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 yushu 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(1) * n2(1) + shang
    
    
     yushu = tempresult Mod 10
     shang = tempresult \ 10
    
     Print shang & yushu
    
    
    
End Sub

 

2.二乘一

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
     Dim 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) + 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