Private Sub CommandButton1_Click(). Worksheets(Условный оператор).Range(c2) = Вычисления с разветвлением ‘вносит текст в ячейку «С2» листа «Условный

Worksheets("Условный оператор").Range("c2") = "Вычисления с разветвлением" ‘ вносит текст в ячейку «С2» листа «Условный оператор»

Dim x As Single, s As Single, v As Single, j As Single

x=Val(InputBox(“Введите значение х”))

s=Val(InputBox(“Введите значение s”))

j = Worksheets("Условный оператор ").Range("i19")

If x * j < 2 * s Then v = Cos(x * j) ^ 2 Else If x * j >= 2 * s And _

x * j <= 3 * s Then v = 2 * Tan(j * x) Else v = 5 - Exp(x / 2)

MsgBox ("Значение v=" & Format(v, "##.####"))

End Sub

Для проверки результата вычисления надо ввести в ячейку D23 формулу:

=ЕСЛИ(D19*I19<2*F19;COS(I19*D19)*COS(I19*D19);ЕСЛИ(И(D19*I19>=2*F19;D19*I19<=3*F19);2*TAN(I19*D19);5-EXP(D19:D19/2)))

Результат вычислений, полученный с помощью формул Excel и процедуры VBA должен совпасть.

Содержание заданий

1. Выполнить приведенные выше примеры программ с разветвлением.

2. Составить программу по условиям, приведенным в табл. 6.1.

Таблица 6.1

№	Формула для вычислений	Исходные данные

Date: 2015-08-24; view: 322; Нарушение авторских прав