Задание 3.2
Разработайте форму для решения уравнения ax2 + bx + c =0. Значения a, b, c вводятся. Предусмотрите возможность ввода пользователем любых значений параметров. Например, при a=0, b=0, c=0 x–любое число. Для ввода значений используйте элементы Поле.
Ниже приведен текст основной процедуры:
Private Sub CommandButton1_Click()
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
If a = 0 Then
If (b = 0) And (c = 0) Then
Label5.Caption = "X - любое число"
Label6.Caption = ""
ElseIf (b = 0) And (c <> 0) Then
Label5.Caption = "Нет решения"
Label6.Caption = ""
Else
Label5.Caption = "X = " & Format(-c / b, "Fixed")
Label6.Caption = ""
End If
Else
d = b * b - 4 * a * c
If d >= 0 Then
Label5.Caption = "X1 = " & Format((-b + Sqr(d)) / (2 * a), "Fixed")
Label6.Caption = "X2 = " & Format((-b - Sqr(d)) / (2 * a), "Fixed")
Else
Label5.Caption = "Нет действительных корней"
Label6.Caption = ""
End If
End If
Функция Sqr используется для вычисления квадратного корня числа. Символ & – операция сцепления строк (операция конкатенации). Она позволяет формировать строку из “кусочков”.
З адание 3.3
Создайте приведенную форму. На этой форме помещены следующие элементы: рисунок, счетчик, поле, полоса прокрутки и кнопка. Полоса прокрутки и счетчик используются для изменения ширины рисунка от 50 до 100. В текстовом поле выводится текущее значение ширины рисунка.
У элемента Рисунок установите значение свойства PictureSizeMode=2, тогда рисунок будет занимать всю поверхность объекта. Для счетчика и полосы прокрутки установите следующие значения свойств: Min=50, Max=100, LargeChange=10, SmallChange =10. Обработайте события Change и Scroll, текст процедур:
Private Sub ScrollBar1_Change()
TextBox1.Text = ScrollBar1.Value
Image1.Width = ScrollBar1.Value
SpinButton1.Value = ScrollBar1.Value
End Sub
Private Sub ScrollBar1_Scroll()
TextBox1.Text = ScrollBar1.Value
Image1.Width = ScrollBar1.Value
SpinButton1.Value = ScrollBar1.Value
End Sub
Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
Image1.Width = SpinButton1.Value
ScrollBar1.Value = SpinButton1.Value
End Sub
Private Sub UserForm_Initialize()
SpinButton1.Value = SpinButton1.Min
TextBox1.Text = SpinButton1.Value
Image1.Width = SpinButton1.Value
ScrollBar1.Value = SpinButton1.Value
End Sub
4.Реализация циклических алгоритмов Программирование циклов Цикл For…Next
Этот цикл применяют в тех случаях, когда заранее известно, сколько раз нужно выполнить инструкции. Синтаксис выглядит следующим образом:
For СчетчикЦикла = Старт То Стоп [Step Шаг]
Инструкции
Next [СчетчикЦикла]
В качестве счетчика цикла используется переменная. Числовые значения Старт и Стоп задают интервал, в котором будет изменяться переменная цикла. Необязательный параметр Шаг задает приращение счетчика цикла на каждом проходе, по умолчанию оно равно 1. Оператор Next изменяет счетчик цикла. В случае вложенных циклов рекомендуется указывать, к какому из них относится оператор Next, это достигается добавлением имени переменной цикла.Для досрочного выхода из цикла используется инструкция Exit For.