VB编程公式

显示全部楼层 · 2008-12-31 11:16:34

有一组数1,2,3,4,5......60 里面的其中六个数加起来可以等于106都显示出来。是要六个数加起来等于106.用VB编程应该如何编？
其中六个数不能重复！写漏了。

千问 · 2008-12-31 11:16:34

Option Explicit Const MAX_NUM = 60 Const MIN_NUM = 1 Const NUM_COUNT = 6Const RESULT = 106 Dim num(NUM_COUNT) As Integer Private Sub Command1_Click() '在1～MAX_NUM间取所有NUM_COUNT个数的组合(不重复) Debug.Print MIN_NUM & "～" & MAX_NUM & " 之间和为 " & RESULT & " 且不重复的" & NUM_COUNT & "个数有：" Call PickNum(1, MIN_NUM) En...

千问 · 2008-12-31 11:16:34

'添加一个按钮Command1 '因为符合条件的数太多，窗体显示不完，所以添加一个列表框List1来显示 Private Sub Command1_Click() For i = 1 To 60 For J = i + 1 To 60 For k = J + 1 To 60 For l = k + 1 To 60 For m ...

千问 · 2008-12-31 11:16:34

这个题目不难做,但计算时间会比较长,代码如下:Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim intNum(60) As IntegerDim lngResult As LongFor i = 1 T...