用VBA或数学所有正整数排成一列

laoau138

用VBA或数学所有正整数排成一列

grf1973

2010中有167个12-----》2010+167=2177
2177中有181个12，比2010多了14个-----》2177+14=2191
2191中有182个12，比2177多了1个-----》2191+1=2192
所以结果是2192

代码验算

1. Sub tt()
   
2.     Dim arr(1 To 10000)
   
3.     For i = 1 To 10000
   
4.         If i Mod 12 > 0 Then
   
5.             n = n + 1
   
6.             arr(n) = i
   
7.         End If
   
8.     Next
   
9.     Debug.Print arr(2010)
   
10. End Sub
    

复制代码

香川群子

设该数=n，则需要扣除：
n/4 个能被4整除的数、n/6 个能被6整除的数、
还要补上 n/12个能被12整除的数(4和6的最小公倍数=12)
所以有： n-(n/4+n/6-n/12)=2010

解方程得：2/3*n=2010、n=3015

^_^

考虑到直接除算不是整除时会有误差，
所以要让n-1即 从 n=3014开始验证：

n=3014 时，扣除 3014/4=753 个、3014/6=502个、
补上3014/12=251，剩余个数=3014-753-502-251=2010个

而n=3015 时，扣除 3015/4=753 个、3015/6=502个、
补上3015/12=251，剩余个数=3014-753-502-251=2011个

所以，这第2010个整数是n=3014