用vb 编程...(简单的很,可是我不会)

dim i as long,p as long
for p=101 to val(text1.text)
if p mod 10=9 and _
p mod 9=8 and _
p mod 8=7 and _
p mod 7=6 and _
p mod 6=5 and _
p mod 5=4 and _
p mod 4=3 and _
p mod 3=2 and _
p mod 2=1 then
i=i+1
end if
next
print i

谁说是QB？说QB也对，因为VB代码与QB本来就是有相当的相通之处。

用VB：你新建一个EXE文档，在设计界面上放一个文本框控件（用来输入你想要的那个最大的数），再放置一个命令按钮，在按钮的单击事件中加入上边代码。运行后，在文本框中输入15000（假如），按下按钮，在窗体上就会显示出在100-15000间共有多少合你要求的数字了。

你的结束值到底是多少?

我的简单方法:

第一个数是2519.以后循环 加上2520.就得到范围内所有的数了.

代码不写了.

Private Sub Command1_Click()
Dim i%, j%
j=1000
For i = 100 To j
If i Mod 10 = 9 And i Mod 9 = 8 And i Mod 8 = 7 Then
Print i
End If
Next i
End Sub

以上是源代码
其中j可以随便取，你可以任意改

上面的,你用的是QB