vb 15 1 2 3 4 5

来源：百度知道 编辑：UC知道 时间：2024/06/17 23:16:31
如何让VB显示相邻的几个数字得出15的全部组合？
如：
15＝1+2+3+4+5
15＝4+5+6

Private Sub Form_Click()
N = 15 '可以为任意数
For i = 1 To N
j = i
Do While Sum < N
Sum = Sum + j
If Sum = N Then
Print i & "～" & j & "的和为" & N
Exit Do
End If
j = j + 1
Loop
Sum = 0
Next
End Sub

很明显，找个算法的问题！
从1开始循环到4就行了！（当然我是判断过了，4，5，6之和已经是15了，如果再望上，5打头的任何连续数字之和都不会等于15了，如果是别的不好判断，可以把循环增大到15也没关系，只是多计算了一部分而已！）
然后从1开始统计，连续加后面的数字，如果小于15则继续，如果等于或者超过15则停止，等于的时候正好输出！
接着从2开始统计，等于15则输出，小于则继续加后面的值，大于则停止就行了。
直到所有循环完成，也就统计完了啊！