下面是设计的程序。 核心是如何把33个数中取3个的所有组合都搞出来。 Private Sub Command5_Click() Dim a(1 To 6) As Integer k = 6: duoshao = 0 For i = 1 To 6: a(i) = i: Next Do he = 0 For i = 1 To 6: he = he + a(i): Next If he = 100 Then For i = 1 To 6: Text1。
Text = Text1。Text + Str(a(i)) + " ": Next Text1。Text = Text1。Text + vbCrLf duoshao = duoshao + 1 Me。Caption = Str(duoshao) Me。
Refresh DoEvents End If a(6) = a(6) + 1 Do k = 7 For i = 1 To 6 If a(i) = i + 28 Then k = i If i = 1 Then k = 0 Exit Do End If a(i - 1) = a(i - 1) + 1: a(i) = 0 End If Next If k = 7 Then Exit Do Loop If k = 0 Then Exit Do For i = 1 To 6 If a(i) = 0 Then a(i) = a(i - 1) + 1 Next Loop End Sub 运行后得到答案: 19995 。
答：6个数字相加之和等于150，那么这六个数的平均值为150/6=25 有1，24 2，23 3，22 4，21 5，20 6，19， 7，18 8，17 9，16...详情>>
答：详情>>
