多乘二 ？

Private Sub Command1_Click()

Dim c1 As Integer

Dim c2 As Integer

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, 1, 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) * c1 + d

r(i) = rm Mod 10

d = rm \ 10

Next i

b = Me.Text2.Text

b = Mid(b, 2, 1)

c2 = Int(Val(b))

d = 0

Dim rr() As Byte

ReDim rr(changdu)

For i = changdu To 1 Step -1

rm = a(i) * c2 + d

rr(i) = rm Mod 10

d2 = rm \ 10

Next i

If d2 <> 0 Then

   Print d2

End If

For i = 1 To changdu

    Print rr(i)

Next i

For i = changdu - 1 To 1 Step -1

    rm = r(i) + rr(i + 1) + d

    r(i) = rm Mod 10

    d = rm \ 10

Next i

rm = rr(1) + d1 + d

d1 = rm Mod 10

d = rm \ 10

d = d2 + d

Print

Print d & d1

For i = 1 To changdu

Print r(i)

Next i

d1 = rr(1) + d

End Sub