传说中的乘法

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