Практическая работа № 4.13

1. Создать новый проект и программу для решения задачи: в компьютер вводятся 2 числа. Если первое больше второго, то напечатать их сумму, иначе – произведение. После этого компьютер должен напечатать текст – ЗАДАЧА РЕШЕНА. Макет формы показан на рис. 32.

2. Программный код для кнопки пуск:

Dim A, B As Long

A=Val(Text1.Text)

B=Val(Text2.Text)

If A>B Then

Text3.Text=A+B

Else

Text3.Text=A*B

End If

MsgBox "ЗАДАЧА РЕШЕНА", 64, "ПОЗДРАВЛЕНИЕ!"

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.