如何比较 4 个不同的值?

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