如图所示，用i=1000到9999的循环来找4位数，将i转成字符串放到a中，查找字符串a中字符串6的地址放到b中，因此只要有6，b就不是0，将c的值加一，因此最后c就是i中含有6的个数了。
望采纳。。。。
'最多可输入10位数
Private Sub Command1_Click()
Dim num As Long
num = Val(InputBox("请输入一个整数"))
Print "千位数=" & num \ 1000 Mod 10
Print "百位数=" & num \ 100 Mod 10
Print "十位数=" & num \ 10 Mod 10
Print "个位数=" & num Mod 10
End Sub
数据呢？这样是让人做不出的。。。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024