7.1 Пример оформления отчета о программировании линейного процесса




4.2. Присвоение каждому элементу управления индивидуальных свойств.
Элемент |
Свойства |
Значения |
Комментарии |
|---|---|---|---|
UserForm1 |
BackColor Caption |
Светло-желтый Функция у |
Цвет формы Заголовок формы |
CommandButton1 |
BackColor Caption Font |
Ярко-желтый Вычислить значение y Times New Roman, полужирный, 24 |
Цвет кнопки Название Формат шрифта |
Label1 |
TextAlign BackStyle Caption ForeColor Font |
2-fm TextAlign 1-fm BackStyle Значение а Синий Times New Roman, полужирный, 24 |
Выравнивание текста Прозрачность надписи Название Цвет шрифта Формат шрифта |
Label2 |
TextAlign BackStyle Caption ForeColor Font |
2-fm TextAlign 1-fm BackStyle Значение b Синий Times New Roman, полужирный, 24 |
Выравнивание текста Прозрачность надписи Название Цвет шрифта Формат шрифта |
Label3 |
TextAlign BackStyle Caption ForeColor Font |
2-fm TextAlign 1-fm BackStyle Значение y Синий Times New Roman, полужирный, 24 |
Выравнивание текста Прозрачность надписи Название Цвет шрифта Формат шрифта |
TextBox1 TextBox2 TextBox3 |
TextAlign Caption ForeColor Font |
2-fm TextAlign Белый Черный Times New Roman, полужирный, 36 |
Выравнивание текста Цвет фона Цвет шрифта Формат шрифта |
4.3. Создание исходного кода в соответствии с алгоритмом.
Private Sub CommandButton1_Click()' Запускается программа Sub командной кнопкой 1
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim y As Single
' Задание типов переменных a, b, c, y, где a, b, c - целые числа, y - дробное число
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
' Ввод значений переменных a, b, c, y через текстовые поля 1, 2, 3
y = Sqr((a ^ 2 + (5 * b)) / (7 * b + c))
' Вычисление значений y
TextBox4.Text = CStr(y)
' Вывести значение y на экран в текстовое поле 4
End Sub
' Конец программы Sub
Для этого нужно нажать кнопку Run. Если в программе есть ошибки, то откроется исходный код, и курсор будет стоять в той строке, где она допущена (выделяется желтым цветом). Если ошибок нет, то на форме исчезнут точки.
Задания