请求VB高手帮忙，编个小程序，不复杂的。3Q！

来源：百度知道 编辑：UC知道 时间：2024/07/05 18:06:11
在1～31内（整数），取6个数（不重复），它们相加之和等于设定的某个数值y。将所有满足条件的数值组合列举出来。
例如：设定y=100，那么可以有数值组合：
2、8、15、16、28、31。（2+8+15+16+28+31=100）；
1、9、15、16、28、31。（1+9+15+16+28+31=100）；
……
这个程序要达到的目的是，我输入一个数值y，然后就显示出所有满足条件的数组。
谢谢高手们帮忙啦！

这活我接了
你HI我
或Q我吧
38967098

Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Integer
Dim K As Integer
K = Val(InputBox("输入一个数"))
For A = 1 To 31
For B = 1 To 31
If A <> B Then
For C = 1 To 31
If A <> C And B <> C Then
For D = 1 To 31
If A <> D And B <> D And C <> D Then
For E = 1 To 31
If A <> E And B <> E And C <> E And D <> E Then
For F = 1 To 31
If A <> F And B <> F And C <> F And D <> F And E <> F Then
If A + B + C + D + E + F = K Then Print A; B; C; D; E; F '输出
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
结果好像很多。