在数字1~1000中有多少个带1的数字

在数字1~1000中有多少个带1的数字

你一个一个的数看看

0在末尾的：10的倍数、100的倍数和1000的倍数，而只要含0即可，所以只算10的倍数：10的倍数有1000÷10=100个； 0在中间的：只有3位数中有这样的数。 其中百位上是1的有101到109，共9个（100已经算过，不能重复计算）； 同样百位上是2到9的也各有9个； 那么0在中间的数有9×9=81个； 所以含0的数共有100+81=181个。 含有多少个0，也从末尾和中间两个方面计算： 末尾有1个0的：10的倍数有100个，计100个0； 末尾有2个0的：100的倍数有10个，但0的个数在10的倍数中已计算过1次，所以不能重复计算，计10个； 末尾有3个0的：只有1000，但前面已经将个位、十位上的0计算过了，只能计1个0； 中间有0的：与上面的计算方法相同，有81个0； 所以共有100+10+1+81=192个0.

从1到100共20个.从101到199共99个,201到291共19个,301~391,401~491,501~591,601~691,701~791,801~891也都是19个,901~1000是20个,所以20+99+19+19+19+19+19+19+19+20=272.因此在数字1~1000中有272个带1 的数字. 可是在华东师范大学出版社出版的<<从课本到奥数>>2年级第2 学期B版第39页有一题给出的答案是301个，我不知道还有29个从哪里来的，谁能告诉我吗？

一位数：1； 两位数：10，11，12，13，14，15，16，17，18，19，21，31，41，51，61，71，81，91共18个 三位数：100到199共100个；201；210，211，212，213，214，215，216，217，218，219三位数系列里从210开始10个一组共80个；221，321，421，521，621，721，821，921三位数系列里从221开始共8个；231，241，251，261，271，281，291这类的三位数里面有56个； 四位数：1000共1个。 总共263个

个1&quot, j), n As Integer, 1) = &quot.Text & vbCrLf & i Exit For End If Next j For k = 1 To Len(CStr(i)) If Right(Left(CStr(i); '在Textbox中显示所有带1的数，一行一个 End Sub Private Sub Form_Load() Me;共有&quot.Top = 600 Text1.Left = 0 Text1.Height = 3015 Text1; & s1 & "&quot, k).Width = 3135 End Sub ' Text1'显示结果 '1~1000共有272个带1的数 ', j As Integer, s1 As Integer, s2 As Integer.Top = 3720 Command1.Left = 960 Text1.Text = &quot, k As Integer s1 = 0 s2 = 0 n = 1000 For i = 1 To n For j = 1 To Len(CStr(i)) If Right(Left(CStr(i).Height = 4785 Me;个带1的数" Print "1~" & n & &quot.Width = 3255 Command1.Caption = "开始计算" Command1;1" Then s1 = s1 + 1 Text1.Text = Text1, 1) = "1" Then s2 = s2 + 1 End If Next k Next i Print "1~" & n & "共有" & s2 & "老觉得程序不太对，终于改对了…… Private Sub Command1_Click() Dim i As Integer