Текст программы. 'процедура ввода значений и оформление ввода данных

1. Изучить теоретический материал.

2. Загрузить Excel.

3. Выполнить задания, рассматриваемые в теоретическом разделе.

4. Создать форму для ввода, накопления данных и вычисления среднего арифметического положительных элементов ряда. Предусмотреть вывод формы с помощью комбинации клавиш и кнопки панели инструментов, сохраненной на листе Excel. Внешний вид формы для ввода данных и расчета среднего арифметического значения элементов ряда (Рисунок 6.1-6.2)).

5. Создать процедуры для обработки событий, вызываемых 3-мя кнопками: Сохранить значения, Вычислить результат, Выход.

6. Ввести программы.

7. Сохранить созданный проект. Сделать копию сохраненного файла.

8. Выполнить индивидуальное задание в соответствии с вариантом.

9. Продемонстрировать результат преподавателю

10. Завершить работу с Excel. Выйти из системы.

Рисунок 6.1.

Текст программы

Option Explicit                'директива обязательного объявления переменных

Dim i As Integer                     'задания типа переменных

Dim d, s, k, sr As Single      

 

'процедура ввода значений и оформление ввода данных

Private Sub CommandButton1_Click() 'начало процедуры для первой кнопки

Cells(1, 1) = "Исходные данные"     'присвоение ячейке А1 текстового значения

Columns("A:A").AutoFit                 'автоподбор ширины столбца А

Cells(1, 1).Select                            'выделение ячейки А1

Selection.Interior.ColorIndex = 2  'изменение цвета выделенной ячейки

Selection.Borders.LineStyle = xlDouble   'создание границ ячейки

With Selection.Font                        'задание форматов шрифта

.Size = 10                                    'размера

.FontStyle = "Bold"                     'начертания

.ColorIndex = 5                           'цвета

End With

i = 2                                                  'присвоить переменной i значение 2

Do While Cells(i, 1) <> ""               'оператор цикла Do...Loop, работающий

i = i + 1                                   'пока условие проверки содержимого ячейки

Loop                                                 'не равно пустому будет истинно

d = TextBox1                           'переменной d присваивается значение поля

                                                'TextBox1

Cells(i, 1) = d                            'ячейке 1 столбца i-й строки присваивается

                                                         'значение переменной d

With Cells(i, 1).Font                        'задание форматов шрифта

.Size = 10                                    'размера

.FontStyle = " Bold Italic"           'начертания

.ColorIndex = 1                           'цвета

End With

Cells(i, 1).HorizontalAlignment = xlCenter 'форматирование содержимого по ‘центру горизонтали

Cells(i, 1).Borders.LineStyle = xlDouble   'создание границ ячеек

TextBox1 = ""                                  'обнуление поля TextBox1

End Sub                                          'конец процедуры первой кнопки

 

'процедура ввода значений и оформление вывода результата

Private Sub CommandButton2_Click() 'начало процедуры второй кнопки

s = 0            'обнулить переменную s для вычисления суммы

k = 0            'обнулить переменную k для вычисления количества

i = 2             'присвоить переменной i значение 2

Do While Cells(i, 1) <> ""        'начало цикла

If Cells(i, 1) > 0 Then ' условие проверки члена ряда на положительность

   s = s + Cells(i, 1)                'вычислить сумму положительных чисел

   k = k + 1                              'вычислить количество положительных чисел

End If                                     'конец проверки условия

i = i + 1       'счетчик, изменяющий локальную переменную

Loop           'конец цикла

If k <> 0 Then

                      Label3 = Format(s / k, "####.00")

              Else

                       Label3 = "Положительных элементов нет"

End If

End Sub                                          'конец процедуры второй кнопки

 

'Процедура окончания работы

Private Sub CommandButton3_Click() 'начало процедуры третьей кнопки

End                                                  'оператор окончания работы

End Sub                                          'конец процедуры третьей кнопки формы

 

Рисунок 6.2

Варианты заданий.

№ вар.	Задание
1.	Найти максимальное значение элемента ряда его номер
2.	Найти минимальное значение элемента ряда и его номер
3.	Найти сумму отрицательных элементов ряда
4.	Найти сумму положительніх элементов ряда
5.	Найти произведение положительных элементов ряда
6.	Найти произведение отрицательных элементов ряда
7.	Найти длину вектора, представленного рядом чисел
8.	Найти сумму элементов ряда с нечетными номерами
9.	Найти сумму элементов ряда с четными номерами
10.	Найти максимальное и минимальное значения элемента ряда
11.	Найти произведение четных элементов ряда
12.	Найти произведение нечетных элементов ряда

 

Вопросы для самоподготовки

1. Перечислите рекомендации при написании программы в VBA.

2. Приведите синтаксис оператора присваивания.

3.  Для чего предназначен оператор присваивания?

4. Как можно присвоить переменной ссылку на объект?

5. Приведите синтаксис инструкции Set .

6. Для чего предназначен оператор With?

7.  Приведите пример конструкции, в которой используется оператор With.

8. Какие операторы управления Вам известны?

9. Приведите суть предназначения оператора условного перехода.

10. Дайте синтаксис возможных конструкций оператора условного перехода.

11. Для чего предназначен оператор выбора?

12. Приведите синтаксис оператора выбора.

13. Какой оператор используется для организации цикла с известным числом повторений?

14. Приведите синтаксис оператора цикла.

15. Как осуществить досрочный выход из цикла?

16. В чем различие между операторами For – Next и For – Each?

17. Приведите синтаксис оператора For – Each.

18. С помощью каких операторов можно организовать цикл с неизвестным числом повторений?

19.  Приведите синтаксис операторов цикл с неизвестным числом повторений.

20. В чем различие операторов цикла?

21.  Какие операторы используются для цикла с с предусловием и постусловием?

22. Для чего предназначен оператор безусловного перехода?

23.  Приведите синтаксис оператора безусловного перехода.

24. Как организовать процедуру ввода с помощью диалогового окна VBA?

25.  Приведите описание процедуры Inputbox.Какой параметр является обязательным при использовании этой процедуры?

26.  Как организовать процедуру вывода с помощью диалогового окна VBA?

27. риведите описание процедуры MsgBox.Какой параметр является обязательным при использовании этой процедуры?

ЛАБОРАТОРНАЯ РАБОТА 7

 

Массивы данных

Цель работы:

1. Освоить работу с массивами данных в VBA.

Массивы данных

Большинство задач, требующих выполнения операций над массивами, без программирования не решить. К ним относятся такие задачи, как транспонирование матрицы, нахождение ее следа, обращение матрицы, умножение матриц и многие подобные. Для решения некоторых из них, например, задачи транспонирования матрицы, имеются стандартные функции Excel.

⇐ Предыдущая6789101112131415Следующая ⇒

Поделиться: