两个数相乘

来源：互联网发布：开淘宝店铺需要什么编辑：程序博客网时间：2024/04/29 07:49

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

0 0