乘法：n对2

打开软件选择一个command和两个text，之后再command下进行一系列的编译

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.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
b = Mid(b, 2, 1)
c1 = Int(Val(b))
Dim rm As Byte
Dim r() As Byte
ReDim r(changdu)
Dim d1 As Byte
Dim d2 As Byte

For i = changdu To 1 Step -1
    rm = a(i) * c1 + d1
    r(i) = rm Mod 10
    d1 = rm \ 10
Next i

If d1 <> 0 Then
    Print d1
End If
For i = 1 To changdu
    Print r(i)
Next i
Print

b = Me.Text2.Text
b = Mid(b, 1, 1)
c2 = Int(Val(b))
d2 = 0

Dim rr() As Byte
ReDim rr(changdu)


For i = changdu To 1 Step -1
    rm = a(i) * c2 + d2
    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
Print

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 d1
   
If d <> 0 Then
    Print d;
End If

For i = 1 To changdu
    Print r(i)
Next i

End Sub

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