主题：[求助] 根据计算结果选定相应数值

请教各位大侠：当计算出两个数值后（上差 和 下差），如何用Select Case语句判定应该选用这两个数值之间的相应的数值（根据上差和下差数值的范围，选用几个固定数值当中符合的一个数值）并显示在窗口的文本框内，我上传附件给各位帮看看，小弟非常感激。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:计算公式.rar

比如：上差是3.71 下差是3.58     我的固定数值有3.55  3.70  3.85  4  4.15  4.3  4.45  4.6  那么我应该选3.7

上差最大数值，下差是最小数值，也就是3.58~3.71之间，固定数值有3.55  3.70  3.85  4  4.15  4.3  4.45  4.6 ，判断应该选那个数值

还有如何设置窗口文本框为两位小数

此主题相关图片如下：999副本.jpg

我刚刚换了一个上下差数值分别为：4.19和3.95的时候结果输出是4.6  按理应是4.15

不知哪里出写错了

不好意思，我没有把上下差计算公式列出来，计算公式是这样的：

3.34+a+b-d-e-0.15≤δ≤3.34+a+b-d-e,  δ 系列尺寸为：3.55±0.1  3.70±1  3.85±0.1  4±0.1  4.15±0.1  4.3±0.1   4.45±0.1   4.6±0.1   所以上下差之间只有0.15的值，不会有两个值的。

3.34+a+b-d-e-0.15≤δ≤3.34+a+b-d-e

其中3.34和0.15是固定值，不会改变的。

谢谢各位仁兄的帮助，现在还有个问题就是怎样在[垫片列]自动显示所筛选出的垫片型号，

 小弟不才，请多多关照

Dim sq,xq,Avg1,nD1,qs1 As Double
Dim Dbs As Double() ={3.55,3.70,3.85,4 ,4.15,4.3,4.45,4.6}
sq =4.5
xq =4.28
Avg1=(sq+xq)/2  

 

For Each nD1 In Dbs
    If nD1 < sq And nD1 > Avg1 Then     
        qs1 = nD1
    End If
Next

 

此主题相关图片如下：1000.jpg

好像还是原来的表，没改变什么的呀

我已经把窗口显示有效数值更改好，不知道什么弄这段代码进去。

 

Dim sq,xq,Avg1,nD1,qs1 As Double
Dim Dbs As Double() ={3.55,3.70,3.85,4 ,4.15,4.3,4.45,4.6}
sq =4.5
xq =4.28
Avg1=(sq+xq)/2  

 

For Each nD1 In Dbs
    If nD1 < sq And nD1 > Avg1 Then     
        qs1 = nD1
    End If
Next

上面代码是作者：lkqing 帮写，谢谢。已经试过，非常好，不知怎样才能让【垫片】列显示出所判定出的数值。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:计算公式.rar

兄弟，您发回的这表是不是搞错了，我真的没见你说的那样录完输出轴后会自动填入选定垫片框，麻烦您再帮我看看重新发一次好吗？真的太太感谢您了。