最佳答案
Sub uu5出现次数() Dim i&, j&, St$ j = 0: For i = 1 To 655 St = Format(i, "0") j = j + Len(St) - Len(Replace(St, "5", "")) Next iEnd Sub让代码数了下,232次。
Sub uu5出现次数() Dim i&, j&, St$ j = 0: For i = 1 To 655 St = Format(i, "0") j = j + Len(St) - Len(Replace(St, "5", "")) Next iEnd Sub让代码数了下,232次。