Vb.net 案例中的可编辑值（基于Vb的Ilogic）

我有一个部分，根据绳子的直径而变化。定义了绳索范围和几何参数。但有一个参数必须是可编辑的。我希望得到一组默认值，但我可以根据自己的判断，更改所需的参数或保持原样。 下面是一段代码：

Select Case dk
    Case "From 3 to 3,7"
        B = 6
        B1 = 13
        hк = 5
        R = 2
    Case "From 3,7 to 4,6" 
        B = 8
        B1 = 15
        hк = 6
        R = 2.5
    Case "From 4,6 to 5,6" 
        B = 9
        B1 = 16
        hк = 7
        R = 3
    Case "From 5,6 to 7,2" 
        B = 12
        B1 = 19
        hк = 9
        R = 4
    End Select

要更改的值为B1。事实上，该值不应小于或等于B。因此，我很乐意使用B1在范围内变化的解决方案。

---

提前感谢您在这件事上的帮助。

再使用两个参数。B1max（B1的最大值）和B1req（B1的请求值）。在您的代码集中，B1max而不是B1。用户或其他iLogic代码可以将参数B1req设置为任何值

对于参数B1，使用表达式“min（max（B；B1req；B1max）”。现在，B1参数值只能在范围B到B1max之间，并且在可能的情况下等于B1req

Select Case dk
Case 3 to 3.7 '"From 3 to 3,7"
    B = 6
    B1max = 13
    hk = 5
    R = 2
Case 3.7 To 4.6 '"From 3,7 to 4,6" 
    B = 8
    B1max = 15
    hk = 6
    R = 2.5
Case 4.6 To 5.6 '"From 4,6 to 5,6" 
    B = 9
    B1max = 16
    hk = 7
    R = 3
Case 5.6 To 7.2 '"From 5,6 to 7,2" 
    B = 12
    B1max = 19
    hk = 9
    R = 4
Case Else
    Logger.Error("Parameter 'dk' is out of range")
End Select

Logger.Debug("B = " & B)
Logger.Debug("B1max = " & B1max)
Logger.Debug("hk = " & hk)
Logger.Debug("R = " & R)

---

为什么这个问题被标记为VBA和VB.NET？阅读这些标签的描述。它们都声明它们不能用于另一方的问题。找出您正在使用的语言，并使用仅与该语言相关的标记。