Question

vb编程:求含有数字6的四位数的个数

vb编程:求含有数字6的四位数的个数

Answer 1

如图所示，用i=1000到9999的循环来找4位数，将i转成字符串放到a中，查找字符串a中字符串6的地址放到b中，因此只要有6，b就不是0，将c的值加一，因此最后c就是i中含有6的个数了。

望采纳。。。。

Answer 2

'最多可输入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

Answer 3

数据呢？这样是让人做不出的。。。