两位数乘一位数

Option Base 1

Private Sub Command1_Click()

Me.Font.Size = 30

Dim n1() As Byte, n1len As Long

Dim n2() As Byte, n2len As Long

Dim yushu1 As Byte

Dim yushu2 As Byte

Dim shang As Byte

Dim tempResult As Byte

n1len = Len(Me.Text1.Text)

n2len = Len(Me.Text2.Text)

ReDim n1(n1len)

ReDim n2(n2len)

For i = LBound(n1) To UBound(n1)

     n1(i) = Mid(Me.Text1.Text, i, 1)

Next

For i = LBound(n2) To UBound(n2)

     n2(i) = Mid(Me.Text2.Text, i, 1)

Next

tempResult = n1(2) * n2(1) + shang

yushu1 = tempResult Mod 10

shang = tempResult \ 10

tempResult = n1(1) * n2(1) + shang

yushu2 = tempResult Mod 10

shang = tempResult \ 10

Print shang & yushu2 & yushu1

End Sub