15电气 李少振 三位数乘一位数程序

Option Base 1
Private Sub Command1_Click()
 
    Me.Font.Size = 70
    Dim n1() As Byte, n1Len As Long        ‘ 定义n1为字节型变量，长度为四个字节
    Dim n2() As Byte, n2Len As Long      
    Dim yushu1 As Byte, yushu2 As Byte, yushu3 As Integer     ‘ yushu3 为整型
    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)          ’  取i 范围从n1上限到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