Ответы на вопросы по VBA. 1 Опишите модификатор Public. Для чего он, с какими элементами языка vba. Приведите 3 примера и в каждом укажите, что означает в примере использование Public

• Название: 1 Опишите модификатор Public. Для чего он, с какими элементами языка vba. Приведите 3 примера и в каждом укажите, что означает в примере использование Public
• Анкор: Ответы на вопросы по VBA
• Дата: 28.01.2021
• Размер: 245.69 Kb.
• Имя файла: PROGAAAAAAA_2 (2).docx
• Тип: Документы; #172271
• страница: 5 из 7

56. Запишите в общем виде форму вызова функций, которые возвращают угол, косинус которого равен указанному числу и угол, синус которого равен указанному числу. Приведите 3 примера.

Общий вид: Math.Acos(Double). Double - число, представляющее косинус, где значение параметра double должно быть больше или равно -1, но меньше или равно 1.

Общий вид: Math.Asin(Double). Double - число, представляющее синус, где значение параметра double должно быть больше или равно -1, но меньше или равно 1.

Sub Main() Console.WriteLine(Math.Acos(0)*180/ Math.PI) ' вывод: 90 End Sub	Sub Main() Console.WriteLine(Math.Acos(1/2)*180/ Math.PI) ' вывод: 60 End Sub
Sub Main() Console.WriteLine(Math.Asin(1/2)*180/ Math.PI) ' вывод: 30 End Sub

Приведенные выше примеры используются только в Visual Basic .NET, их нет в VBA.

57. Запишите в общем виде форму вызова функции, которая возвращает указанное число, возведенное в указанную степень. Приведите 3 примера.

Result = WorksheetFunction.Power(ArgA, ArgB) (только в VBA Excel)

WorksheetFunction.Power – Функция возведения числа в степень

Result – возвращаемое значение, переменная типа Double

ArgA – основание: переменная, число или выражение типа Double

ArgB – показатель: переменная, число или выражение типа Double

При этом если одновременно ArgA окажется отрицательным и ArgB – нецелым программа выдаст ошибку исполнения

Пример 1:

Res = WorksheetFunction.Power(5, 2)
MsgBox (Res)

Вывод: 25

Пример 2:

ArgA = 4
ArgB = 0.5
Res = WorksheetFunction.Power(ArgA, ArgB)
MsgBox (Res)

Вывод: 2

Пример 3:

ArgA = -3
ArgB = 10
Res = WorksheetFunction.Power(ArgA + 1, ArgB + 1)

MsgBox (Res)Вывод: -2048

58. Запишите в общем виде форму вызова функции, которая возвращает натуральный (базовый e) логарифм указанного числа или логарифм указанного числа в заданном базовом массиве. Приведите 3 примера.

Result = Log(Arg), где:

Log – функция нахождение натурального логарифма числа

Arg – аргумент функции: переменная, число или выражение типа Double, которое должно быть строго больше нуля

Result – возвращаемое значение: переменная типа Double

Пример 1:

Res = Log(4) / Log(2)
MsgBox (Res)

Вывод: 2

Пример 2:

Arg = 8
Res = Log(Arg) / Log(2)
MsgBox (Res)

Вывод: 3

Пример 3:

Arg = 8
Res = Log(Arg + 8) / Log(2)
MsgBox (Res)

Вывод: 4

59. Запишите в общем виде форму вызова функции, которая возвращает большее из двух чисел. Приведите 3 примера.

Result = WorksheetFunction.Max(Arg1,Arg2,Arg3,…,Arg30) (только в VBA Excel)

WorksheetFunction.Max – Функция нахождения максимума среди аргументов

Result – возвращаемое значение, переменная типа Double

Arg1-Arg30 – от 0 до 30 аргументов функции; Аргументы могут быть числами, строками, массивами или ссылками, содержащими числа

Элементы массивов и ссылок, не являющиеся числами, игнорируются

При отсутствии чисел возвращается 0

Подаче аргументов типа Ошибка или Текст, не переводимый в число, приводит к ошибке исполнения

Пример 1:

Arg1 = Array("10", "20")
Res = WorksheetFunction.Max(Arg1)
MsgBox (Res)

Вывод: 0

Пример 2:

Arg1 = Array(10, 20 , "30")
Res = WorksheetFunction.Max(Arg1)
MsgBox (Res)

Вывод: 20

Пример 3:

Arg1 = Array(10, 20 , "30")
Arg2 = "25"
Res = WorksheetFunction.Max(Arg1, Arg2)
MsgBox (Res)

Вывод: 25

60. Запишите в общем виде форму вызова функции, которая возвращает значение e (основание натуральных логарифмов), возведенное в указанную степень. Приведите 3 примера.

Result = Exp(Arg), где:

Exp – функция нахождение Экспоненты числа

Arg – аргумент функции: переменная, число или выражение типа Double, которое должно быть меньше или приблизительно равно 709,782712893

Result – возвращаемое значение: переменная типа Double

Пример 1:

Res = Exp(Log(4))
MsgBox (Res)

