类似排列组合的软件问题

类似排列组合的软件问题

Option Explicit
Dim result As Double
Private Sub Command1_Click()
List1.Clear
Dim arrayA() As String
Dim arrayB() As Integer
Dim Alength As Integer
Dim strInput As String
Dim x As Integer
result = CDbl(Text2.Text)
strInput = Text1.Text
arrayA = Split(strInput, ",")
Alength = UBound(arrayA) + 1
For x = 1 To Alength
ReDim arrayB(x - 1) As Integer
combine arrayA, Alength, x, arrayB, x
Next
End Sub
Private Sub combine(ByRef a() As String, ByVal n As Integer, ByVal m As Integer, ByRef b() As Integer, ByVal Length As Integer)
Dim i As Integer
Dim j As Integer
Dim strTemp As String
Dim sum As Double
For i = n To m Step -1
b(m - 1) = i - 1
If m > 1 Then
combine a, i - 1, m - 1, b, Length
Else
sum = 0
strTemp = ""
For j = Length - 1 To 0 Step -1
strTemp = strTemp & a(b(j)) & "+"
sum = sum + CDbl(a(b(j)))
Next
If sum = result Then
strTemp = Mid(strTemp, 1, Len(strTemp) - 1) & "=" & sum
List1.AddItem strTemp
End If
End If
Next
End Sub

fdg

某几个？是哪几个？几个是确定的数字比如：2,3,4。。还是不确定。。
如果全部是某几个的话。。那就随机1个数A, 用来取数组中的某几个数的个数。再随机取A个数。。表示数组的下标（注意大小不要越界）。。然后求和。
感觉好多某。。追问不确定追答那就如我所说的。。取随机数A决定求和参数的数量。。再在数组大小范N围内取A个随机数作为数组下标。。然后再累加追问挺简单的一个问题，现在解决起来却是这么复杂追答那是因为你“某”的范围太大了。。数组大小不确定。。参加累加的元素数量不确定。。元素位置不确定。。VB我又不会。。所以只能言尽于此，爱莫能助了追问其他编程软件能生成exe也行 我就会使用 呵呵 编程就会一点 现在公司两个软件工程师都帮我做这个呢 挺辛苦的追答感觉挺简单的啊。。无非就是取随机数。。不难。。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息