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

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

Задать свой вопрос
2 ответа
Sub Zadanie24891339()
    A = CDbl(InputBox("A = "))
    B = CDbl(InputBox("B = "))

    if A gt; B then
        c = A
        A = B
        B = c
    end if

    MsgBox "A=" amp; A amp; " B=" amp; B
End Sub

Zadanie24891339
Sub swap(ByRef A, ByRef B)  If A gt; 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
Стефания Блиндяева
не верно
Тимур Мусаилов
в бейсике нет обозначения конца строчки, так что таковой код не скомпилируется. необходимы переводы строк
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт