ВыполнитьEXIT PUBLIC SUB Button1_Click() DIM A AS Integer DIM B AS Integer A = InputBox("Введите целое первое число А", "Наибольшее из двух чисел") B. - презентация

1

2 ВыполнитьEXIT

B THEN Message.Info("Наибольшее из д" title="PUBLIC SUB Button1_Click() DIM A AS Integer DIM B AS Integer A = InputBox("Введите целое первое число А", "Наибольшее из двух чисел") B = InputBox("Введите целое второе число В", "Наибольшее из двух чисел") IF A > B THEN Message.Info("Наибольшее из д" class="link_thumb"> 3 PUBLIC SUB Button1_Click() DIM A AS Integer DIM B AS Integer A = InputBox("Введите целое первое число А", "Наибольшее из двух чисел") B = InputBox("Введите целое второе число В", "Наибольшее из двух чисел") IF A > B THEN Message.Info("Наибольшее из двух чисел А =" & A, "Ок") ELSE Message.Info("Наибольшее из двух чисел B =" & B, "Ок") ENDIF END PUBLIC SUB Button2_Click() ME.Close END B THEN Message.Info("Наибольшее из д"> B THEN Message.Info("Наибольшее из двух чисел А =" & A, "Ок") ELSE Message.Info("Наибольшее из двух чисел B =" & B, "Ок") ENDIF END PUBLIC SUB Button2_Click() ME.Close END"> B THEN Message.Info("Наибольшее из д" title="PUBLIC SUB Button1_Click() DIM A AS Integer DIM B AS Integer A = InputBox("Введите целое первое число А", "Наибольшее из двух чисел") B = InputBox("Введите целое второе число В", "Наибольшее из двух чисел") IF A > B THEN Message.Info("Наибольшее из д">

4

B THEN IF A > C THEN Message.Info("Наибольшее число А=" & A, "наибольшее из 3 " title="DIM A AS Integer DIM B AS Integer DIM C AS Integer A = InputBox("Введите число А", "ОК") B = InputBox("Введите число В", "ОК") C = InputBox("Введите число С", "ОК") IF A > B THEN IF A > C THEN Message.Info("Наибольшее число А=" & A, "наибольшее из 3 " class="link_thumb"> 5 DIM A AS Integer DIM B AS Integer DIM C AS Integer A = InputBox("Введите число А", "ОК") B = InputBox("Введите число В", "ОК") C = InputBox("Введите число С", "ОК") IF A > B THEN IF A > C THEN Message.Info("Наибольшее число А=" & A, "наибольшее из 3 чисел") ENDIF IF A > B THEN IF A < C THEN Message.Info("Наибольшее число C=" & C, "наибольшее из 3 чисел") ENDIF IF B > A THEN IF B > C THEN Message.Info("Наибольшее число B=" & B, "наибольшее из 3 чисел") ELSE Message.Info("Наибольшее число C=" & C, "наибольшее из 3 чисел") ENDIF END B THEN IF A > C THEN Message.Info("Наибольшее число А=" & A, "наибольшее из 3 "> B THEN IF A > C THEN Message.Info("Наибольшее число А=" & A, "наибольшее из 3 чисел") ENDIF IF A > B THEN IF A < C THEN Message.Info("Наибольшее число C=" & C, "наибольшее из 3 чисел") ENDIF IF B > A THEN IF B > C THEN Message.Info("Наибольшее число B=" & B, "наибольшее из 3 чисел") ELSE Message.Info("Наибольшее число C=" & C, "наибольшее из 3 чисел") ENDIF END"> B THEN IF A > C THEN Message.Info("Наибольшее число А=" & A, "наибольшее из 3 " title="DIM A AS Integer DIM B AS Integer DIM C AS Integer A = InputBox("Введите число А", "ОК") B = InputBox("Введите число В", "ОК") C = InputBox("Введите число С", "ОК") IF A > B THEN IF A > C THEN Message.Info("Наибольшее число А=" & A, "наибольшее из 3 ">

6

7 PUBLIC SUB Button1_Click() DIM A AS Integer DIM B AS Integer DIM C AS Integer A = InputBox("Введите число А", "наибольшее из 3 чисел") B = InputBox("Введите число В", "наибольшее из 3 чисел") C = InputBox("Введите число С", "наибольшее из 3 чисел") IF A > B AND A > C THEN Message.Info("Наибольшее число А=" & A, "ok") ELSE IF A > B AND A < C THEN Message.Info("Наибольшее число C=" & C, "ok") ELSE IF B > A AND B > C THEN Message.Info("Наибольшее число B=" & B, "ok") ELSE Message.Info("Наибольшее число C=" & C, "ok") ENDIF END B AND A > C THEN Message.Info("Наибольшее число А=" & A, "ok") ELSE IF A > B AND A < C THEN Message.Info("Наибольшее число C=" & C, "ok") ELSE IF B > A AND B > C THEN Message.Info("Наибольшее число B=" & B, "ok") ELSE Message.Info("Наибольшее число C=" & C, "ok") ENDIF END">

8

9 PUBLIC SUB Button1_Click() DIM A AS String DIM C AS String DIM N AS Byte A = InputBox("Введите свою фамилию", "Тестирование") Message.Info("Уважаемый(ая)" & A & "Вы готовы к проверке знаний", "OK") C = InputBox("Чему равен 1 байт?", "Первый вопрос") IF C = "8" THEN Message.Info("Правильно", "ok") ELSE Message.Info("Неправильно", "OK") N = N + 1 ENDIF C = InputBox("Переведите 1 Kбайт в байты " & " Ответ дайте так: число пробел и сколько байт ", "Второй вопрос") IF C = "1024 байт" THEN Message.Info("Правильно", "ok") ELSE Message.Info("Неправильно", "OK") N = N + 1 ENDIF Message.Warning("Уважаемый(ая), вы сделали" & N & "ошибок" & "Конец опроса") END