Задать вопрос
25 декабря, 00:25

Задание в Visual basic. Введите 2 числа, если их разность больше 8, то числа перемножить в противном случае сложить.

+4
Ответы (1)
  1. 25 декабря, 00:36
    0
    Dim a As Integer, b As Integer

    Private Sub CommandButton1_Click ()

    a = TextBox1. Value

    b = TextBox2. Value

    If a - b > 8 Then

    CommandButton1. Caption = "Произведение = " & (a * b)

    Else

    CommandButton1. Caption = "Сумма = " & (a + b)

    End If

    End Sub
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задание в Visual basic. Введите 2 числа, если их разность больше 8, то числа перемножить в противном случае сложить. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Вопрос 1 Что представляет собой Visual Basic? система программирования среда проектирования объединяет в себе систему программирования и среду проектирования Вопрос 2 Каким образом можно изменить значения свойств объекта?
Ответы (1)
Visual basic 1) закусочная продает воду по 10 рублей за банку, но не менее 5 банок одному покупателю. Если покупатель запросит более 5 банок, выдать предупреждение, в противном случае - сумму покупки 2) ввести годы рождения двух девочек.
Ответы (1)
Помогите перевести из Turbo Pascal в Visual basic var a: real; begin Write ('Введите a>=1:') ; Readln (a) ; if asin (a) then Writeln ('1/a больше, чем sin (a) ') ; if 1/a end; Readln; end.
Ответы (1)
Дано число. Если оно делится на 11, то уменьшить ч Дано число. Если оно делится на 11, то уменьшить число в 11 раз, в противном случае уменьшить число на 11. исло в 11 раз, в противном случае уменьшить число на 11.
Ответы (1)
Задание 1. Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе. Пример: Введите номер месяца: -2 Введите номер месяца: 11 В этом месяце 30 дней. Вы вводили неверно 1 раз. Задание 2.
Ответы (1)