vb18

Private Sub Command1_Click()

Cls

Me.Font.Size = 50

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