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
Dim yushu2 As Byte
Dim yushu2 As Byte
Dim shang As Byte
Dim i As Long
Dim tempresult As Byte
n1Len = Int(Val(Len(Me.Text1.Text)))
n2Len = Int(Val(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&; yushu2
Me.Font.Size = 70
Dim n1() As Byte, n1Len As Long
Dim n2() As Byte, n2Len As Long
Dim yushu1 As Byte
Dim yushu2 As Byte
Dim yushu2 As Byte
Dim shang As Byte
Dim i As Long
Dim tempresult As Byte
n1Len = Int(Val(Len(Me.Text1.Text)))
n2Len = Int(Val(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&; yushu2