关于“1至1000中包含多少个1”的疑惑

那时雨

这里我进行了4种尝试将结果输出在表格中：将 r 设置为：长整型&、整型%、字符串(Cstr转置)和最终使用 VBA.Len()。最后发现VBA.Len()能获得正确的结果(直接用Len()不能，前面要加父对象VBA)。国外网友也有过同样的疑问及回答详见：https://stackoverflow.com/questions/29755772/why-do-len-and-vba-len-return-different-results

咔咔乱坠

1-1000包含301个1
参与一下，函数
=SUM(N(ISNUMBER(FIND(1,MID(ROW(1:1000),{1,2,3,4},1)))))

时间的音符

可以把这题做个拓展 求 1-987654321中 有包含个1.

大灰狼1976

1. Sub test()
   
2. Dim n#, nMax$, l&, i&, x&, xNum&, Cnt&, nTotal&
   
3. nMax = 987654321: xNum = 1
   
4. l = Len(nMax)
   
5. For i = 1 To l - 1
   
6.   x = Mid(nMax, l - i + 1, 1)
   
7.   If l > i Then Cnt = Left(nMax, l - i) Else Cnt = 0
   
8.   If x >= xNum Then Cnt = Cnt + 1
   
9.   Cnt = Cnt * 10 ^ (i - 1)
   
10.   nTotal = nTotal + Cnt
    
11. Next i
    
12. x = Left(nMax, 1)
    
13. If x > xNum Then nTotal = nTotal + 10 ^ (i - 1) Else If x = xNum Then nTotal = nTotal + Mid(nMax, 2) + 1
    
14. MsgBox nTotal
    
15. End Sub

复制代码