ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 27.07.2024
Просмотров: 1424
Скачиваний: 0
СОДЕРЖАНИЕ
Создание маркированных и нумерованных списков
Оборудование, инструменты и приборы.
Варианты заданий для работы с нумерованными и маркированными списками
Варианты заданий для работы с многоуровневыми списками
Пример оформления практической части лабораторной работы № 1
Работа с математическими формулами
Оборудование, инструменты и приборы.
Пример оформления практической части лабораторной работы № 2
Вставка рисунков и диаграмм в документ
Оборудование, инструменты и приборы.
Варианты заданий для создания блок-схем, работы с надписями, выносками
Задания для текстовых эффектов с помощью WordArt
Варианты заданий для создания макросов
Пример оформления практической части лабораторной работы № 3
Лабораторная работа № 4 Слияние
Оборудование, инструменты и приборы.
Варианты заданий для создания документа с использованием слияния
Пример оформления практической части лабораторной работы № 4
Совместная работа Word с другими приложениями с помощью ole-технологии
Оборудование, инструменты и приборы.
Варианты заданий для работы с шаблонами
Варианты заданий для создания документа с использованием
Вставка и удаление строк и столбцов
Оборудование, инструменты и приборы.
Расчетная ведомость ао «темп» за июнь 1998г.
Оборудование, инструменты и приборы.
Количество осадков в миллиметрах
Количество осадков в миллиметрах
Количество осадков в миллиметрах по годам
Оплата за пользование телефоном
Оборудование, инструменты и приборы.
Организация ввода, просмотра и поиска данных с помощью форм
Примеры условий отбора расширенного фильтра
Подведение промежуточных итогов
Оборудование, инструменты и приборы.
Оборудование, инструменты и приборы.
Оборудование, инструменты и приборы.
Раздел 3. Visual basic for Application (vba).
Правила построения блок–схемы алгоритма
Оборудование, инструменты и приборы.
Лабораторная работа №15 Редактор vba. Условный оператор. Подпрограммы
Оборудование, инструменты и приборы
Лабораторная работа № 16 Редактор vba. Оператор множественного ветвления
Оборудование, инструменты и приборы
Оборудование, инструменты и приборы
Программная реализация метода бисекции
”Задайте интервал, содержащий один корень”
Оборудование, инструменты и приборы
Редактор vba. Оператор цикла со счетчиком
Оборудование, инструменты и приборы
Лабораторная работа № 20 Редактор vba. Отладка программ. Пошаговое выполнение программы
Кнопки панели инструментов Debug
Оборудование, инструменты и приборы
3. Присваивание значений переменным
4. Задание ранжированной переменной
6. Определение и вычисление функции
8. Работа с векторами и матрицами:
Оборудование, инструменты и приборы
Лабораторная работа № 22 Построение графиков функций
Оборудование, инструменты и приборы
7. Символьное решение систем уравнений
Оборудование, инструменты и приборы
3. Одномерная линейная аппроксимация
4. Одномерная сплайн-интерполяция
6. Функции предсказания данных.
Оборудование, инструменты и приборы
Оборудование, инструменты и приборы
ПЭВМ, программное обеспечение Microsoft Office (Excel 2007).
Варианты заданий
Найти ошибки и выполнить отладку программы, выданной преподавателем, согласно варианту заданий, приведенных в таблице 3.7.
Таблица 3.7
Варианты заданий
|
№ варианта |
Задание |
|
1 |
2 |
|
Синтакситеческие ошибки |
|
|
1 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsqBox"Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение таблицы 3.7
|
1 |
2 |
|
2 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox"Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Analiz a, b, maximum2 Text3.Text = maximum2 End Sub |
Продолжение таблицы 3.7
|
1 |
2 |
|
3 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Elze If x < y Then 'Вложенный оператор r = y Elze MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub |
Продолжение таблицы 3.7
|
1 |
2 |
|
4 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Tnen r = x Else If x < y Tnen 'Вложенный оператор r = y Else MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
5 |
Private Sub Анализ(BiVal x As Integer, BiVal y As Integer, _ BiRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
6 |
Privat Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
7 |
Private Sab Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sab Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
8 |
Private Sub Анализ(ByVal x As Inteqer, ByVal y As Inteqer, _ ByRef r As Inteqer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Inteqer, b As Inteqer, maximum2 As Inteqer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
9 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
10 |
Private Sub Analiz(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
11 |
Private Sub Анализ(ByVal x As Integer, ByVal y As Integer, _ ByRef r As Integer) If x > y Then r = x Else If x < y Then 'Вложенный оператор r = y Else MsgBox "Числа равные" 'Блок из 2-х операторов r = x End If End If End Sub Private Sub CmdРешение_Click() Dim a As Integer, b As Integer, maximum2 As Integer a = CIht(Text1.Text) b = CIht(Text2.Text) Анализ a, b, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
12 |
Private Sub Реш_квадр_ур_Click() Dim a As Integer, b As Integer, c As Integer, _ d As Single, x1 As Single, x2 As Single a = CInt(TextBox1.Text): b = CInt(TextBox2.Text): c = CInt(TextBox3.Text) d = b ^ 2 - 4 * a * c If d < 0 Then MsgBox "Нет веществ-х корней" Else If d = 0 Then x1 = -b / (2 * a): x2 = x1 TextBox4.Text = x1: TextBox5.Text = x2 Else x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) / (2 * a) TextBox4.Text = x1: TextBox5.Text = x2 End Sub
|
