求VB编一个计数器输入初号和尾号，遇4不计数。求初号到尾号之间的个数？

显示全部楼层 · 2010-12-15 20:34:39

给一个初始数字和末尾数字比如：000001和100000
从1到10万之间有多少个不含4的数字。
我要求的是一个通用的，不是定死了是某个值。他尾数有可能会是5位的，也有可能是10位的。

千问 · 2010-12-15 20:34:39

VERSION 5.00Begin VB.Form Form1
Caption
= "计数器—爱彬世界 181779869" ClientHeight
= 3270 ClientLeft
= 60 ClientTop
= 450 ClientWidth
= 4575 LinkTopic
= "Form1" ScaleHeight
= 3270 ScaleWidth
= 4575 StartUpPosition = 3'窗口缺省 Begin VB.T

千问 · 2010-12-15 20:34:39

仅仅代码：Private Sub Command1_Click()
If Len(Text1.Text) = 0 Or Len(Text2.Text) = 0 Then
MsgBox "请输入完整的信息"
Exit Sub
End If
'计算部分
Dim lCount As L

千问 · 2010-12-15 20:34:39

Dim startNum As Single '初始数Dim endNum As Single '末尾数Dim Count As Single '计数器startNum = 1endNum = 10000Count = 0For i = startNum To endNum
If InStr(1, Str(i), "4")

千问 · 2010-12-15 20:34:39

没明白你的意思，请再详述一下要求我好作答