N为正整数，写程序，要求算出从1到N，一共有多少个“1”出现

<SCRIPT LANGUAGE="vbScript">
<!--
function test(n)
x=""
re=0

for i=1 to n
x=x&cstr(i)
if i mod 100=0 then
re=re+len(x)-len(replace(x,"1",""))
x=""
end if
next
re=re+len(x)-len(replace(x,"1",""))
test=re
end function
document.write(test(120))

//-->
</SCRIPT>

vb6写的
Private Function F(n As Long) As Long
Dim i As Long
Dim m As Long
F = 0
For i = 1 To n
For m = 1 To Len(i)
If Mid(i, m, 1) = 1 Then F = F + 1
Next m
Next i
End Function

<SCRIPT LANGUAGE="vbScript">
<!--
function test(n)
x=""
re=0

for i=1 to n
x=x&cstr(i)
if i mod 100=0 then
re=re+len(x)-len(replace(x,"1",""))
x=""
end if
next
re=re+