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

Презентация:



Advertisements
Похожие презентации
Проект «Контроль знаний» 10 класс. Поместить на форму: Надпись Label 1 для вывода оценочных сообщений; Надпись Label 2 для вывода количества ошибок; Кнопку.
Advertisements

1 2 InputBox(Приглашение$, Заголовок$,[ПоУмолчанию])
Функции ввода и вывода Урок в 10 классе. Функция InputBox (Окно Ввода). InputBox(Приглашение$, Заголовок$, [ПоУмолчанию$]) InputBox(Приглашение$, Заголовок$,
Определение максимального и минимального значений переменных. Задание 1. Даны две переменные А и В, значения которых вводятся командой Input. Определить.
А) истинным; б) ложным; в) неопределенным. а). а) в начале; б) в конце; в) в начале или в конце, но не одновременно. б)
Проект Три шара Постановка задачи : Дано число N – количество вызовов функции, которая возвращает шар одного из трех цветов : красный, синий или желтый.
АЛГОРИТМИЧЕСКАЯ СТРУКТУРА «ВЕТВЛЕНИЕ». СЛОЖНЫЕ УСЛОВИЯ. 1 Программирование на языке Vb6.
Проект «Решение квадратного урвнения» Visual Basic.
Открытый урок «Реализация разветвляющихся алгоритмов на языке программирования Visual Bаsic»
Переменные задаются именами, которые определяют области памяти, в которых хранятся их значения. Значениями переменных могут быть данные различных типов.
УСЛОВНЫЙ ОПЕРАТОР IF... THEN... ELSE (Если … То … Иначе)
Ближайшее простое Public Sub Пр() Dim Ol As Integer, Op As Integer, i As Integer, n1 As Integer Dim N As Integer Dim t As Integer Dim mystr As String N.
«Ум» компьютера – это ум человека, воплощенный в программе.
Тема: Линейный алгоритм. Создание программ.. Имя переменной S, P, a, b, h, S1, S2, P_осн Может состоять из символов латинского, русского алфавита, включать.
А ЛГОРИТМИЧЕСКИЕ СТРУКТУРЫ ЯЗЫКА V ISUAL B ASIC. 1. Л ИНЕЙНЫЙ АЛГОРИТМ Алгоритм в котором команды выполняются последовательно одна за другой, называется.
Как мы можем задать компьютеру какую- нибудь величину? Оператором присваивания - раз. Введя ее в текстовое поле, как мы делали в калькуляторе - два. Есть.
Основы программирования на языке Visual Basic. © Епифанова Т.Н., 2008 г. Элективный курс для учащихся 10 класса общеобразовательных учреждений. 1. Оператор.
Что необходимо сделать, прежде чем использовать переменную в коде? Если необходимо 2 переменные целого типа? 10? Как же поступить, если необходимо использовать.
Разветвляющаяся алгоритмы. Условные операторы Ветвление - выбор пути решения задачи в соответствии с выполнением или невыполнением некоторого условия выбора.
Создать форм 2 для GAME OVER Создать форм 3 для поздравления победителя.
Транксрипт:

ВыполнитьEXIT

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

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

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

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