不重复的5个自然数相加得21有几
使用vbs脚本可以让你获得任意数字的组合的个数。脚本范例如下：
SN = InputBox("请输入一个自然数：", "输入")
N = 0
For I = 0 to 35
For J = I + 1 to 35
For K = J + 1 to 35
For P = K + 1 to 35
For Q = P + 1 to 35
Num = I + J + K + P + Q
If Num = CInt(SN) Then
N = N + 1
Str = Str & I & " + " & J & " + " & K & " + " & P & " + " & Q & " = " & SN...全部
使用vbs脚本可以让你获得任意数字的组合的个数。脚本范例如下：
SN = InputBox("请输入一个自然数：", "输入")
N = 0
For I = 0 to 35
For J = I + 1 to 35
For K = J + 1 to 35
For P = K + 1 to 35
For Q = P + 1 to 35
Num = I + J + K + P + Q
If Num = CInt(SN) Then
N = N + 1
Str = Str & I & " + " & J & " + " & K & " + " & P & " + " & Q & " = " & SN & vbCrLf
End If
Next
Next
Next
Next
Next
Str = "五个不相同的自然数的和等于 " & SN & " 共有 " & N & " 个组合：" & vbCrLf & vbCrLf & Str
MsgBox Str, , "组合结果"
将上述代码复制并粘贴到“记事本”，然后保存为 test。
vbs 脚本文件。可自行调整代码中的“0 to 35”的两个起始和终止的自然数。单/双击 test。
vbs 文件，输入一个自然数，如：21，马上得到组合结果，如：
---------------------------
组合结果
---------------------------
五个不相同的自然数的和等于 21 共有 37 个组合：
0 + 1 + 2 + 3 + 15 = 21
0 + 1 + 2 + 4 + 14 = 21
0 + 1 + 2 + 5 + 13 = 21
0 + 1 + 2 + 6 + 12 = 21
0 + 1 + 2 + 7 + 11 = 21
0 + 1 + 2 + 8 + 10 = 21
0 + 1 + 3 + 4 + 13 = 21
0 + 1 + 3 + 5 + 12 = 21
0 + 1 + 3 + 6 + 11 = 21
0 + 1 + 3 + 7 + 10 = 21
0 + 1 + 3 + 8 + 9 = 21
0 + 1 + 4 + 5 + 11 = 21
0 + 1 + 4 + 6 + 10 = 21
0 + 1 + 4 + 7 + 9 = 21
0 + 1 + 5 + 6 + 9 = 21
0 + 1 + 5 + 7 + 8 = 21
0 + 2 + 3 + 4 + 12 = 21
0 + 2 + 3 + 5 + 11 = 21
0 + 2 + 3 + 6 + 10 = 21
0 + 2 + 3 + 7 + 9 = 21
0 + 2 + 4 + 5 + 10 = 21
0 + 2 + 4 + 6 + 9 = 21
0 + 2 + 4 + 7 + 8 = 21
0 + 2 + 5 + 6 + 8 = 21
0 + 3 + 4 + 5 + 9 = 21
0 + 3 + 4 + 6 + 8 = 21
0 + 3 + 5 + 6 + 7 = 21
1 + 2 + 3 + 4 + 11 = 21
1 + 2 + 3 + 5 + 10 = 21
1 + 2 + 3 + 6 + 9 = 21
1 + 2 + 3 + 7 + 8 = 21
1 + 2 + 4 + 5 + 9 = 21
1 + 2 + 4 + 6 + 8 = 21
1 + 2 + 5 + 6 + 7 = 21
1 + 3 + 4 + 5 + 8 = 21
1 + 3 + 4 + 6 + 7 = 21
2 + 3 + 4 + 5 + 7 = 21
---------------------------
确定
---------------------------。收起
