作业帮1到100000有多少个自然数同时带123这三个数字?
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 01:23:05
1到100000有多少个自然数同时带123这三个数字?
1到100000有多少个自然数同时带123这三个数字?
1到100000有多少个自然数同时带123这三个数字?
6位数
123若在第123位
则后面3位有10³=1000个
123若不在第234位,即在234,345,456位
第一位是1,则另两个有10²=100个
其中123123是被重复算的
所以有1000+100×3-1=1299个
'在VB中运行如下代码
Sub qiuhe123()
Dim x As Long
Dim y As Long
Dim x1, x2, x3, x4 As String
y = 0
For x = 1 To 100000
x1 = Left(Right(CStr(x), 3), 3) '从右数第3位开始取出3位数并赋值给x1
x2 = ...
全部展开
'在VB中运行如下代码
Sub qiuhe123()
Dim x As Long
Dim y As Long
Dim x1, x2, x3, x4 As String
y = 0
For x = 1 To 100000
x1 = Left(Right(CStr(x), 3), 3) '从右数第3位开始取出3位数并赋值给x1
x2 = Left(Right(CStr(x), 4), 3) '从右数第4位开始取出3位数并赋值给x2
x3 = Left(Right(CStr(x), 5), 3) '从右数第5位开始取出3位数并赋值给x3
'从右数第6位即前3位是“100”，不可能等于123，所以不再从中取出数字
If x1 = "123" Or x2 = "123" Or x3 = "123" Then
'注：因为每次只从5位数中取出3位字符，所以x1、x2、x3不可能有2个或3个同时为“123”
y = y + 1
End If
Next
MsgBox "这组数字中含有“123”字符个数为：" & y
End Sub
'答：运算以上代码得出含有“123”的字符的个数为300
收起
813