数乘

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, 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
    If d <> 0 Then
        Print d;
    End If
    For i = 1 To L
        Print r(i);
    Next i
End Sub