主题：[求助]数据计算

参考代码

Dim je As Double = 778.96 '金额
Dim jj As Double = 3.78 '进价
Dim sj As Double = 5 '售价
Dim wc As Double = 0.05 '最大误差

Dim jd As Double = 0
Do While jd <= wc
Dim xzjj As Double = jj
    Do While xzjj < sj
        Dim max As Double = (je+jd) / xzjj
        Dim min As Double = (je-jd) / xzjj
        Dim sl As Integer = min
        Do While sl <= max
            If xzjj*sl >= je-jd AndAlso xzjj*sl <= je+jd Then
                output.show(Round2(xzjj,4) & " " & Round2(sl,4) & " " & round2(xzjj * sl,4))
                Return ""
            End If
            sl += 1
           
        Loop
        xzjj += 0.0001
    Loop
    jd += 0.0001
Loop

如下

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

点击浏览该文件:fa piao计算.table