PPt4Web Хостинг презентаций

Главная / Информатика / Применение команды ветвления при создании проекта в Visual Basic
X Код для использования на сайте:

Скопируйте этот код и вставьте его на свой сайт

X

Чтобы скачать данную презентацию, порекомендуйте, пожалуйста, её своим друзьям в любой соц. сети.

После чего скачивание начнётся автоматически!

Кнопки:

Презентация на тему: Применение команды ветвления при создании проекта в Visual Basic


Скачать эту презентацию

Презентация на тему: Применение команды ветвления при создании проекта в Visual Basic


Скачать эту презентацию

№ слайда 1 Применение команды ветвления при создании проекта в Visual Basic
Описание слайда:

Применение команды ветвления при создании проекта в Visual Basic

№ слайда 2 Эпиграф к уроку:
Описание слайда:

Эпиграф к уроку:

№ слайда 3 І этап. Повторение ІІ этап. ПрименениеІІІ этап. ВосприятиеІV этап. Закрепление
Описание слайда:

І этап. Повторение ІІ этап. ПрименениеІІІ этап. ВосприятиеІV этап. Закрепление

№ слайда 4 І этап. Повторение
Описание слайда:

І этап. Повторение

№ слайда 5 ІІ этап. ПрименениеИспользование команды ветвления при решении КВУЕСЛИ условие Т
Описание слайда:

ІІ этап. ПрименениеИспользование команды ветвления при решении КВУЕСЛИ условие ТО команда 1 ИНАЧЕ команда 2

№ слайда 6 ax2+bx+c=0, гдеa,b – коэффициентыC - свободный член,X1/2 – корни уравненияИсполь
Описание слайда:

ax2+bx+c=0, гдеa,b – коэффициентыC - свободный член,X1/2 – корни уравненияИспользуя коэффициенты, находится дискриминант:D=b2- 4*a*c

№ слайда 7 ЕСЛИ D
Описание слайда:

ЕСЛИ D

№ слайда 8 IІІ этап. Восприятие
Описание слайда:

IІІ этап. Восприятие

№ слайда 9 Option ExplicitDim A As Double : Dim B As Double : Dim C As DoubleDim D As Doubl
Описание слайда:

Option ExplicitDim A As Double : Dim B As Double : Dim C As DoubleDim D As Double: Dim X1 As Double: Dim X2 As Double

№ слайда 10 Private Sub Command1_Click()A = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.
Описание слайда:

Private Sub Command1_Click()A = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)D = B ^ 2 - 4 * A * CText4.Text = Str(D)If D < 0 Then Picture1.Print "Корней нет" Else If D = 0 Then Picture2.Print "1 корень "; "X1="; Sqr(D) + B / 2 * A Else Picture3.Print "2 корня "; "X1="; (Sqr(D) + B) / 2 * A; "X2="; (Sqr(D) - B) / 2 * A;End Sub

№ слайда 11 Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.T
Описание слайда:

Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Picture1.ClsPicture2.ClsPicture3.ClsEnd Sub

№ слайда 12 3X2+5X+4=02) 4X2+12X-7=03) 2X2-4X+2=0
Описание слайда:

3X2+5X+4=02) 4X2+12X-7=03) 2X2-4X+2=0

№ слайда 13 Закрепление
Описание слайда:

Закрепление

№ слайда 14 Найдите базовые элементы управления и назовите их
Описание слайда:

Найдите базовые элементы управления и назовите их

№ слайда 15 Найдите служебные слова команды ветвления
Описание слайда:

Найдите служебные слова команды ветвления

№ слайда 16 Укажите раздел описания переменных
Описание слайда:

Укажите раздел описания переменных

№ слайда 17 Практическое задание I. Разработайте программу "Угадайка", которая будет загадыв
Описание слайда:

Практическое задание I. Разработайте программу "Угадайка", которая будет загадывать число, а пользователь пытаться его угадать: Создайте форму:Дважды щелкните по кнопке Ответ и в процедуре обработки события создайте код, который сравнивает введенное пользователем число в Text1.text с любым фиксированным числом, например, 3. Если числа равны, то в Text2.text должно быть выведено "Угадал", в противном случае "Не угадал".

№ слайда 18 3. Запустите программу, введите исходные данные, щелкните по кнопке Ответ, проте
Описание слайда:

3. Запустите программу, введите исходные данные, щелкните по кнопке Ответ, протестируйте программу, остановите, исправьте при необходимости ошибки в программе.Пример внешнего вида формы:

№ слайда 19 Спасибоза внимание!
Описание слайда:

Спасибоза внимание!

Скачать эту презентацию

Презентации по предмету
Презентации из категории
Лучшее на fresher.ru