用VB来剔除一些数字

是要建立一个这样的模型.
一个000-999的数字(正整数)
我希望设置几个条件:
1,能够剔出XXX3个数位上的和小于或者大于某个数的条件.(例如所有组合出来的XXX,其3个数字相加之和小于5,比如111)
2,能够剔出在XXX某一个或者2个位置上设置的数字的所有组合(例如所有XX3所产生出的组合数字,例如003)
希望答题者能把程序的源代码给我写出来.
因为本人在这方面都忘光了,所以来求助,呵呵.
估计这里用到循环(就是产生000-999),还有条件什么的.
最后就是希望这个程序,能把剔出完之后所有剩下组合的数字列出来.
不知道我说清楚了没有,呵呵.谢谢大家了.
从000-999,有1000个数字.也就是说有1000种数字组合.
我的目的就是希望设置一些条件来,剔除一些不需要的组合.
看到了kkHAIKE的回答非常感谢,因为本人对变成已经几乎忘记了,所以您能给写成能在VB里运行的程序啊,我直接复制到里间就可以用了.谢谢啊~~~
还有,在开始运行时,能够给出提示,比如"您希望组合之和小于?"之类的提示,万分感激.我学VB时,还是初中呢,不过那个就可以实现这些功能了.谢谢
其实这是我为了分析彩票用的,如果大家感兴趣,我们可以交流,哈哈.还有,这个语句是不是在微软出的Microsoft Visual Basic® .NET(Visual Basic )就可以运行了吧?
感谢cqwangding的回答,不过好像里面有些东西还需要自己调试,不是我懒,只不过我不太会,呵呵.最好能给的傻瓜一点.感谢!

把以下代码存为Form1.frm即可，不需要再调试了

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3045
ClientLeft = 60
ClientTop = 450
ClientWidth = 4275
LinkTopic = "Form1"
ScaleHeight = 3045
ScaleWidth = 4275
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text2
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 375
Left = 2880
TabIndex = 3
Text = "0"
Top = 2280
Width = 855