VB的技术问题

来源：百度知道 编辑：UC知道 时间：2024/09/27 15:29:19
如何把一个序列的数,逐渐依次使用加法序列一个个的列举出来,并显示在窗体上!例如:1到5(1,2,3,4,5)中任意若干个数字相加等于7的所有组合.并打印在窗体上面.
a =1
b =2
c =3
d =4
e =5
把上面的数字找出所有等于7的组合，并打印在窗体上面！
用VB来实现，程序如何编写？

这是一个例子,看能不能帮我解决?

Private Const RESULT_NUM = 7
Private Sub Command1_Click()
Dim d(1 To 10) As Integer
Dim i As Integer
For i = 1 To 10
d(i) = i
Next i
Calc d, LBound(d), 0
End Sub
Private Sub Calc(ByRef Data() As Integer, ByVal Pos As Integer, ByVal Sum As Integer, Optional ByRef Str As String = "")
Dim i As Integer
For i = Pos To UBound(Data)
If Sum + Data(i) > RESULT_NUM Then Exit Sub
If Sum + Data(i) = RESULT_NUM Then
Print Mid(Str & "+" & Data(i), 2) & "=" & RESULT_NUM
Exit Sub
End If
If Sum + Data(i) < RESULT_NUM Then
Calc Data, i + 1, Sum + Data(i), Str & "+" & Data(i)
End If
Next i
End Sub

试试这段代码

你的若干是多少啊？
是2个的和，还是3个的和
如果你要2^67 从1~2^67中取10个数组成，恐怕你运行到死机也没结果
希望你的命题再详细点

dim p as integer,q as