Математические Функции языка Visual Basic
Дата добавления: 2013-12-24 ; просмотров: 30496 ; Нарушение авторских прав
Занятие 4. Вычисления на VB
End Sub
Private Sub Command1_Click()
End Sub
Next I
PRINT I;
Private Sub Command1_Click()
Next I
PRINT I,
Private Sub Command1_Click()
End Sub
Next I
PRINT I
Private Sub Command1_Click()
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Command1_Click()
R$ = “Вася”
На экране появляется слово: Вася
4. Оператор PRINT выводит на экран числа, слова, результаты математических действий. (Не выводит знак “). Если в операторе PRINT есть математическое выражение, то компьютер вычисляет его и результат печатает на экране.
PRINT 10 – 3 + 4
Чтобы выяснить действие знаков препинания в операторе PRINT рассмотрим работу программы:
а) Никаких знаков препинания нет
For I = 1 to 50
На экране мы видим столбик чисел:
Если в операторе PRINT нет знаков препинания, то информация выводится каждый раз с новой строки, в столбик.
б) Поставим после переменной I запятую, и вновь выполним программу.
For I = 1 to 50
На экране: 1 2 3 4 5 ….
Информация выводится в строке через 10 пробелов.
в) Поставим после переменной I точку с запятой, и вновь выполним программу.
For I = 1 to 50
На экране: 1 2 3 4 5 ….
Информация выводится через 1 пробел.
Ø Теперь мы можем прибавить два к двум и получить ответ:
? “2 + 2 = ”; 2 + 2
6. PRINT ставится в том месте программы, где требуется что-нибудь вывести на экран.
Для вычисления математических функций используются стандартные функции:
| Функция | Математика | Visual Basic |
| Абсолютная величина числа x | | x | | abs(x) |
| Квадратный корень из числа x |  | sqr(x) |
| Возведение в степень |  | 4^3 |
| Корень третьей степени из числа x |  | x^(1/3) |
| Корень нечетной степени из отрицательного числа |  | -x^(1/5) |
| Экспонента числа x |  | exp(x) |
| Натуральный логарифм числа x | ln x | log(x) |
| Десятичный логарифм числа x | lg x | log(x) / log(10) |
| Остаток от деления х на у | x mod y | |
| Округление числа x с точностью а | round (x, a) | |
| Целая часть числа x | int(x) | |
| Команда, включающая генератор случайного числа | Randomize | |
| Функция вырабатывающая случайное число в диапазоне от 0 до 1 | rnd | |
| Функция, переводящая текст, состоящий из цифр в число | val() | |
| Функция преобразующая число в текст | str$() | |
| Синус числа x (в радианах) | sin x | sin (x) |
| Косинус числа x (в радианах) | cos x | cos (x) |
| Тангенс числа x (в радианах) | tg x | tan (x) |
| Котангенс числа x (в радианах) | ctg x | 1/tan(x) |
| Арктангенс числа x (в радианах) | arctg x | atn (x) |
| Арксинус числа x (в радианах) | arcsin x | atn(x/sqr (-x*x+1)) |
| Арккосинус числа x (в радианах) | arccos x | -atn(x/sqr(-x*x+1))+1.5708 |
| Арккотангенс числа x (в радианах) | arcctg x | -atn(x)+1.5708 |
Перевод из градусов в радианы
Как вычислить sin 41°?
41° Мы должны перевести в радианы.
рад = град × 3.141592 / 180
Поэтому выражение sin 41° на языке Бейсик записывается: sin (41 * 3.141592 / 180)
Арифметические операторы в Visual Basic
Арифметические операторы используются для выполнения многих знакомых арифметических операций, использующих вычисление числовых значений, представленных литералами, переменными, другими выражениями, вызовами функций и свойств и констант. Кроме того, классификация с помощью арифметических операторов — это операторы сдвига в битах, которые действуют на уровне отдельных битов операндов и сдвигаются их битовые шаблоны влево или вправо.
Арифметические операции
можно добавить два значения в выражение вместе с оператором +или вычесть одно из другого с помощью оператора-operator (Visual Basic), как показано в следующем примере.
отрицание также использует оператор-Operator (Visual Basic), но только с одним операндом, как показано в следующем примере.
при умножении и разделении используются оператор * и оператор (Visual Basic)соответственно, как показано в следующем примере.
В возведение в степень используется оператор ^, как показано в следующем примере.
Арифметическая операция деления выполняется с помощью оператора MOD. Этот оператор возвращает остаток от деления делителя на делимое на целое число раз. Если и делитель, и делим являются целочисленными типами, возвращаемое значение является целочисленным. Если делитель и делимые являются типами с плавающей запятой, возвращаемое значение также будет плавающей запятой. Следующий пример демонстрирует эту ситуацию.
Попыток деления на ноль
Арифметические сдвиги не являются циклическими, то есть биты, сдвинутые за пределы результата, не переносятся на другой конец. Позиции битов, освобожденные сдвигом, устанавливаются следующим образом:
0 для арифметического сдвига влево
0 для арифметического сдвига вправо положительного числа
В следующем примере Integer значение сдвигается влево и вправо.
Арифметические сдвиги никогда не создают исключений переполнения.
Битовые операции
В дополнение к логическим операторам. Not Or And и Xor также выполняют побитовую арифметическую операцию при использовании числовых значений. Дополнительные сведения см. в разделе «битовые операции» в логических и побитовых операторах в Visual Basic.
Безопасность типов
VBA квадратный корень
Функция Excel VBA Square Root
В этой статье мы увидим схему Excel VBA Square Root. Каждый раз, работая в Excel, вы должны использовать функцию SQRT, которая дает квадратный корень любого целого числа в результате. Можно ли захватить квадратный корень из числа под VBA? Ну, ответ, конечно, да! Вы можете получить квадратный корень любого положительного числа через VBA, используя функцию VBA SQR. Эта функция является встроенной функцией VBA и может использоваться для любого положительного целого числа, чтобы получить ее квадратный корень. Ну, эта функция очень похожа на ту, которую мы используем в качестве функции электронной таблицы SQRT, а также принимаем тот же единственный аргумент «Число», который должен быть положительным. Мы также не можем получить квадратные корни мнимых чисел, и ввод отрицательных значений бесполезен, потому что нет никакого способа, которым можно получить отрицательное квадратное значение числа.
Синтаксис:
Синтаксис функции квадратного корня VBA довольно прост и похож на синтаксис функции SQRT электронной таблицы.
Как использовать функцию квадратного корня в Excel VBA?
Ниже приведены различные примеры использования функции квадратного корня в Excel VBA.
Выполните следующие действия, чтобы увидеть, как именно работает функция VBA SQR.
Шаг 1. Откройте вкладку « Разработчик » и щелкните значок Visual Basic (ALT + F11).
Шаг 2: Откройте модуль на вкладке меню «Вставка», как показано ниже.
Шаг 3: Определите новую подпроцедуру, которая может содержать макрос под вновь вставленным модулем.
Шаг 4: Используйте оператор присваивания, чтобы присвоить значение функции квадратного корня VBA переменной с именем « sqr_root », чтобы мы могли напечатать результат и посмотреть, работает ли он нормально.
Шаг 5: Используйте функцию MsgBox, чтобы мы могли напечатать результат в виде окна сообщения, которое появится, как только мы запустим код.
Шаг 6: Запустите этот код, нажав F5 или кнопку Run, расположенную на самой верхней панели.
Как только вы запустите этот код, вы должны увидеть вывод, как показано ниже.
Давайте углубимся в функцию SQR VBA и попытаемся выяснить несколько разных случаев.
Шаг 1: Определите подпроцедуру, которая может содержать ваши макросы.
Шаг 2: Нам нужно определить две новые переменные как целое число. Один для хранения значения, для которого мы хотим получить квадратный корень. Другая переменная будет для хранения результата квадратного корня после того, как мы применим функцию SQR.
Шаг 3: Присвойте значение как 87 переменной square_num, используя оператор присваивания (‘=’). Это число, для которого мы хотели получить значение квадратного корня.
Шаг 5: Используйте свойство MsgBox, чтобы показать значение квадратного корня в виде сообщения, которое появляется, как только вы запускаете код.
Шаг 6: Запустите этот код, нажав кнопку F5 или Run, расположенную на самой верхней ленте VBE.
Шаг 7: Смотрите вывод в окне сообщения, как показано ниже:
Однако это не фактическое значение квадратного корня для числа 87. Это значение квадратного корня для числа 81. Почему в мире VBA дает неправильный вывод для функции SQR?
Ну, с VBA все в порядке. Если что-то не так, это идеально подходит для нашего кода.
Поскольку мы определили переменные как целые числа, мы ограничиваем VBA, чтобы давать квадратные корни только тех чисел, которые являются целыми квадратными числами (например, 4, 9, 16, 25 и т. Д.). Если какое-либо число не является целым квадратом, функция SQR VBA вместо выдачи ошибки выдает значение квадратного корня для числа, близкого к текущему числу. Здесь 87 имеет 81 как ближайшее целое квадратное число. Таким образом, вы получаете вывод как 9.
Шаг 8: Давайте посмотрим, что происходит, когда мы настраиваем код, определяя переменную square_root как Double вместо Integer.
Шаг 9: Вы увидите, что система теперь может зафиксировать фактическое значение квадратного корня для числа 87.
То, что нужно запомнить
Рекомендуемые статьи
Стандартные функции Бейсика
Пока мы не забыли элементарную арифметику в Бейсике и вывод результатов (надеюсь, у вас это получается, причем в законченной, красивой форме с подсказками), необходимо ознакомиться со стандартными функциями языка Бейсик, чтобы в полной мере ощутить его вычислительные способности.
Бейсик позволяет работать со стандартными алгебраическими функциями, перечисленными в табл. 1.1.
Таблица 1.1. Стандартные алгебраические функции
Предупреждение
Функция sqr применима только к положительным аргументам.
Любознательный читатель сразу заметит, а где же милый его сердцу котангенс. Нет! Но ведь его просто получить из тангенса, не правда ли? Самые распространенные ошибки начинающих при написании стандартных функций (хотя вы все равно их допустите!):
Главное правило при использовании стандартных функций — брать аргумент в скобки:
Стандартные функции могут входить в арифметические выражения. В качестве аргументов также можно использовать арифметические выражения.
Примеры правильной записи стандартных функций представлены в табл. 1.2.
| Алгебра | Бейсик |
|---|---|
| sin3 + cos6 + tg4 | SIN(3) +COS(6) +TAN(4) |
| SQR(ABS(SIN(45)-COS(30)^2) |
Перед упражнениями расскажем про радианную меру углов, потому что не все, к сожалению, любят тригонометрию. Итак,
1 радиан= 180°/ п, отсюда 1 градус=п/180°, следовательно sin 30° в Бейсике будет представлено как sin (30*3.14/180), п==3,14. А вот теперь можно поупражняться. Запишите на Бейсике следующие выражения:
54. 
55. 
56. 
57. 
58. 
59. 
60. 
Представьте в общепринятой математической форме:
Извлечь корень 3. n степеней
Извлечь корень
Подскажите пожалуйста, как решить задачку: нужно найти \sqrt<\frac<1-i><1+i\sqrt<3>>>.
Извлечь кубический корень
Здравствуйте. Помогите составить программу. Извлечь кубический корень из суммы положительных.
Как извлечь корень
Всем привет. Столкнулся с такой проблемой, мне нужно извлечь корень из числа. То есть, я ввожу из.
round(число, количество знаков после зпт)
Добавлено через 2 минуты
Функция Format
Форматирование числовых и денежных величин
Стандартные форматы числовых величин
Пользовательские форматы числовых величин
General Number
Отображает число без разделителей групп разрядов
A=123456.789
Print Format(A,»General Number») ‘ возвратит 123456.789
Currency
Отображает значение с разделителями групп разрядов (если требуется). В настройке США отображает две цифры справа от десятичного разделителя. Обозначение денежной единицы и ее положение относительно числа определяется текущей национальной настройкой
A=123456.789
Print Format(A,»Currency») ‘ возвратит 123 456,79р.
Fixed
Отображает по крайней мере одну цифру слева и две цифры справа от десятичного разделителя
A=123456.789
Print Format(A,»Fixed») ‘ возвратит 123456,79
Standard
Отображает по крайней мере одну цифру слева и две цифры справа от десятичного разделителя, а также разделители групп разрядов
A=123456.789
Print Format(A,»Standard») ‘ возвратит 123 456,79
Percent
Отображает число, умноженное на 100, со знаком процентов (%), добавленным справа. Всегда отображает две цифры справа от десятичного разделителя
A=1.23
Print Format(A,»Percent») ‘ возвратит 123,00%
Scientific
Использует стандартную экспоненциальную нотацию
A=123456.789
Print Format(A,»Scientific») ‘ возвратит 1,23E+00
Примечание:При форматировании стандартными форматами числа округляются,а не усекаются по стандартным правилам округления
Пользовательские форматы числовых величин
Пользовательский формат чисел(аргумент format) может содержать до четырех разделов,возможно пустых, разделенных точками с запятой(
.Каждый раздел предназначен для раздельного форматирования следующих категорий чисел:
Число разделов
1
Данный формат применяется ко всем значениям
2
Первый элемент применяется к положительным и нулевым значениям, а второй к отрицательным значениям
3
Первый элемент применяется к положительным значениям, второй к отрицательным значениям, а третий к нулевым значениям
4
Первый элемент применяется к положительным значениям, второй к отрицательным значениям, третий к нулевым значениям, а четвертый к значениям Null
Пример
‘ Пример формата,содержащего два раздела-первый применяется к положительным и нулевым значениям, а второй к отрицательным значениям
«$#,##0;($#,##0)»
‘ Если формат содержит символы точки с запятой, между которыми ничего нет, значения, соответствующие пропущенному элементу, изображаются согласно формату положительных значений. Например, следующий формат отображает положительные и отрицательные значения согласно первому элементу, а вместо нулевых значений отображает строку «Нуль»
«$#,##0;;\Н\у\л\ь»