1--35之间任意选5个数字 要求所选的5个数字的和为一个70 把所有可能的都列出来 谢谢了

1--35之间任意选5个数字 要求所选的5个数字的和为一个70 把所有可能的都列出来 谢谢了 用VB 完成 谢谢大家了

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer = 1
Dim d As Integer = 1
Dim f As Integer = 1
Dim total As Integer = 0
Dim n As Integer = 0

For a = 1 To 35
For b = a To 35
For c = b To 35
For d = c To 35
For f = d To 35
If a + b + c + d + f = 70 Then
total = 70
ListBox1.Items.Add(a & "+" & b & "+" & c & "+" & d & "+" & f & "=" & total)
Console.WriteLine("{0} + {1} + {2} + {3} + {4}= {5}", a, b, c, d, e, total)
n = n + 1
End If
Next

Next

Next

Next

Next
End Sub
End Class

VB不会 给你个思路吧

70/5=14

所以肯定有比14大 和 14小的

所以前三个数 做个三重循环再1-14里取

后两个数 就在15-25 中选

也做个一次循环 用剩余值的差来做判断条件就可以了

procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e: Integer; n: Integer; begin // Memo1.Clear; n:= 0; for a:= 1 to 35 do for b:= 1 to 35 do for c:= 1 to 35 do for d:= 1 to 35 do for e:= 1 to 35 do begin if a + b + c + d + e = 70 then begin inc(n); end; // Memo1.Lines.Add(IntToStr(a) + ',' + // IntToStr(b) + ',' + IntToStr(c) + ','+ IntToStr(d) + ','+ // IntToStr(e)); end; ShowMessage(IntToStr(n)); end; 我用的是Delphi，共有632621种组合满足条件。其实很简单，就是多个循环。

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

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