两位数乘以一位数

2Me.Font.Size = 70

Dim n1() As Byte, n1Len As Long

Dim n2() As Byte, n2Len As Long

Dim yushu1 As Byte, 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)

yushu1 = tempResult Mod 10

shang = tempResult \ 10

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

yushu2 = tempResult Mod 10

shang = tempResult \ 10

Print shang & yushu2 & yushu1