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

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


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

Задание для самостоятельной работы 3.2: Работа с операторами условного перехода

Подготовка:

  • Создайте новую книгу Excel и сохраните ее как C:\LabCondConstructions.xls.
  • Откройте редактор Visual Basic в Excel и создайте в этой книге новый стандартный модуль Module1.
  • Введите в этом стандартном модуле следующий код:

Public Sub IfThenSub()

Dim nResult As Integer

nResult = MsgBox("Нажмите кнопку", vbYesNo, "Окно сообщения")

ThisWorkbook.Worksheets(1).Range("A1").Value = "Вы нажали кнопку: " & nResult

ThisWorkbook.Worksheets(1).Range("A1").Columns.AutoFit

End Sub

  • Запустите этот код на выполнение и убедитесь, что он выполняется без ошибок. Этот код должен вставлять в ячейку A1 первого листа вашей книги текстовое значение вида "Вы нажали кнопку: 6" в зависимости от того, какая кнопка была нажата в окне сообщения.

Задание 1:

Измените код этой процедуры таким образом, чтобы вместо чисел в ячейку прописывалось строковое значение нажатой кнопки (например, "Вы нажали кнопку: Повтор"). Используйте при этом синтаксическую конструкцию IF…THEN…ELSE.

Задание 2:

Замените в вашей процедуре строку

nResult = MsgBox ("Нажмите кнопку", vbYesNo , "Окно сообщения")

на

nResult = MsgBox ("Нажмите кнопку", vbAbortRetryIgnore , "Окно сообщения")

Измените вашу процедуру таким образом, чтобы она вставляла в ячейку A1 значения "Отменить", "Повторить" или "Пропустить" в зависимости от того, какая кнопка была нажата в окне сообщения. Используйте при этом синтаксическую конструкцию Select…Case.

 

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

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


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

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