Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Office для пользователей
 
 

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


<-- Назад Посмотреть решение -->

Задание для самостоятельной работы 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() не мешала дальнейшей работе, закомментируйте весь ее код.

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Посмотреть решение -->

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


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru