【正文】
vbCrLf Next iEnd SubPrivate Sub List(A() As Integer) Dim Idx As Integer, Tem As Integer, Ub As Integer Ub = UBound(A) Idx = 3 Do While Idx = Ub Tem = A(Idx 1) * A(Idx 2) If Tem 10 Then A(Idx) = Tem Else A(Idx) = Tem \ 10 Idx = Idx + 1 If Idx Ub Then