1. В редакторе Visual Basic создайте процедуру и назовите её Сумма

2. Введите код процедуры, как на рис. 40

Рис. 40 Код процедуры Сумма целых чисел

 

3. Убедитесь, что ответ равен 1275

Рис. 41 Окно с ответом

 

  

2. Цикл Do…Until

Повторяющиеся вычисления можно организовать, используя в программах, другой оператор Do…Until. Общий вид в алгоритме этого оператора следующий:

 

 

 

 

 

 

 

 

Нет Да

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Синтаксис оператора следующий:

 

Do P₁ P₂

.

.

P_n;

Loop Until <логическое выражение>

 

Цикл с оператором Do…Loop Until начинается с выполнения операторов внутри цикла, поэтому цикл, организованный с помощью этого оператора, в любом случае выполнится хотя бы один раз. Затем проверяется логическое выражение и если оно истинно, то осуществляется выход из цикла. Если же значение логического выражения ложно, то выполнение операторов P₁, P₂, P_N повторяется, а затем вновь проверяется логическое выражение.

Другая возможная запись цикла:

 

Do P₁ P₂

.

.

P_n;

Loop While <логическое выражение>

 

Как будет организованно выполнение операторов при решении задачи: Найти сумму целых чисел от 1 до 50 в цикле Do…Loop While? Переменная К всё так же необходима для подсчёта количества повторений цикла, а так как мы знаем, что слагаемых 50, то логично в качестве условия выхода из цикла задать условие к=50. Таким образом, накопление суммы в ячейке SUM будет происходить до тех пор, пока не будут просуммированы все 50 слагаемых.

 

1. В редакторе Visual Basic создайте процедуру и назовите её Сумма

2. Введите код процедуры, как на рис. 43

3. Убедитесь, что ответ равен 1275

Рис. 42 Окно с ответом

Рис. 43 Код процедуры Сумма целых чисел

 

 

Список литературы

 

 

1. 1.      А. Гарнаев Excel, VBA, Internet в экономике , BHV, 2000г.

2. 2.      А. Гарнаев Excel 2000 Разработка приложений, BHV, 2000г.

3. 3.      А. Гарнаев Visual Basic 6.0 Разработка приложений, BHV, 2001г.

4. 4.      Дёмин В. М. «Методы адаптивной автоматизации системы управления средним специальным учебным заведением – Казань, 2002 г.

5. 5.      Подлин Ш. Программирование для Microsoft Excel, Вильямс, -М. 2000г.

6. 6.      Попов В.Б. ТurboPascal для школьников. Версия 7.0 - М.: Финансы и статистика, 1996 г.

7. 7.      Программа развития Красногорского оптико-электронного колледжа на 2002-2003 учебный год. Цели, задачи коллектива, направления и методы их решения.

8. 8.      Программа информатизации колледжа на 2002-2005 годы.

9. 9.      Хальворсон М. Visual Basic для профессионалов, ЭКОМ, - М. 2000г.