Запись некоторых математических функций на языке VBA

Для вычисления Log числа х по основанию n, следует разделить натуральный логарифм числа х на натуральный логарифм числа n:

Арифметические выражения. Это выражения, состоящие из констант, переменных, встроенных функций, соединенных знаками арифметических операций.

Арифметические операции задаются следующими символами: + (сложение), – (вычитание), * (умножение), / (деление), ^ (возведение в степень), \ – ( целая часть от деления), Mod – (остаток от деления), а сами выражения записываются в одну строку.

Например, запись выражения:

на языке VBA будет выглядеть следующим образом:

Sin(3*x)+(Log(x-1)+Tan(x))/(x^3+Exp(x+3))^(1/4)

При вычислении арифметических выражений соблюдается следующий приоритет выполнения операций, сначала вычисляются встроенные функции; затем возведение в степень; умножение и деление; целая часть от деления; остаток от деления; сложение и вычитание. Изменить приоритет можно с помощью скобок.

Для работы со строковыми переменными используется оператор конкатенации (слияния) строк: &, либо +.

Пример процедуры, запрашивающей имя (например, Иван) и выводящей в окно сообщений текст: «Сообщение пользователю Иван».

Private Sub CommandButton4_Click()

nUserName = InputBox("Введите ваше имя?")

MsgBox "Сообщение пользователю" & " " & nUserName

End Sub

Оператор присваивания. Этот оператор имеет следующий синтаксис: <имя переменной> = <арифметическое выражение >

Пример записи оператора присваивания:

х = 5*a + log(a + 0.5)-a^3

Здесь символ «=» − это не знак равенства, а знак присваивания.

Ввод информации. Существует множество способов пользовательского ввода информации. Рассмотрим ввод с клавиатуры и ввод из ячеек рабочего листа Excel.

Ввод с клавиатуры осуществляется с помощью встроенной функции InputBox, которая при выполнении программы выводит на экран свое окно. Например, при выполнении строки программного кода: a = InputBox("Введите фамилию") на экране появится диалоговое окно, в котором будет записан текст, заключенный в кавычки, а в полосе ввода значения будет мигать курсор (рис. 4.2). Нужно ввести запрашиваемое в окне значение и нажать клавишу ввода или щелкнуть мышью по кнопке Ок.

Рис. 4.2 − Окно диалогового ввода функции InputBox

При этом возвращаемое функцией InputBox значение имеет тип String. Поэтому для ввода значения числовой переменной в программе необходимо дополнительно преобразовать получаемое значение к числовому типу встроенной функцией Val. Например, для ввода значения числа 7.35 в переменную b необходимо записать следующую строку программного кода:

b = Val(InputBox("Введите значение b"))

При вводе вещественного числа целая часть отделяется от дробной точкой. Число в степенной форме, например, 6,2×10^-8 записывается при вводе как 6.2Е-8

Ввод из ячейки рабочего листа Excel рассмотрим на примере. Если в ячейке A4 листа с именем Лист2 находится некоторое значение, то его можно ввести в переменную х, используя оператор присваивания:

x=Worksheets("Лист2").Range("A4") или

x=Worksheets("Лист2").Cells(4, 1)

где – Worksheets("Лист2") – рабочий лист Excel с именем «Лист2», Range("A4") – ячейка с именем А4, Cells(4, 1) – ячейка с номером строки – 4 и номером столбца – 1.

Вывод информации. Вывод результатов может осуществляться также различными способами, например, в окна сообщений или в ячейки рабочего листа Excel.

Вывод значений в окно сообщений можно осуществить с помощью функции MsgBox. Например, оператор MsgBox y выводит в окно сообщений значение переменной y.

С помощью этой функции можно выводить и произвольные текстовые сообщения на экран, при этом выводимое сообщение должно быть заключено в кавычки. Например, в результате выполнения строки MsgBox("Деление на нуль") на экране появится окно c текстом: Деление на нуль.

Число, выводимое в окно можно форматировать (указывать количество знаков до и после запятой). Для этого используется функция Format(x, "##.##"), где x переменная, ##.## – формат числа (указывает количество знаков до и после запятой).

Для вывода нескольких значений в одно текстовое окно используется операция конкатенации &, например:

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

Вывод результатов в ячейки листа Excel рассмотрим на примере вывода значения переменной х в ячейку A4:

Worksheets("Лист1").Range("A4") = x или

Worksheets("Лист1").Cells(4, 1) = x

Линейные программы

В линейных программах выполняются расчеты по формулам и другие действия, не требующие разветвления процессов и их повторов.

Пример. Пусть требуется для x=1,5 a=3,75 m=0.5 10^-4 вычислить значения переменных w и z по формулам:

Оформим Лист2 согласно образцу на рис 4.3:

Рис. 4.3 − Образец оформления линейной программы на листе Excel

Для кнопки «Вычислить» напишем следующую процедуру:

ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между...

Что способствует осуществлению желаний? Стопроцентная, непоколебимая уверенность в своем...

Система охраняемых территорий в США Изучение особо охраняемых природных территорий(ООПТ) США представляет особый интерес по многим причинам...

ЧТО ПРОИСХОДИТ ВО ВЗРОСЛОЙ ЖИЗНИ? Если вы все еще «неправильно» связаны с матерью, вы избегаете отделения и независимого взрослого существования...

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