1到10个数不重复列等式

问：1—10十个数字相加减，不能重复，能列什么式子？

1. 答：若能列成两个相等的式子，这两个式子的和一定是偶数
   1-10中有5个奇数，由于奇数+、-偶数，其结果还是奇数，5个奇数一定会留下一个奇数无法分配到式子中，所以只用加减是无法得到等式的。
2. 答：10-5=9-4=8-3=7-2=6-1
3. 答：4+5=9
   3+7=10
   2+6=8
4. 答：....................................................

问：EXCEL 1--10个数字不重复具体排列组合

1. 答：1、首先打开电脑上的excel表格，然后统计不重复的个数。
   2、然后使用公式，=SUMPRODUCT(1/COUNTIF(A2:A9,A2:A9))。
   3、使用公式后统计不重复的个数，便于在数据量大的情况下使用公式。
   4、提取不重复的内容C2单元格输入以下数组公式，按Ctrl+ Shift+Enter，向下复制。=INDEX(A:A,1+MATCH(,COUNTIF(C$1:C7,A$2:A$9),))&"。
   5、最后可以看到，使用公式提取不重复的内容的效果。
2. 答：条件1：不包含0
   条件2：不得有重复数字
   范围：12345~98765
   符合的数字有 57205个，
   右击工作表标签→查看代码，把下面的代码贴到VBE中，按F5运行，结果粘贴到A列
   Sub chiefzjh()
   Dim mStr$, i, k%, Tmp$, mDic
   Set mDic = CreateObject("scripting.dictionary")
   mStr = "123456789"
   For i = 12345 To 98765
   If InStr(i, "0") = 0 Then 'No "O" exit
   For k = 1 To 4 'No duplicate finger
   If 5 - Len(Replace(i, Mid(i, k, 1), "")) >= 2 Then Exit For
   Next k
   mDic.Add i, "" 'Add to Dic
   End If
   Next i
   i = mDic.Count
   Range("a1").Resize(i, 1) = WorksheetFunction.Transpose(mDic.keys)
   End Sub
3. 答：不用VB不好弄的！我用一种比较笨的算法，然后用VBA生成的，自己看附件哈，应该就是你说的那样的，
   Option Explicit
   Sub combin()
       Dim i, j, l, k, n, m
       For i = 1 To 6
           For j = i + 1 To 7
               For l = j + 1 To 8
                   For k = l + 1 To 9
                       For n = k + 1 To 10
                           m = m + 1
                           Sheet1.Range("a" & m) = i & " " & j & " " & l & " " & k & " " & n
                       Next n
                   Next k
               Next l
           Next j
       Next i
   End Sub

问：用1-10这十个数,添到括号里,使等式成立,每个数不能重复使用

1. 答：(7+3-9)+(8-5-2)+(6+4)=10并不难啊

本文来源: https://www.lw50.cn/article/880189e294ee7fced02ae4ba.html