Задания / VBA / Задание_3 / Программа 1001

Написать программу на VB, реализующую следующий алгоритм:

ПРОГРАММА 1001 НАЧАТЬ ПРОГРАММУ   ПИСАТЬ (‘ВВЕДИТЕ ЗНАЧЕНИЕ A’);   ЧИТАТЬ (A);   ПИСАТЬ (‘ВВЕДИТЕ ЗНАЧЕНИЕ B’);   ЧИТАТЬ (B);   ЕСЛИ A>=B ТО     C:=(A-B)*B   ИНАЧЕ     C:=(B-A)*A;   ЕСЛИ С<0 ТО     С:=С*С   ПИСАТЬ (C); КОНЕЦ ПРОГРАММЫ

Форма должна иметь следующий вид:

П рограммный код следующий:

Private Sub Command1_Click()

A = InputBox("Ввести значение А")

B = InputBox("Ввести значение B")

If A >= B Then C = (A - B) * B Else

If (B - A) * A < 0 Then С = (B - A) * A:

C = С * С

Print: Print

Print , "C = "; C

End Sub