两个数相乘

最新推荐文章于 2022-09-24 22:21:09 发布

lzybcd123

最新推荐文章于 2022-09-24 22:21:09 发布

阅读量372

点赞数 1

本文链接：https://blog.csdn.net/lzybcd123/article/details/51153529

版权

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, 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