Private Sub combine(ByVal pos As Integer, ByVal h As Integer)
Dim num1 As Integer
If (pos = Me.r) Then
num1 = 0
Do While (num1 < Me.r)
Console.Write(Me.C(num1))
num1 += 1
Loop
Console.WriteLine("")
Else
num1 = h
Do While (num1 <= ((Me.n - Me.r) + pos))
If Not Convert.ToBoolean(Me.used(num1)) Then
Me.C(pos) = num1
Me.used(num1) += 1
Me.combine((pos + 1), (num1 + 1))
Me.used(num1) -= 1
End If
num1 += 1
Loop
End If
End Sub
dim a(n-1) as integer,b(n-1) as integer
dim i as integer,j as integer
dim sum as long
先用n个数字填充a,b
然后
for i=0 to n
sum=0
forj=i+1 to n
sum=sum + a(i)+b(j)
debug.print sum
next
next