Вывод: 2

Пример 2:

Arg = 8
Res = Exp(Arg)
MsgBox (Res)

Вывод: 2980.95798704173

Пример 3:

Res = Exp(2)
MsgBox (Res)

Вывод: 7.38905609893065

61. Запишите в общем виде форму вызова функции, которая возвращает значение типа Integer, указывающее знак числа. Приведите 3 примера.

Возвращает тип Variant (Integer), показывающий знак числа.

Общий вид: Sgn ( число )

Обязательный числовой аргумент может быть любым допустимым числовым выражением.

Если число — больше нуля, то переменная принимает значение 1

Если число — равно нулю, то переменная принимает значение 0

Если число — меньше нуля, то переменная принимает значение -1

1 пример.	2 пример.	3 пример.
Sub Math() Dim MyVar1, MyVar2, MyVar3, MySign MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0 MySign = Sgn(MyVar1) ' Возвращает 1 MySign = Sgn(MyVar2) ' Возвращает -1. MySign = Sgn(MyVar3) ' Возвращает 0. End Sub	Sub Math() Dim MyNumber1, MyNumber1, MyNumber1, MyRes MyNymber1 = 35: MyNymber2 = -55: MyNymber3 = -76: MyRes = Sgn(MyNymber1) ' Возвращает 1. MyRes = Sgn(MyNymber2) ' Возвращает -1. MyRes = Sgn(MyNymber3) ' Возвращает -1. End Sub	Sub Math() Dim MyNumber1, MyNumber1, MyNumber1, MyRes MyNymber1 = 5: MyNymber2 = 10: MyNymber3 = -9: MyRes = Sgn(MyNymber1) ' Возвращает 1. MyRes = Sgn(MyNymber2) ' Возвращает 1. MyRes = Sgn(MyNymber3) ' Возвращает -1. End Sub

62. Запишите в общем виде форму записи оператора вызова для пользовательской процедуры. Приведите 4 примера.

Общий вид: Call ИмяПроцедуры (Аргументы)

Call – необязательное ключевое слово;

ИмяПроцедуры – обязательный компонент, имя вызываемой подпрограммы;

Аргументы – необязательный компонент, список с разделителями-запятыми переменных, массивов или выражений, передаваемых процедуре.

1 пример.	2 пример.	3 пример.	4 пример.
' Вызов процедуры Sub. Call test2 Sub test2 MsgBox (Процедура вызвана) End Sub	Sub Test() MsgBox "Hello, World" End Sub ' Вызов процедуры Sub. Call Test()	' Вызов процедуры Sub. Call PrintToDebugWindow("Всем привет") ' Предыдущая инструкция передает управление следующей процедуре Sub. Sub PrintToDebugWindow(AnyString) Debug.Print AnyString ' Вывод в окно отладки. End Sub	Sub sample11() ' вызывающий макрос Dim usr As String usr = InputBox("Login") Call Hello(usr) ' использование Call End Sub ' процедура принимает один параметр, формирует строку сообщения, ' выводит сообщение в окно отладчика Sub Hello(usrname As String) Debug.Print "Hello, " & usrname & "!" End Sub

63. Запишите в общем виде форму вызова оператора для объявления пользовательской функции. Приведите 2 примера кода от заголовка до конца.

Общий вид: Sub Имя()

Sub - оператор для объявления процедуры

Имя – обязательный компонент, имя объявленной пользовательской функции;

1 пример.	2 пример.
Sub Сообщение () MsgBox (Выполняется пользовательская функция) End Sub	Public Sub Format() Dim F, A, B F = 1 A = 0 B = 4 If F = 1 And A = 0 And B = 4 Then MsgBox (Хороший формат) End If End Sub

64. Запишите в общем виде форму вызова оператора, выполняющего последовательность операторов для отдельного объекта или пользовательского типа. Приведите 3 примера.

Общий вид: With ИмяОбъекта [ Операторы ] End With

With - оператор, который позволяет выполнить последовательность операторов в отношении заданного объекта или пользовательского типа.

ИмяОбъекта - обязательный. Имя объекта или пользовательского типа.

Операторы - необязательно. Один или несколько операторов, которые выполняются в отношении объекта или пользовательского типа.

1 пример.	2 пример.	3 пример.
With MyLabel .Height = 2000 .Width = 2000 .Caption = "This is MyLabel" End With	With MyObject .Height = 100 .Caption = "Hello World" With .Font .Color = Red .Bold = True End With End With	Sub FormatRange() With Worksheets("Sheet1").Range("A1:C10") .Value = 30 .Font.Bold = True .Interior.Color = RGB(255, 255, 0) End With End Sub

65. Запишите в общем виде форму вызова оператора комментария с помощью ключевого слова. Как он должен отделяться от комментируемого кода. Приведите 2 примера.

Синтаксис: ‘Комментарий

Этот символ ( ' ) указывает компилятору Visual Basic игнорировать текст, следующий за ним, или Комментарий. Комментарии — это краткие заметки, внесенные в код, чтобы сделать чтение кода более легким.