传说中的乘法

Private Sub Command1_Click()
    Dim c1 As Byte
    Dim c2 As Byte
    Dim a() As Byte
    Dim b As String
    Dim changdu As Long, i As Long
    changdu = Len(Text1.Txet)
    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)
        b = Mid(b, 1, 1)
        c1 = Int(Val(b))
        Dim rm As Byte
        Dim R() As Byte
        ReDim R(changdu)
        Dim d As Byte
    Next i
        Print d & r1 & r2 & r3
        If d <> 0 Then
            Print d;
        End If
       
   
   
   
End Sub