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

改改，试试：

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

Output.Show(qs1 )

以下是引用黄力在2012-5-27 9:48:00的发言：
好像还是原来的表，没改变什么的呀

窗口里找

不是已告诉你了吗

在你录完输出轴后会自动填入

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