Count the number of 3 number appers between 0-3333

[SaranKumarV]

Hi,

Could some one please tell me how to count occurence of 3digit between 3 and 3333.
I tried with the following code I am getting the numbers which contain 3 in the number but problem comes when there is number like (3000) which prints 4 times since length of the number (3000) is 4.

Code:

For i=3 to 3333
temp=i
While temp>0
  d=instr(temp,3)
  If (d <> 0) Then
     c = c+1
     print(i)
  End If
temp = temp/10
temp = Fix(temp)
Wend
Next
Print(c)

[rdemers25]

Why wouldn't you try this? If the answer is 1336, then this works.

Code:

for i = 1 to 3333
    for j = 1 to len(Cstr(i))
        if Asc(Mid(CStr(i),j,1)) = 51 Then
        iCnt = iCnt+1
        End If
    Next
Next