Question

我想知道如何比较来自不同文本文件的4个不同的值（双精度数）（4），每个文件都包含一个双精度值以在它们之间给出最高的结果并基于该值执行命令？

我正在寻找类似的东西

If x > y > z > q Then 'command

Answer 1

如果将值放在列表中，则可以通过调用Max（）来获得最大值

    Dim a, b, c, d As Double

    a = 10
    b = 3
    c = 33
    d = 15

    Dim listOfDouble As New List(Of Double)({a, b, c, d})
    Dim maxValue As Double = listOfDouble.Max()

正如@jmcilhinney所指出的，我们可以只使用一个数组。

    Dim arrayOfDouble As Double() = {a, b, c, d}
    Dim maxValue As Double = arrayOfDouble.Max()

Answer 2

如果我正确理解您的问题，则要检查x > y和y > z和z > q。如果是这样，您可以使用类似以下内容的

If x > y AndAlso y > z AndAlso z > q Then

End If

但是，当您有更多的数字并且我想您正在寻找更通用的东西时，这可能会更长。这样的东西就是您要寻找的东西：

Dim x, y, z, q As Double
x = 5
y = 7
z = 2
q = 14

Dim asArray As Double() = {x, y, z, q}
Dim sorted = asArray.OrderByDescending(Function(i) i)
If asArray.SequenceEqual(sorted) Then
    ' Do your thing.
End If

如何比较4个不同的值？

2 个答案: