我想要的显示结果效果是这样的，
如果公式相加>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=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)

是这样的，我想在TEXT1.TEXT到TEXT6.TEXT文本框里，分别输入我想要的数字，
但是要赋值，让N1=VAL(TEXT1.TEXT),N2=VAL(TEXT2.TEXT),N3=VAL(TEXT3.TEXT),N4=VAL(TEXT4.TEXT),N5=VAL(TEXT5.TEXT),N6=VAL(TEXT6.TEXT)
但是，我单击"按钮"之后，然后开始计算我上面的那些公式，
然后，显示的结果是在TEXT7.TEXT里显示，
--------------------------------------------
还有，大神你刚才给我的代码为什么老出错？

看了，不过我是菜鸟，实在不懂呀

谢谢大神，我的问题解决了，

只是大神能告诉我，怎么赋值不