我想要的显示结果效果是这样的，
如果公式相加>50的数字，不显示，最大50
如果公式相减<1的数字字，不显示，最小1
如果公式相减=负数，也那么不显示，
如果公式计算的结果相同，那么，只显示一次就好了，不要重复数字，求大神指点
n1+1
n4-8
n3+8
n3-10
n1+16
n6-8
n4+8
n4-5
n2-8
n1-8
n4+16
n4-20
n1-1
n6+8
n2-1
n2-20
n1-32
n3-1
n6-1
n3-8
n1+3
n1-5
n2+8
n2+24
n1-3
n1-16
n1-20
n5+3
n3+24
n3-5
n2+5
n3+20
n5-20
n5+5
n4+40
n6-5
n5+32
n4-1
n6+40
n4-32
n4+3
n5+40
n2-24
n1-40
n6+5
n5-40
n4+32
n4-16
n3-3
n3+40
n1+5
n2+20
n6+10
n6+32
n2+32
n2+40
n6-40
n6-16
n5-32
n2+10
n5+8
n4+24
n2+16
n2-40
n1-30
n5-3
n2-3
n1+20
n4-10
n1-10
n5-5
n2-5
n5-30
n1+24
n3+30
n5+24
n6+20
n6+24
n6-30
n5+10
n1+8
n2-30
n4+1
n6-20
n4-40
n2-32
n3-30
n3+3
n1-24
n6-32
n3+16
n3+1
n2-16
n5+30
n3+32
n5-10
n5-24
n3+10
n5+20
n2-10
n1+10
n3-40
n4+10
n4+30
n3+5
n5-16
n6+1
n4+5
n2+30
n4-30
n5-8
n6-24
n3-32
n5+16
n3-20
n6+30
n4+20
n5+1
n3-16
n1+30
n4-3
n6-10
n4-24
n2+3
n6+16
n2+1
n3-24
n6+3
n5-1
n1+32
n6-3
n1+40

如何写代码，求大神指点，写错一个字

不是很懂题目，例如：
公式n1+1 与 公式n4-8 相减
(n1+1)-(n4-8)= n1-n4+9这个结果算什么？

好吧，首先，计算过程，按我写的 24点代码里的 第一次的代码。计算公式写在 一个文件里。
其次，计算结果去重功能，按我 24点代码第二次的代码里的去重功能就可以了。

------------------------------
你这些计算式没有规律，无法使用循环来做，那就先定义好式子，然后计算吧。

要求比较容易实现，便感觉这个计算组合不妥。
输入每个数对应输出22个数，总共有6个数，对应输出132个数。一般情况下去除掉小于1，大于50，重复的数，余下的数仍然很多。
简单写了代码，你自己试试，希望你对代码写的过程感兴趣。

Option Explicit
Dim a(10) As Integer
Dim n(1 To 6) As Integer
Dim Output() As Integer
Sub Init_a()
  a(0) = 1
  a(1) = 3
  a(2) = 5
  a(3) = 8
  a(4) = 10
  a(5) = 16
  a(6) = 20
  a(7) = 24
  a(8) = 30
  a(9) = 32
  a(10) = 40
End Sub
Sub Init_n()
  n(1) = 15
  n(2) = 8
  n(3) = 45
  n(4) = 32
  n(5) = 36
  n(6) = 16
End Sub
Sub Cal()
  Dim i As Integer
  Dim j As Integer
  Dim k As Integer
  Dim temp As Integer
  ReDim Output(0)
    For i = 1 To 6
      For j = 0 To 10
        temp = n(i) + a(j)
        If AddIn(temp) = True Then
          ReDim Preserve Output(k)
          Output(k) = temp
          k = k + 1
        End If
        temp = n(i) - a(j)
        If AddIn(temp) = True Then
          ReDim Preserve Output(k)
          Output(k) = temp
          k = k + 1
        End If
      Next
    Next
End Sub
Function AddIn(x As Integer) As Boolean
  Dim i As Integer
  AddIn = True
  If x < 1 Or x > 50 Then AddIn = False: Exit Function
  For i = 0 To UBound(Output)
    If x = Output(i) Then
      AddIn = False
      Exit For
    End If
  Next
End Function

Private Sub Command1_Click()
  Dim i As Integer
  Dim temp As String
  Cal
  For i = 0 To UBound(Output)
    temp = temp & Output(i) & " "
  Next
  Debug.Print temp
End Sub

Private Sub Form_Load()
  Init_a
  Init_n
End Sub

 

不是这样的，如：N1+1=50，n2-1=1,然后判断是否>50或小于1

你好，大神，你写的代码好像是我要的，但是我想要的效果是N1-N6人可以自己输入数字的，
然后那些公式，是根据我自己输入的数字来判定结果是否>50,或<1的不重复数字的，

n1-n6是文本框，对应TEXT1.TEXT-TEXT6.TEXT，然后在TEXT7.TEXT显示计算结果

我再简化一下公式，就是
N1+1，n1-1,n1+3,n1-3,n1+5,n1-5,n1+8,n1-8,n1+16,n1-16,n1+24,n1-24,n1+32,n1-32,n1+40,n1-40,
n2到n6同上,
n1到n6是我自己输入的数字
n1=val(text1.text)
n2=val(text2.text)
n3=val(text3.text)
n4=val(text4.text)
n5=val(text5.text)
n6=val(text6.text)

我再简化一下公式，就是
N1+1，n1-1,n1+3,n1-3,n1+5,n1-5,n1+8,n1-8,n1+16,n1-16,n1+24,n1-24,n1+32,n1-32,n1+40,n1-40,
n2到n6同上,
n1到n6是我自己输入的数字
n1=val(text1.text)
n2=val(text2.text)
n3=val(text3.text)
n4=val(text4.text)
n5=val(text5.text)
n6=val(text6.text)