Как сравнить 4 разных значения?

Question

Мне интересно, как я могу сравнить 4 разных значения (двойных) из разных текстовых файлов (4), каждое из которых содержит двойное значение, чтобы дать наибольший результат между ними и выполнить команду, основанную на этом?

Я ищу что-то вроде:

If x > y > z > q Then 'command

Answer 1

Если я правильно понимаю ваш вопрос, вы хотите проверить, если 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

Answer 2

Если вы поместите свое значение в список, вы можете получить максимальное значение, вызвав 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()