Задача 1. Программа составляется c использованием оператора IF-THEN-ELSE в виде макроса
Выводим значение y. Выводим значение y. Sub ПоказатьФорму (). UserForm. Label_y.Caption = «». UserForm. Label_x.Caption = «». Выводимые данные. Выводимые данные. Исходные данные. Исходные данные. Dim a, b, x, y As Double. Dim a, b, x, y As Double. Показ формы. Вычисляем х. Вычисляем х. UserForm. Show (Modal). Вычисляем y. Вычисляем y. On Error GoTo Error. On Error GoTo Error. Y = Sqr (b + x ^ 2… Читать ещё >
Задача 1. Программа составляется c использованием оператора IF-THEN-ELSE в виде макроса (реферат, курсовая, диплом, контрольная)
Программа составляется c использованием оператора IF-THEN-ELSE в виде макроса.
Таблица 2.1 Исходные данные для задачи 1.
№ п/п. | Модель. | Исходные данные. | Выводимые данные. | |
Программа решения задачи на языке программирования Visual Basic for Application имеет следующий вид:
Sub Raschet ().
Dim a, b, x, y As Double.
On Error GoTo Error.
'Присваиваем значения переменным a, b.
a = Cells (2, 3).
b = Cells (3, 3).
'Вычисляем х.
If a * b <= 3 Then.
x = (a * b) + 3.
Else.
x = (a / b) — 3.
End If.
'Выводим значение х.
Cells (5, 3) = x.
'Вычисляем y.
If x < 1 Then.
y = Sqr (b + x ^ 2).
Else.
If x > 5 Then.
y = b * x ^ 3.
Else.
y = a * b * x.
End If.
End If.
'Выводим значение y.
Cells (6, 3) = y.
Exit Sub.
Error:
MsgBox («Ошибка! a и b — числа»).
End Sub.
Рис. 2.1 Результаты работы программы
Задача 2. Программа программируется с использованием UserForm и элементов управления Label, TextBox, OptionButton
Программа программируется с использованием UserForm и элементов управления Label, TextBox, OptionButton и др.
Таблица 2.2 Исходные данные для задачи 2.
№ п/п. | Модель. | Исходные данные. | Выводимые данные. | |
Программа решения задачи на языке программирования Visual Basic for Application имеет следующий вид:
Private Sub CommandButton1_Click ().
Dim a, b, x, y As Double.
On Error GoTo Error.
'Присваиваем значения переменным a, b.
a = Val (TextBox_a).
b = Val (TextBox_b).
'Вычисляем х.
If a * b <= 3 Then.
x = (a * b) + 3.
Else.
x = (a / b) — 3.
End If.
'Выводим значение х.
Label_x = Str (x).
'Вычисляем y.
If x < 1 Then.
y = Sqr (b + x ^ 2).
Else.
If x > 5 Then.
y = b * x ^ 3.
Else.
y = a * b * x.
End If.
End If.
'Выводим значение y.
Label_y = Str (y).
Exit Sub.
Error:
MsgBox («Ошибка! a и b — числа»).
End Sub.
Для показа формы нужна программа:
Sub ПоказатьФорму ().
'Очищаем строки вывода значений x и y.
UserForm.Label_x.Caption = «» .
UserForm.Label_y.Caption = «» .
'показ формы.
UserForm.Show (Modal).
End Sub.
Рис. 2.2 Результаты работы программы