ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 27.07.2024
Просмотров: 1432
Скачиваний: 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. Функции предсказания данных.
Оборудование, инструменты и приборы
Продолжение табл. 3.7
|
1 |
2 |
|
Ошибки при вводе - выводе данных |
|
|
13 |
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(TextBox1.Text) b = CInt(TextBox2.Text) Анализ a, b, maximum2 TextBox3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
14 |
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 |
|
15 |
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 |
|
16 |
Function F(ByVal x As Single) As Single F = (x - 1) * (x - 1) - 1 End Function Private Sub Расчет(ByVal xn As Single, ByVal xk As Single, _ ByVal e As Single, ByRef x As Variant) Dim N As Integer, c As Single 'Объявление локальных переменных Dim mas() 'Обьявление динамического массива If F(xn) * F(xk) > 0 Then x = "?" MsgBox "На данном интервале корня нет или четное количество корней." _ + Chr(13) & _ "Задайте интервал, содержащий один корень." Exit Sub End If N = 0 c = (xn + xk) / 2 Do While xk - xn > e And Abs(F(c)) > e c = (xn + xk) / 2 N = N + 1 ReDim Preserve mas(1 To N) mas(N) = c If F(xn) * F(c) > 0 Then xn = c Else xk = c Loop x = c
|
Продолжение табл. 3.7
|
1 |
2 |
|
16 |
If N = 0 Then ReDim Preserve mas(1 To 1) mas(1) = x End If List1.List = mas End Sub Private Sub CmdРешение_Click() Dim a As Single, b As Single, eps As Single, _ корень As Variant a = CSng(Text1.Text) b = CSng(Text2.Text) eps = CSng(Text3.Text) Расчет a, b, eps, корень Text4.Text = корень End Sub Private Sub List1_Click() Text5.Text = F(CSng(List1)) End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
17 |
Private Sub Поиск_мин_элем( _ ByRef b() As Single, _ ByVal jn As Integer, ByVal jk As Integer, _ ByRef jmin As Integer) Dim j As Integer jmin = jn For j = jn + 1 To jk If b(j) < b(jmin) Then jmin = j Next End Sub Private Sub Перестановка(ByRef x As Single, _ ByRef y As Single) Dim z As Single z = x x = y y = z End Sub
Private Sub CmdРешение_Click() Dim n As Integer, imin As Integer, _ k As Integer, a() As Single n = CInt(Text1.Text) Randomize
|
Продолжение табл. 3.7
|
1 |
2 |
|
17 |
For k = 1 To n ReDim Preserve a(1 To k) a(k) = Int(100 * Rnd) Next List1.List = a For k = 1 To n - 1 Поиск_мин_элем a, k, n, imin Перестановка a(k), a(imin) Next List2.List = a End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
Ошибки при выполнении программы |
|
|
18 |
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) Анализ а, б, maximum2 Text3.Text = maximum2 End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
19 |
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 If End If End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
20 |
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 =Sqr( 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 If End If End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
21 |
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 =Sqr( b - 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 If End If End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
22 |
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 - 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 If End If End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
23 |
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) 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 If End If End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
24 |
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 Else x1 = (-b - Sqr(d)) / (2 * a): x2 = (-b + Sqr(d)) / (2 * a) End If End If End Sub
|
Продолжение табл. 3.7
|
1 |
2 |
|
25 |
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 =Sqr( 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 If End If End Sub
|
