给已经编号的100个人重新编号

来源：百度知道 编辑：UC知道 时间：2024/05/12 06:27:09
给已经编号的100个人（1到100）中有“4”的淘汰掉，重新编号，问最后一个人编号是多少？（10分钟内答出编程语句，给1000分）
要编程语句,好高兴这么多人回答，请看清问题，奖分给答案最好的一个人,不想回答可以进来！补充一点：只淘汰一次，把所有十位和全位含有“4”的淘汰掉，…烟花飘飘… 过滤一次就够了,最后一个的编号是81

Private Sub Form_Click()
Cls
s = 100
For j = 1 To 14
Print "第" & j & "次被过滤掉的数字为："
m = 0
For i = 1 To s
If Right(i, 1) = 4 Or Left(i, 1) = 4 Then
Print i & ",";
m = m + 1
End If
Next
s = s - m
If s <= 0 Then Exit For
Print
Print "第" & j & "次过滤的最后一项是 " & s
Next
End Sub

经过调试，运行后输出如下：
第1次被过滤掉的数字为：
4,14,24,34,40,41,42,43,44,45,46,47,48,49,54,64,74,84,94,
第1次过滤的最后一项是 81
第2次被过滤掉的数字为：
4,14,24,34,40,41,42,43,44,45,46,47,48,49,54,64,74,
第2次过滤的最后一项是 64
第3次被过滤掉的数字为：
4,14,24,34,40,41,42,43,44,45,46,47,48,49,54,64,
第3次过滤的最后一项是 48
第4次被过滤掉的数字为：
4,14,24,34,40,41,42,43,44,45,46,47,48,
第4次过滤的最后一项是 35
第5次被过滤掉的数字为：
4,14,24,34,
第5次过滤的最后一项是 31
第6次被过滤掉的数字为：
4,14,24,
第6次过滤的最后一项是 28
第7次被过滤掉的数字为：
4,14,24,
第7次过滤的最后一项是 25
第8次被过滤掉的数字为：