Заданные элементы этой функции VBA не дают мне максимальное число

Question

Эй, ребята, я пытаюсь найти максимальное число из 3-х заданных чисел в VBA, но это не дает мне то, что я не буду. Я знаю, что есть много функций, чтобы доставить меня туда, как готовые. Но вы можете сказать мне точно, почему это не будет работать. Это для моей школы, понятия не имею, что делать. Не похоже на go мимо параметра B.

Function Max(A As Integer, B As Integer, C As Integer) As Integer
Max = A
If Max < B Or B > C Then
Max = B
ElseIf A < C Or B < C Then
Max = C
Else
Max = 0
End If
End Function

Answer 1

Вы можете получить максимум три значения, просто проверив каждое значение по очереди.

• Предположим, что первое - самое старшее, с которого нужно начинать.
• Затем, если текущее самое высокое меньше второго, замените его на второго.
• Затем сделайте то же самое с третьим.

Код для этого будет go чем-то как это:

Function MaxOf3(num1 As Integer, num2 As Integer, num3 As Integer) As Integer
    MaxOf3 = num1
    If MaxOf3 < num2 Then MaxOf3 = num2
    If MaxOf3 < num3 Then MaxOf3 = num3
End Function