Файл: Сборник задач по VBA.pdf

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 16.07.2025

Просмотров: 491

Скачиваний: 0

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

9. Напишите процедуру на языке VBA, которая определяет делимость нацело целых чисел из отрезка [a,b] (a ≤ b) на целое число L . Делимость нацело

двух целых чисел оформить в виде функции (должна возвращать True – при делимости нацело, False – в противном случае).

Исходные данные:

Результат:

1. [2,9]

1. Таких целых чисел из отрезка нет

L = 13

2. [1,9]

2. Делятся:

L = 3

3 6 9

10. Напишите

процедуру

на языке VBA, которая вычисляет значение

функции

f (n, m) =

n!

. Вычисление факториала

оформить в виде

функции

m!+1

(Факториалом числа n

называется

произведение

целых чисел от

1

до n:

n!= 1× 2×K× n . Например, 0!= 1, 1!= 1,

4!= 24 ).

Исходные данные:

Результат:

n=2, m=1

f (2,1) =1,00000

11. Напишите процедуру на языке VBA, которая определяет сократимость

дроби

a

(b ¹ 0). Вычисление

наибольшего общего делителя чисел

a

и b

b

оформить в виде функции.

Исходные данные:

Результат:

1. a=2, b=0

1. Неверно введено b

2. a=3, b=5

2. Дробь 3/5 не сократима

3. a=6, b=8

3. Дробь 6/8 сократима на 2

12. Напишите

процедуру

на

языке VBA, которая вычисляет

значение

функции f (x,n,m) = e−nx + e−mx

. Вычисление e−kx

оформить в виде функции.

Исходные данные:

2

Результат:

x=1, n=2, m=3

f (1,2,3) = 0,0925611758

13. Составьте процедуру на языке VBA для вычисления радиуса описанной окружности треугольника построенного по трем точкам. Вычисление длины стороны оформить в виде функции.

Исходные данные:

Результат:

A(−4,0), B(0,0), C(0,−3)

Радиус треугольника равен 2,5000 (ед. кв.)

14. Напишите процедуру на языке VBA, которая определяет количество элементов одномерного массива A длиной 5 целых элементов, делящихся нацело на L, L +1, L + 2, L + 3, L + 4 (L > 0) . Вычисление количества элементов массива,

делящихся на k , оформить в виде функции.

Исходные данные:

Результат:

L =1

На 1 делятся 5 элемент(а, ов)

A = (9 2 7 4 5)

на 2 делятся 2 элемент(а, ов)

на 3 делятся 1 элемент(а, ов)

на 4 делятся 1 элемент(а, ов)

на 5 делятся 1 элемент(а, ов)

40

15. Напишите процедуру

на языке

VBA для

нахождения функции

f (x,a,b) = loga (x) + logb (x2 +1)

æ

ln x ö

ç x > 0, a > 0,

a ¹ 1; loga

x =

÷ . Вычисление

è

ln a ø

logn (m) оформить в виде функции.

Исходные данные:

Результат:

x=3, a=5, b=8

f (3,5,8) = 1,7899

16. Составьте процедуру на языке VBA для вычисления площади фигуры, представляющей собой «восьмерку» образованной двумя касающимися

окружностями с радиусами r

и r

. Вычисление площади окружности ( S = p× r2 )

1

2

оформить в виде функции.

Исходные данные:

Результат:

r1 = 2, r2 = 3

Площадь фигуры равна 40,8407 (ед. кв.)

17. Напишите процедуру на языке VBA, которая сравнивает столбцы квадратной матрицы 3-го порядка. Сравнение i-го и j-го столбца оформить в виде функции (должна возвращать True – при совпадении столбцов, False – в противном случае).

Исходные данные:

Результат:

æ

1

1,2

1 ö

ç

0

1

0

÷

Столбец 1

не совпадает со столбцом 2

A = ç

÷

ç

- 3

8

÷

è

- 3ø

Столбец 1

совпадает со столбцом 3

18. Напишите

Столбец 2

не совпадает со столбцом 3

процедуру

на языке VBA для нахождения функции

y(x) =

x2 + x3

. Вычисление xk

оформить в виде функции.

x4 + x6 + 5

Исходные данные:

Результат:

x=1

y(1) = 0,2857

19. Напишите процедуру на языке VBA для вычисления разности определителей 2-х квадратных матриц 2-го порядка. Вычисление определителя 2- го порядка оформить в виде функции.

Исходные данные:

Результат:

æ 1

0ö

Разность равна 2

A = ç

÷

ç

-1

3

÷

è

ø

æ1

5ö

B = ç

÷

ç

0

1

÷

è

ø

20. Напишите

процедуру

на языке VBA, которая вычисляет значение

функции f (x,n, m) = tg−n (x) + tg−m (x) . Вычисление

