多位数 X 一位数

Private Sub Form_Load()
    Me.Font.Size = 40
End Sub

Private Sub 乘法_Click()

    Dim c As Byte
    Dim a() As Byte
    Dim b As String
    
    Dim changdu As Long, i 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)
     
    
     
     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