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

发布网友 发布时间：2022-05-06 08:04

我来回答

共5个回答

热心网友 时间：2022-06-29 02:27

从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个从哪里来的，谁能告诉我吗？

热心网友 时间：2022-06-29 02:27

'老觉得程序不太对，终于改对了……

Private Sub Command1_Click()
Dim i As Integer, j As Integer, s1 As Integer, s2 As Integer, n As Integer, 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), j), 1) = "1" Then
s1 = s1 + 1
Text1.Text = Text1.Text & vbCrLf & i
Exit For
End If
Next j

For k = 1 To Len(CStr(i))
If Right(Left(CStr(i), k), 1) = "1" Then
s2 = s2 + 1
End If
Next k
Next i
Print "1~" & n & "共有" & s1 & "个带1的数"
Print "1~" & n & "共有" & s2 & "个1"
'在Textbox中显示所有带1的数，一行一个
End Sub

Private Sub Form_Load()
Me.Height = 4785
Me.Width = 3255
Command1.Caption = "开始计算"
Command1.Top = 3720
Command1.Left = 960
Text1.Text = ""
Text1.Top = 600
Text1.Left = 0
Text1.Height = 3015
Text1.Width = 3135
End Sub

'显示结果
'1~1000共有272个带1的数
'1~1000共有301个1

热心网友 时间：2022-06-29 02:28

301个 ，昨晚少算了101中的个位1.sorry

热心网友 时间：2022-06-29 02:28

一位数：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个

热心网友 时间：2022-06-29 02:29

你一个一个的数看看