tg−k (x) оформить

в виде

функции.

Исходные данные:

Результат:

x=4, n=2, m=3

f (4,2,3) = 1,39

21. Напишите

процедуру

на языке VBA

для вычисления

суммы

41

Min( A) + Min(B) , где

Min( A) (Min(B)) − минимальный элемент в одномерной

матрице A (B)

длиной 5 элементов. Вычисление

минимального элемента из

матрицы оформить в виде функции.

Исходные данные:

Результат:

A = (1

− 7

3

0

1,1)

Сумма равна –9

B = (0

1,1

4

− 2

5)

22. Напишите

процедуру

на

языке

VBA

для нахождения

функции

y(x) =

cos x + 0,5

. Вычисление

cos x + k

оформить в виде функции.

cos x + 0,7

Исходные данные:

Результат:

x=2

y(2) = 0,2954103538

23. Напишите

процедуру

на

языке

VBA, которая

вычисляет

значение

функции f (n,m, k) =

(n + k)!

. Вычисление факториала

оформить

в виде

(m + k)!+k!

функции (Факториалом числа n называется произведение целых чисел от 1 до n: n!= 1× 2×K× n . Например, 0!= 1, 1!= 1, 4!= 24 ).

Исходные данные:

Результат:

n=2, m=1, k=1

f (2,1,1) = 2,0000

24. Составьте процедуру на языке VBA для вычисления площади треугольника, построенного по трем точкам. Вычисление длины стороны оформить в виде функции.

Исходные данные:

Результат:

A(0,0), B(−4,0), C(0,3)

Площадь треугольника равна 6,000 (ед. кв.)

25. Напишите процедуру на языке VBA, которая вычисляет значение функции y(x) = cos(sin 2x) + cos(sin 5x) . Вычисление cos(sin kx) оформить в виде

функции.

Исходные данные:

Результат:

x=1

y(1) =1,18870116131

26. Составьте процедуру на языке VBA для вычисления длины линии фигуры, представляющей собой «восьмерку» образованной двумя касающимися

окружностями с радиусами r1 и r2 . Вычисление площади окружности ( S = p× r2 ) оформить в виде функции.

Исходные данные:

Результат:

r1 = 2, r2 = 4

Длина линии равна 37,69911 (лин. ед.)

27. Напишите

процедуру

на

языке

VBA,

которая вычисляет значение

1

1

1

функции y(x) =

+

. Вычисление

оформить в виде функции.

x3

x5

+1

+1

xk

+1

Исходные данные:

Результат:

x=1

y(1) =1,00000

28. Напишите

процедуру

на

языке

VBA, которая вычисляет число

42

размещений An

=

n!

. Вычисление факториала оформить в виде функции

m

(n

− m)!

(Факториалом числа

n

называется

произведение целых чисел от 1 до n:

n!= 1× 2×K× n . Например, 0!= 1, 1!= 1,

3!= 6 ).

Исходные данные:

Результат:

n=5, m=2

Число размещений равно 20

29. Напишите процедуру на языке VBA, которая определяет количество четных элементов одномерного массива A длинной n целых элементов. Определение четности элемента оформить в виде функции.

Исходные данные:

Результат:

n = 5

Четных элементов 3

A = (− 8 2

7

6

5)

30. Напишите

процедуру на языке

VBA, которая вычисляет значение

функции y(x) =

1

+

1

. Вычисление

1

оформить в виде функции.

5x

+1

8x

+1

k × x

+1

Исходные данные:

Результат:

x=0

y(0) = 2,00

Часть 7. СОЗДАНИЕ ПОЛЬЗОВАТЕЛЬСКИХ ФОРМ

Начальные сведения по решению задач данной части содержатся в части 8 учебно-методического пособия «Программирование на VBA».

Приступая к решению задач этого раздела, следует вспомнить, что:

üкаждому объекту UserForm присущи определенные свойства, методы и события, которые он наследует от класса объектов UserForm;

üсобытийные процедуры следует записывать в модуль класса, который является частью UserForm;

üобъекты UserForm хранятся в коллекции UserForms проекта, они являются частью проекта;

üобъект UserForm может содержать различные элементы управления.

1. Создайте пользовательскую форму на языке VBA, выводящую значения

ìsin x, если x £ 0,

ï

Добавьте в форму кнопку Отмена для

функции y = í

2

ï

x, если x

> 0.

îcos

завершения работы с пользовательской формой.

Исходные данные:

Результат:

x = 0

0,000

2.Создайте пользовательскую форму на языке VBA, изменяющую фон цвета на зеленый, желтый и синий. Изменения фона реализовать с помощью переключателей. Добавьте в форму кнопку Отмена для завершения работы с пользовательской формой.

3.Создайте пользовательскую форму на языке VBA, выводящую значения

43

Смотрите также файлы