7.2016.物电学院 电气工程及其自动化 辛雅松 15050341033

YI~n*1

Private Sub Command1_Click()

    Cls
    Dim a() As Byte
    Dim r() As Byte
    Dim b As String
    Dim c As Byte
    Dim i As Long
    Dim L As Long
    L = Len(Me.Text1.Text)
    ReDim a(L)
    For i = 1 To L
        b = Mid(Me.Text1.Text, i, 1)
        a(i) = Int(Val(b))
    Next i
    c = Int(Val(Me.Text2.Text))
    Dim d As Byte
    Dim t As Byte
    ReDim r(L)
    For i = L To 1 Step -1
        t = a(i) * c + d
        r(i) = t Mod 10
        d = t \ 10
    Next i
    Open "D:\multiplication.txt" For Output As #1
    If d <> 0 Then
        Print #1, d;
    End If
    For i = 1 To L
        Print #1, r(i);
    Next i
    Close #1

End Sub

ER~n*2

Private Sub Command1_Click()
    Cls
    Dim a() As Byte
    Dim b As String
    Dim c1 As Byte, c2 As Byte
    Dim i As Long
    Dim L As Long
    L = Len(Me.Text1.Text)
    ReDim a(L)
    For i = 1 To L
        b = Mid(Me.Text1.Text, i, 1)
        a(i) = Int(Val(b))
    Next i
    
    b = Mid(Me.Text2.Text, 2, 1)
    c1 = Int(Val(b))
    Dim d1 As Byte
    Dim r() As Byte
    ReDim r(L)
    Dim t As Byte
    For i = L To 1 Step -1
        t = a(i) * c1 + d1
        r(i) = t Mod 10
        d1 = t \ 10
    Next i
    
    b = Mid(Me.Text2.Text, 1, 1)
    c2 = Int(Val(b))
    Dim d2 As Byte
    Dim rr() As Byte
    ReDim rr(L)
    For i = L To 1 Step -1
        t = a(i) * c2 + d2
        rr(i) = t Mod 10
        d2 = t \ 10
    Next i
    
    Dim d As Byte
    For i = L - 1 To 1 Step -1
        t = rr(i + 1) + r(i) + d
        r(i) = t Mod 10
        d = t \ 10
    Next i
    
    t = rr(1) + d1 + d
    d1 = t Mod 10
    d = t \ 10
    d = d2 + d
    
    Print d & d1
    For i = 1 To L
        Print r(i);
    Next i
End Sub

SAN~n*3

Private Sub Command1_Click()
    Cls
    Dim a() As Byte
    Dim b As String
    Dim c1 As Byte, c2 As Byte, c3 As Byte
    Dim i As Long
    Dim L As Long
    L = Len(Me.Text1.Text)
    ReDim a(L)
    For i = 1 To L
        b = Mid(Me.Text1.Text, i, 1)
        a(i) = Int(Val(b))
    Next i
    
    b = Mid(Me.Text2.Text, 3, 1)
    c1 = Int(Val(b))
    Dim d1 As Byte
    Dim r() As Byte
    ReDim r(L)
    Dim t As Byte
    For i = L To 1 Step -1
        t = a(i) * c1 + d1
        r(i) = t Mod 10
        d1 = t \ 10
    Next i
    
    b = Mid(Me.Text2.Text, 2, 1)
    c2 = Int(Val(b))
    Dim d2 As Byte
    Dim r2() As Byte
    ReDim r2(L)
    For i = L To 1 Step -1
        t = a(i) * c2 + d2
        r2(i) = t Mod 10
        d2 = t \ 10
    Next i
    
    b = Mid(Me.Text2.Text, 1, 1)
    c3 = Int(Val(b))
    Dim d3 As Byte
    Dim r3() As Byte
    ReDim r3(L)
    For i = L To 1 Step -1
        t = a(i) * c3 + d3
        r3(i) = t Mod 10
        d3 = t \ 10
    Next i
    
    Dim d As Byte
    For i = L - 1 To 1 Step -1
        t = r2(i + 1) + r(i) + d
        r(i) = t Mod 10
        d = t \ 10
    Next i
    
    t = r2(1) + d1 + d
    d1 = t Mod 10
    d = t \ 10
    d = d2 + d
    
    Dim dd As Byte
    For i = L - 2 To 1 Step -1
        t = r3(i + 2) + r(i) + dd
        r(i) = t Mod 10
        dd = t \ 10
    Next i
    
    t = r3(2) + d1 + dd
    d1 = t Mod 10
    dd = t \ 10
    t = r3(1) + d + dd
    d2 = t Mod 10
    dd = t \ 10
    d = d3 + dd
    
    Print d & d2 & d1
    For i = 1 To L
        Print r(i);
    Next i
End Sub