Question

Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B в решит в VBA

Answer 1

Sub Zadanie24891339()
    A = CDbl(InputBox("A = "))
    B = CDbl(InputBox("B = "))

    if A > B then
        c = A
        A = B
        B = c
    end if

    MsgBox "A=" & A & " B=" & B
End Sub

Zadanie24891339

Answer 2

Sub swap(ByRef A, ByRef B)  If A > B Then    C = A    A = B    B = C  End IfEnd Sub
Sub test()  A = 12.5  B = 15  Call swap(A, B)  MsgBox "A= " + Str(A)  MsgBox "B= " + Str(B)    A = 100  B = 12  Call swap(A, B)  MsgBox "A= " + Str(A)  MsgBox "B= " + Str(B)  End Sub