Question

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

Answer 1

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

Answer 2

не верно

Answer 3

В первом случае ничего не происходит. Во втором происходит смена и в A оказывается меньшее значение 12, а B оказывается 100

Answer 4

Решайте самостоятельно, если не обосновали свои слова

Answer 5

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

Answer 6

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

Answer 7

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