15 电气齐振昊 VB中三位数乘一位数

最新推荐文章于 2021-05-23 04:44:35 发布

QZH060001

最新推荐文章于 2021-05-23 04:44:35 发布

阅读量415

点赞数

本文链接：https://blog.csdn.net/QZH060001/article/details/51174139

版权

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