Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







Private Sub CommandButton1_Click()





y = Val(TextBox1.Text)

a = Val(TextBox2.Text)

z = Exp(Sin(y) ^ 3) + a ^ (1 / 3) * Log(Atn(a * y))

TextBox3.Text = Str(z)

End Sub

Возвращаемся к диалогу дважды щелкнув в окне проекта по названию диалога User Form1. Щёлкаем по кнопке Очистить и набираем следующее:

Private Sub CommandButton2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

End Sub

Аналогично для кнопки Выход.

Private Sub CommandButton3_Click()

End

End Sub

6. Протестируйте программы, нажав на кнопку Запуск.

7. Для организации связи диалога с программой, вставьте новый модуль (Insert - Module) и введите следующие процедуры[2]:

Sub Auto_Open()

WorkSheets(“Линейные_процессы”).Activate

End Sub

Sub Linein()

UserForm1.Show

End Sub

8. Перейдите в лист Линейные_процессы нарисуйте кнопку Пример1, при помощи панели инструментов «Формы».

9. Щелкните правой кнопкой мыши по кнопке Пример1, выберите в контекстном меню команду Назначить макрос. В списке появившегося диалогового окна выберите название процедуры Linein.

 

Разветвляющиеся вычислительные процессы

Разветвляющиеся вычислительные процессы – это такие процессы, в которых решение ищется в зависимости от выполнения определённых условий.

Для организации ветвления в программе используются условные операторы If … Then … Else ... Условные операторы проверяют некоторое логическое условие и в зависимости от результата проверки выполняют те или иные операторы.

Линейная форма записи условного оператора:

IfУсловиеThenОператор1ElseОператор2

Блочная форма записи условного оператора:

IfУсловиеThen

Блок_Операторов1

Else

Блок_Операторов2

EndIf

Пример 1:Найти у

где a=-57, b , z=81,2*10-1

Решение в таблице Excel:

1. Переименовать Лист2 в Разветвляющиеся,

2. В ячейки А1:А5 ввести комментарии к Примеру,



3. Ячейку В2 переименовать в aa, В3 – в b, B4 – в z,

4. Ввести в В2 число -57, в В3 формулу =-3*Корень(2), в B4 число 8,12.

5. Ввести в ячейку В3 формулу, используя для вставки функций Мастер функций, категория – логическая, функция – ЕСЛИ.

6. По завершении ввода формулы нажать Enter.

Решение в редакторе Excel Visual Basic

(Запись макроса в виде отдельной процедуры):

1. Перейти в редактор Visual Basic (Сервис – Макрос - редактор Visual Basic),

2. Откройте Модуль 2 (Вставка – Модуль или Insert – Module)

3. Наберите программу.

 

Sub Разветвляющиеся1()

With Worksheets("Разветвляющиеся")

a = .Range("aa").Value 'Ввод данных из таблицы

b = .Range("b").Value 'Ввод данных из таблицы

z = .Range("z").Value 'Ввод данных из таблицы

End With

If a + z ^ 2 >= b Then

y = (z ^ 2 - a) * Cos(z) - b * 2 ^ (1 / 2)

Else

y = b ^ (-2) - Sqr(Abs(Tan(2 * z - 1)))

End If

With Worksheets("Разветвляющиеся")

.Range("C5").Value = y 'Вывод результата в таблицу

End With

End Sub

 

'Ответ: y=-26.3185

 

Пример 2:

Составить программу для вычисления значения функции на языке Visual Basic

Ввод данных, вывод результата организовать в диалоговых окнах.

 

Решение в редакторе Excel Visual Basic

(Запись макроса в виде отдельной процедуры):

4. Перейти в редактор Visual Basic (Сервис – Макрос - редактор Visual Basic),

5. Откройте Модуль 2

6. Наберите программу.

 

Sub Разветвляющиеся2()

a = Val(InputBox("Введите a", "Ввод a")) 'Ввод данных в диалоговом окне

x = Val(InputBox("Введите x", "Ввод x")) 'Ввод данных в диалоговом окне

If x < 3 And a >= x Then

y = a + x * Log(x ^ 2 + 2 * a)

Else

If x > 2 And a <= 4 Then

y = -Atn(1 / a)

Else

y = Sqr(Abs(a - x)) + a * Log(3 * x)

End If

End If

MsgBox "y=" & y

End Sub

 

'Ответ: при a=2, x=1,

'y = 3.6094

 

Пример 3:

Найти значения функции Z:

Решение в таблице Excel:

Ячейки В2, В3 переименовать в х, у соответственно и ввести числа.

В ячейку В4 ввести формулу:

 

Пример 4:

Найти значения функции y:

Решение в таблице Excel:

Ячейку В7 переименовать в хх и ввести число.

В ячейку В8 ввести формулу:

Циклические вычисления

 

Циклическим называют процесс, в котором действия повторяются многократно по одному и тому же алгоритму с новым набором данных. Существует два вида цикла:

§ арифметический, то есть когда задано число повторений цикла (For … Next);

§ цикл по условию, когда число повторений (итераций) заранее неизвестно и выход из цикла зависит от выполнения некоторого условия (while…wend, do while … loop, , do until … loop, do … loop while, , do … loop until.)

Для организации повторных вычислений используется оператор For … Next, имеющий следующий синтаксис:

 

For счетчик=начало To конец [Step шаг]

[операторы]

[Exit For]

[операторы]

Next [счетчик]

Число выполнений этого оператора определяется параметрами начало и конец. Переменная счётчик при первом выполнении оператора Next увеличивается на величину, заданную параметром шаг. Если этот необязательный параметр опущен, значение счетчика увеличивается на единицу. Параметр шаг может быть любым действительным числом, как целым, так и дробным, как положительным, так и отрицательным. Необязательный параметр Exit For служит для экстренного прекращения цикла.


Табулирование

 

Табулирование (табуляция) – это составление таблицы значений аргумента и функции, или это вычисление значений функций в зависимости от аргумента (переменной), величина которой изменяется с постоянным шагом в заданном интервале значений.

 









Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2018 zdamsam.ru Размещенные материалы защищены законодательством РФ.