多位数乘一位数

Private Sub Command1_Click()
   Cls
   Dim a() As Long, i As Long
   Dim b As String
   Dim c As Long
   Dim changdu As Long
   changdu = Len(Text1.Text)
   ReDim a(changdu)
   For i = 1 To changdu
   
      b = Mid(Me.Text1.Text, i, 1)
      a(i) = Int(Val(b))
   Next i
   b = Me.Text2.Text
   c = Int(Val(b))
   Dim rm As Byte
   Dim r() As Byte
   ReDim r(changdu)
   Dim d As Byte
   For i = changdu To 1 Step -1
       rm = a(i) * c + d
   
       r(i) = rm Mod 10
       d = rm \ 10
   
   Next i
   
   If d <> 0 Then
   Print d;
   End If
   For i = 1 To changdu
   Print r(i);
   Next i
  

End Sub