VB 使用循环语句描述“求1-500的自然数中不含4的自然数有多少个?

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/10/05 10:57:32

VB 使用循环语句描述“求1-500的自然数中不含4的自然数有多少个?
最好再说明一下在VB中怎么判断一个自然数是否含有“4”.要用循环语句来解决.顺便问一下是否可以用Like运算符进行匹配来解决?

Sub 按钮1_Click()
    Dim i As Integer, n As Integer
    For i = 1 To 500
        If CStr(i) Like "*4*" Then n = n + 1
    Next i


    MsgBox "1~500范围内共有 " + n + " 个不含 4 的自然数"
End Sub
再问：如果不用Like运算符，用数学公式可以解吗？
再答：好像不记得用什么数学公式能求一个数里面包含某数字，like是最简单的方法了
我题目没有看清楚呢，你要的是不含 4 的数个数，而我求的是包含 4 的数的个数，应该是 500-n 个，不好意思啊
再问：嗯，我调试了一下，这样就可以了，谢谢你了！
Dim i As Integer, n As Integer
For i = 1 To 500
If CStr(i) Like "*4*" Then n = n + 1
End If

Next i
Print 500-n
End Sub

VB 使用循环语句描述“求1-500的自然数中不含4的自然数有多少个? VB 从1到500所有自然数中不含数字4的自然数共有多少个求VB的循环语句用java while或do-while循环做从1到500所有自然数中不含数字4的自然数共有多少个?计算并输出结果. 利用PHP使用for循环语句,求1000内能被3和7整除的自然数,并输出结果; C# 从1到500所有自然数中不含数字4的自然数共有多少个? 在1-500的所有自然数中,不含有数字6的自然数有多少个? 从1到500的所有自然数中,不含有数字4的自然数有多少个?（）巧算题:从1到500的所有自然数中,不含有数字4的自然数有多少个? 从1到500的所有自然数中,不含有数字4的自然数有多少个?（页码问题） VB程序中关于循环语句：“FOR”的使用求1-2004这2004个自然数的数字之和为;含数字3的自然数有多少个