Question

用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的回答,不过好像里面有些东西还需要自己调试,不是我懒,只不过我不太会,呵呵.最好能给的傻瓜一点.感谢!

Answer 1

给你个提示,其实很简单
一个数组放数的a(1 to 999)as integer,j as integer
j=1
然后一个for循环 for i=0 to 999 do
begin
第一个数字可以用 a=i div 100
第二个数字可以用b=(i-a*100) div 10
第三个数字可以用 c=i-a*100-b*10

两个相反条件 if a+b+c > 5 & c <> 3 then
begin
放到数组里 a(j)=i
j=j+1
end
大概就这样了,呵呵
--------------------------
给你个代码如下:
新建一个工程,在对话框上按照你的意愿画上一个按钮command1,一个文本框text1,双击command1
粘贴这段代码,我完全是在这里打的,我没有编译器,但我尽力了
---------------------
Private Sub Command1_Click()
dim i as integer
dim a as integer
dim b as integer
dim c as integer
dim x as string
dim y as string
dim m as string
dim n as string
TextText = ""
x=InputBox("您希望组合之和小于?","条件一")
y=InputBox("您希望第一位为?(不确定留空)","条件二")
m=InputBox("您希望第二位为?(不确定留空)","条件三")
n=InputBox("您希望第三位为?(不确定留空)","条件四")
For i = 0 To 999 do
a=i div 100
b=(i-a*100) div 10
c=i-a*100-b*10
if y="" then y=format(a)
if m="" then m=format(b)
if n="" then n=format(c)
if a+b+c < x & a=cint(y) & b=cint(m) & c=cint(n) then Text1.Text =Text1.Text + chr(13)+chr(10)+format(i)
next i
End Sub

Answer 2

把以下代码存为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
End
Begin VB.CommandButton Command2
Caption = "小于"
Height = 375
Left = 1560
TabIndex = 2
Top = 2280
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "大于"
Height = 375
Left = 480
TabIndex = 1
Top = 2280
Width = 975
End
Begin VB.TextBox Text1
Height = 1575
Left = 480
MultiLine = -1 'True
TabIndex = 0
Top = 360
Width = 3255
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i, j, k
Dim num As Integer

Private Sub Command1_Click()
Text1.Text = ""
For i = 0 To 9
For j = i + 1 To 9
For k = j + 1 To 9
num = i + j + k
If num > Text2.Text Then '判断条件
Text1.Text = Text1.Text + CStr(i) + CStr(j) + CStr(k) + " "
End If
Next k
Next j
Next i
End Sub

Private Sub Command2_Click()
Text1.Text = ""
For i = 0 To 9
For j = i + 1 To 9
For k = j + 1 To 9
num = i + j + k
If num < Text2.Text Then '判断条件
Text1.Text = Text1.Text + CStr(i) + CStr(j) + CStr(k) + " "
End If
Next k
Next j
Next i
End Sub

Answer 3

说的实在太不详细了