Программирование циклических процессов

End Function

Case 7

Case 6

Case 5

Case 4

Case 3

Case 2

Case 1

оп = х1 + х2

оп = х1 - х2

оп = х1 * х2

оп = х1 / х2

оп = х1 \ х2

оп = х1 ^ х2

оп = х1 mod х2

End Select

Рисунок 3.15 - Результат выполнения пользовательской функции оп на Листе3 MS Excel

Для шестой операции (n = 6 – возведение в степень ) вместо х2 = 5 ввести 15 (20, 25) и просмотреть результат выполнения операции. Отменить выполненные действия.

Результат выполнения задания предъявить преподавателю.

Задание 13. Самостоятельно создать в файле Выбор на листе4 MS Excel модуль4 пользовательской функции для вычисления скидки покупателю у в зависимости от цены товара с и количества товара k (все буквы латинские):

Значение аргумента с задать по своему усмотрению. Результат выполнения задания предъявить преподавателю. Закрыть файл Выбор с сохранением.

'Цикл For...Next (Цикл1)

Public Function ЦИКЛ1(N)

For X = 1 To N ' Step 2

ЦИКЛ1 = ЦИКЛ1 + X

Nex t X

End Function

_______________________

'Цикл For...Next (Цикл2)

Public Function ЦИКЛ2(N)

For X = 1 To N Step 2

ЦИКЛ2 = ЦИКЛ2 + X

Next X

End Function

Рисунок 3.16 – Нахождение суммы N чисел с использованием цикла For...Next

'Цикл Do While...Loop (Слож3)

Public Function Слож3(N)

x = 1

Do While N <= 5

Слож3 = x

x = x + 1

N = N

Loop

End Function

'Цикл Do While...Loop (Слож4)

Public Function Слож4(N)

x = 1

Do

Слож4 = x

x = x + 1

N = N + 1

Loop While N <= 5

End Function

Рисунок 3.17– Нахождение суммы N чисел с использованием цикла Do While... Loop

Рисунок 1.1 – Интерфейс для создания проектов на языке VBA MS Exce l

.

Дата добавления: 2014-11-29