Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Private Sub CommandButton1_Click()
|
|
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: 434; Нарушение авторских прав