Задание для самостоятельной работы 3.4 Работа с процедурами и функциями

Задание:

• создайте в модуле NewMacros шаблона Normal.dot новую функцию fMultiply(), которая бы:
  • принимала в качестве входящих параметров два числа;
  • перемножала их и возвращала полученное значение.
• создайте в модуле NewMacros шаблона Normal.dot новую процедуру AutoNew() со следующим кодом:

Public Sub AutoNew()

Dim nMult1 As Integer

Dim nMult2 As Integer

Dim nResult As Integer

nMult1 = CInt(InputBox("Введите первое число: "))

nMult2 = CInt(InputBox("Введите первое число: "))

nResult = 10

Selection.InsertAfter nResult

Selection.Collapse wdCollapseEnd

End Sub

• измените процедуру AutoNew() таким образом, чтобы она передавала значения переменных nMult1 и nMult2 функции fMultiply() и принимала от нее значение для переменной nResult (это значение должно использоваться вместо жестко определенного значения 10);
• создайте в Word новый документ и убедитесь, что созданные вами процедуры и функции работают правильно;
• чтобы созданная вами процедура AutoNew() не мешала дальнейшей работе, закомментируйте весь ее код.

Получить учебные материалы по этому курсу