乘法

来源:互联网 发布:盐城大数据产业园招聘 编辑:程序博客网 时间:2024/03/29 15:37

(一)三位数与一位数

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, yushu3 As Integer
    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) = Int(Val(Mid(Me.Text1.Text, i, 1)))
    Next
    For i = LBound(n2) To UBound(n2)
        n2(i) = Int(Val(Mid(Me.Text2.Text, i, 1)))
    Next
   
    tempResult = n1(3) * n2(1)
    yushu1 = tempResult Mod 10
    shang = tempResult \ 10
   
    tempResult = n1(2) * n2(1) + shang
   
    yushu2 = tempResult Mod 10
    shang = tempResult \ 10
   
    tempResult = n1(1) * n2(1) + shang
    yushu3 = tempResult Mod 10
    shang = tempResult \ 10
   
   
    Print shang & yushu3 & yushu2 & yushu1
End Sub


0 0
原创粉丝点击