三位数乘一位数

Option Base 1

Private Sub Command1_Click()

Me.Font.Size = 70

Dim n1() As Byte, n1Len As Long

Dim n2() As Byte, n2Len As Long

Dim yushu1 As Byte, yushu2 As Byte, yushu3 As Integer

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) = Int(Val(Mid(Me.Text1.Text, i, 1)))

Next

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

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

Next

tempResult = n1(3) * n2(1)

yushu1 = tempResult Mod 10

shang = tempResult \ 10

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

yushu2 = tempResult Mod 10

shang = tempResult \ 10

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

yushu3 = tempResult Mod 10

shang = tempResult \ 10

Print shang & yushu3 & yushu2 & yushu1

End Sub

.