| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 857 人关注过本帖
标题:求大神指点,如果写代码,让这些公式显示>=50,<=1,且不重复
只看楼主 加入收藏
wenchen1987
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2015-7-1
结帖率:100%
收藏
已结贴  问题点数:30 回复次数:19 
求大神指点,如果写代码,让这些公式显示>=50,<=1,且不重复
我想要的显示结果效果是这样的,
如果公式相加>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
2015-07-06 23:16
wenchen1987
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2015-7-1
收藏
得分:0 
如何写代码,求大神指点,写错一个字
2015-07-06 23:16
vbhello
Rank: 2
等 级:论坛游民
帖 子:17
专家分:15
注 册:2014-5-9
收藏
得分:0 
不是很懂题目,例如:
公式n1+1 与 公式n4-8 相减
(n1+1)-(n4-8)= n1-n4+9这个结果算什么?
2015-07-07 02:37
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
好吧,首先,计算过程,按我写的 24点代码里的 第一次的代码。计算公式写在 一个文件里。
其次,计算结果去重功能,按我 24点代码第二次的代码里的去重功能就可以了。

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

授人于鱼,不如授人于渔
早已停用QQ了
2015-07-07 08:15
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:30 
回复 楼主 wenchen1987
要求比较容易实现,便感觉这个计算组合不妥。
输入每个数对应输出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

 

大开眼界
2015-07-07 09:27
wenchen1987
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2015-7-1
收藏
得分:0 
回复 2楼 wenchen1987
不是这样的,如:N1+1=50,n2-1=1,然后判断是否>50或小于1
2015-07-07 20:03
wenchen1987
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2015-7-1
收藏
得分:0 
回复 5楼 lianyicq
你好,大神,你写的代码好像是我要的,但是我想要的效果是N1-N6人可以自己输入数字的,
然后那些公式,是根据我自己输入的数字来判定结果是否>50,或<1的不重复数字的,

n1-n6是文本框,对应TEXT1.TEXT-TEXT6.TEXT,然后在TEXT7.TEXT显示计算结果
2015-07-07 20:17
w2009w
Rank: 7Rank: 7Rank: 7
等 级:黑侠
威 望:2
帖 子:190
专家分:542
注 册:2015-4-20
收藏
得分:0 
2015-07-07 20:34
wenchen1987
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2015-7-1
收藏
得分:0 
回复 楼主 wenchen1987
我再简化一下公式,就是
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)
2015-07-07 20:54
wenchen1987
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2015-7-1
收藏
得分:0 
回复 7楼 wenchen1987
我再简化一下公式,就是
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)
2015-07-07 21:30
快速回复:求大神指点,如果写代码,让这些公式显示>=50,<=1,且不重复
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029197 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved