作业

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

    If d <> 0 Then

        Print d;

        End If

        For i = 1 To L

        Print r(i);

        Next i

      

End Sub