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

этап. Закрепление

условие ТО команда 1 ИНАЧЕ команда 2
IF условие THEN

команда 1 ELSE команда 2

– корни уравнения


Используя коэффициенты, находится дискриминант:

D=b2- 4*a*c

ТО один корень
ИНАЧЕ два корня

3
CommandBatton – 2

B As Double : Dim C As Double
Dim D

As Double: Dim X1 As Double: Dim X2 As Double

Описание пременных

Val(Text3.Text)
D = B ^ 2 - 4 * A

* C
Text4.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

Программный код

Код исполняемой командной кнопки

""
Text4.Text = ""
Picture1.Cls
Picture2.Cls
Picture3.Cls
End Sub
Программный код
Код командной кнопки “Сброс”

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

загадывать число, а пользователь пытаться его угадать:
Создайте форму:
Дважды

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

V. Домашнее задание:

кнопке Ответ, протестируйте программу, остановите, исправьте при необходимости ошибки

в программе.
Пример внешнего вида формы: