第一行第三列为0!/(-1)!,因为-1的阶乘无意义,所以没有计算。Sub test()Dim i&i = 1Cells(1, 1) = 1Cells(1, 2) = WorksheetFunction.Fact(1)Do
i = i + 1
Cells(i, 1) = i
Cells(i, 2) = WorksheetFunction.Fact(i)
Cells(i, 3) = WorksheetFunction.Fact(i) / WorksheetFunction.Fact(i - 1)Loop Until Cells(i, 2) > 1E+20End Sub... |