- •Методические указания
- •Клавиатура pc
- •Запуск windows. Рабочий стол.
- •Просмотр свойств объектов
- •Создание ярлыков на рабочем столе
- •Панель задач
- •Лабораторная работа № 3
- •Лабораторная работа №5
- •Программа «проводник».
- •Откройте программу Проводник одним из описанных ниже способов:
- •Просмотрите содержимое папки, выбранной по своему усмотрению:
- •Просмотрите уровни иерархии выбранной папки:
- •Создайте на рабочем столе папку эксперимент и переместите в нее свою папку
- •Удалите созданные вами объекты с рабочего стола, а также с диска. Лабораторная работа № 6.
- •Лабораторная работа № 7
- •Лабораторная работа № 8
- •Приложение 3
- •Текстовый редактор word. Создание базы данных. Слияние документов.
- •1.Основные положения
- •1.1. Создание документа на бланке
- •1.2. Отбор данных из источника данных
- •Лабораторная работа №11
- •2.Порядок выполнения работы.
- •1.1. Использование встроенных функций.
- •1. Математические функции
- •2. Финансовые функции
- •2. Порядок выполнения работы
- •Лабораторная работа №13
- •Форматирование ряда данных .
- •Изменение типа диаграммы.
- •2. Порядок выполнения работы
- •Лабораторная работа № 14
- •Лабораторная работа № 15.
- •Решение уравнений средствами программы Excel
- •Решение задач оптимизации
- •Порядок выполнения работы.
- •Лабораторная работа № 16
- •2. Порядок выполнения работы
- •Варианты заданий
- •Vba. Элементы управления Цель работы – ознакомиться с интерфейсом vba, некоторыми его объектами, их свойствами и методами.
- •Vba. Линейная программа
- •Стандартные элементы управления панели элементов:
- •Задания для выполнения
- •Vba. Условный оператор
- •Краткие теоретические сведения:
- •Примеры использования оператора условия
- •Решение задачи.
- •Порядок выполнения работы:
- •Содержание отчета.
- •Контрольные вопросы
- •Задания к выполнению:
- •2 Часть. Программирование с использованием объектов excel.
- •Порядок выполнения работы:
- •Контрольные вопросы.
- •1.Какие объекты Еxcel вы знаете?
- •2.Как обратиться к ячейке на рабочем листе из программы?
- •3.Какая форма записи условного оператора была использована в вашей программе?
- •Vba. Оператор выбора.
- •Элемент Описание
- •Лабораторная работа№21
- •Vba. Цикл с параметром (For…Next)
- •Цикл For.
- •Тело цикла
- •Пример использования оператора:
- •Порядок выполнения работы:
- •2.Массивы.
- •Контрольные вопросы:
- •Лабораторная работа №22
- •Vba. Циклы с предусловием и постусловием.
- •Vba. Пользовательские функции.
- •Vba. Пользовательские процедуры.
- •Пример для выполнения
- •Решение
- •Задания к самостоятельному выполнению:
Контрольные вопросы:
-
Приведите форму записи оператора FOR?
-
Что такое счётчик цикла?
-
Что такое тело цикла?
Лабораторная работа №22
Vba. Циклы с предусловием и постусловием.
Составим алгоритм следующей задачи, используя различные циклы с предусловием и постусловием: вводите числа, пока их сумма не превысит введенного числа m.
1) Циклы с предусловием
a) Do While P б) Do While P
S S
[Exit Do] Wend
S
Тело цикла S будет выполняться в том случае, когда условие P имеет значение истина (цикл продолжается при истинном значении условия P). Если условие P ложно, то выполняются операторы, стоящие после цикла. В первом случае есть возможность досрочного выхода из цикла (это реализовано через Exit Do.
Ниже приведен пример решение указанной выше задачи, используя цикл с предусловием Do While …Loop.
Public Sub uuu()
Dim x As Integer
Dim m As Integer
Dim s As Integer
Dim i As Integer
m = InputBox("Введите число")
MsgBox ("Вводите числа")
i = 1
s = InputBox("Введите 1 число")
Do While s <= m
i = i + 1
x = InputBox("Введите " & i & "число")
s = s + x
Loop
MsgBox ("Количество введенных чисел " & i)
End Sub
в) Кроме уже описанных выше циклов с предусловием существует еще один - это цикл Do Until … Loop. Тело S этого цикла выполняется до тех пор, пока условие P не примет значение истина (цикл продолжается при ложном значении условия P). Есть возможность досрочного выхода из цикла. Его синтаксис следующий:
Do Unlil P
S
[Exit Do]
Loop
Далее смотрите код программы той же задачи, но с использованием цикла Do Until … Loop.
Public Sub uuu()
Dim x As Integer
Dim m As Integer
Dim s As Integer
Dim i As Integer
m = InputBox("Введите число")
MsgBox ("Вводите числа")
i = 1
s = InputBox("Введите 1 число")
Do Until s > m
i = i + 1
x = InputBox("Введите " & i & "число")
s = s + x
Loop
MsgBox ("Количество введенных чисел " & i)
End Sub
2) Циклы с постусловием.
S
S
[Exit Do]
Loop While P
Тело цикла S будет выполняться в том случае, когда условие P имеет значение истина (цикл продолжается при истинном значении условия P). Если условие P ложно, то выполняются операторы, стоящие после цикла.Предоставлена возможность досрочного выхода из цикла
Далее приведен код программы, с использованием цикла Do …Loop While.
Public Sub uuu()
Dim x As Integer
Dim m As Integer
Dim s As Integer
Dim i As Integer
m = InputBox("Введите число")
MsgBox ("Вводите числа")
i = 0
s = 0
Do
i = i + 1
x = InputBox("Введите " & i & "число")
s = s + x
Loop While s <= m
MsgBox ("Количество введенных чисел " & i)
End Sub
б) Do
S
[Exit Do]
Loop Until P
Тело S этого цикла выполняется до тех пор, пока условие P не примет значение истина (цикл продолжается при ложном значении условия P). Есть возможность досрочного выхода из цикла.
Ниже находится код все той же задачи, но с использованием последнего описанного цикла.
Public Sub uuu()
Dim x As Integer
Dim m As Integer
Dim s As Integer
Dim i As Integer
m = InputBox("Введите число")
MsgBox ("Вводите числа")
i = 0
s = 0
Do
i = i + 1
x = InputBox("Введите " & i & "число")
s = s + x
Loop Until s > m
MsgBox ("Количество введенных чисел " & i)
End Sub
Задание для самостоятельного выполнения.
-
Присутствует ли во введенном массиве введенное число (количество элементов массива ввести).
-
Присутствует ли в массиве два равных соседних элемента. Если да, то под какими номерами имееи место первое равенство.
-
Начиная с какого номера n имеет место неравенство n!>xn, x - любое действительное число.
-
Вводить последовательность до тех пор, пока не встретятся три подряд идущих положительных числа. Тогда прервать ввод и сообщить, сколько во введенной последовательности было всего чисел.
-
Вводить последовательность до тех пор, пока не встретятся три подряд идущих положительных числа. Тогда прервать ввод и сообщить, сколько во введенной последовательности было положительных чисел.
-
Вводить последовательность до тех пор, пока не встретятся три подряд идущих положительных числа. Тогда прервать ввод и сообщить, сколько во введенной последовательности было отрицательных чисел.
-
Определить сколько натуральных подряд идущих четных чисел нужно сложить (найти минимальное число таких слагаемых), чтобы их сумма была больше введенного числа.
-
Дано натуральное N и первый член бесконечного ряда: Y1=1. Вычислить сумму членов бесконечного ряда, образованного по следующему реккррентному соотношению: Yi=2*Yi-1 (то есть S=1+2+4+8+16+...). Вычисление суммы продолжать до тех пор, пока соблюдается условие |Yi-Yi-1|<N.
-
Последовательно вводятся числа до тех пор, пока во введенной совокупности не окажется три нуля. Вывести количество введенных чисел.
-
Присутствуют ли во введенном массиве отрицательные числа.Если да, то под каким номером встречается первое из них.
Лабораторная работа №23