请教一个算法问题 希望大家能点化一下算法的思路 有一组数如: 1,2,3,4,7 现在求这组数内相加等于11的组合 并一组一组地在屏幕上显示 如7和4相加是11 1和3和7相加是11等如果扩展的话,一组数是不固定的,相加等于的数值也是任意给定的 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 没有验证..不知道对不对.For i = 1 To n If flag = True Then num_tmp = Num(i) Else j = j + 1 End If For j = i + 1 To n If num_tmp + Num(j) = 11 Then '.... flag = True Exit For End If num_tmp = num_tmp + Num(j) flag = False Next Next 有太明眼的错误了..稍改一下,还是没有验证For i = 1 To n If flag = True Then num_tmp = Num(i) k = i + 1 Else k = j + 1 End If For j = k To n If num_tmp + Num(j) = 11 Then '.... flag = True Exit For End If num_tmp = num_tmp + Num(j) flag = False Next Next vb6 如何修改自定义控件的图标? [请教]请问一下Do While Not adoRst.Eof该放到哪里呢? vb 怎么获取7Z压缩文件的文件总数 如何调用事件,改变下拉菜单选项的文字和符号? Access做Update查询的问题 请问如何在窗体上创建一个超级连接? 需要在程序中打开pdf格式的文件,请问有什么控件可以解决么?! 在vb中,如何实现控件随窗体的大小而自动变化。 怎样判断一个文件是否存在 在ACCESS库中,用ADO连接,如何得到表单的名称,运用那个对象?,一定给分的!! 如何直接调用另一个窗体的按钮代码? 大家帮帮忙!谢谢(最后10分)
If flag = True Then
num_tmp = Num(i)
Else
j = j + 1
End If
For j = i + 1 To n
If num_tmp + Num(j) = 11 Then
'....
flag = True
Exit For
End If
num_tmp = num_tmp + Num(j)
flag = False
Next
Next
If flag = True Then
num_tmp = Num(i)
k = i + 1
Else
k = j + 1
End If
For j = k To n
If num_tmp + Num(j) = 11 Then
'....
flag = True
Exit For
End If
num_tmp = num_tmp + Num(j)
flag = False
Next
Next