Задать вопрос
16 февраля, 13:07

Помощь по VBA!

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

+5
Ответы (1)
  1. 16 февраля, 16:11
    0
    Полный текст кидать нет смысла, ибо шелуха.

    Вот самая начинка:

    Dim A As Double, B As Double

    A = 11.47

    B = - 4.31

    'Начинается магия замены

    A = A+B

    B = A-B

    A = A-B

    'Конец магии замены

    MsgBox (A)

    MsgBox (B)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помощь по VBA! Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Даны две переменные вещественного типа: A, B. Перераспределить значе- ния данных переменных так, чтобы в A оказалось меньшее из значений, а в B - большее. Вывести новые значения переменных A и B.
Ответы (2)
1. Дано целое число, лежащее в диапазоне 1-999. Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т. д. 2. Даны 3 переменные вещественного типа: А, В, С.
Ответы (1)
Pascal. Даны три переменные вещественного типа: A, B, C. Если их значения упо - рядочены по возрастанию или убыванию, то удвоить их; в противном слу - чае заменить значение каждой переменной на противоположное.
Ответы (1)
Описать массив А который состоит из 14 элементов вещественного типа, нумерация начинаеться с 1 Описать массив f который состоит из 16 элементов вещественного типа, нумерация начинается с 1
Ответы (1)
Даны 2 переменные целого типа а и в если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить пременным нулевые значения. вывести новые значения а и в
Ответы (1)