Практическая работа № Тема: Решение задач в Microsoft Excel




Скачать 71.98 Kb.
НазваниеПрактическая работа № Тема: Решение задач в Microsoft Excel
Дата публикации27.02.2013
Размер71.98 Kb.
ТипПрактическая работа
uchebilka.ru > Астрономия > Практическая работа

Практическая работа № 9.


Тема: Решение задач в Microsoft Excel с использованием VBA, форм и элементов управления.

Цель: Научиться создавать программы на VBA с использованием форм для ввода исходных данных и вывода результатов, научиться применять элементы управления для вызова макросов.

Время: 60 мин.

Задание: Решите задачи по вариантам.

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

  1. На плоскости расположена окружность радиуса R с центром в начале координат. Ввести заданные координаты точки и определить, лежит ли она на окружности. Результат присвоить символьной переменной. Решить задачу при R=2 для точек с координатами (0; 2), (-1.5; 0.7), (1; 1), (3; 0).
    Считать, что точка с координатами x, y лежит на окружности радиуса R, если

, где e – точность, с которой осуществляется проверка на равенство (можно принять e = 10-5).

  1. Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат. Результат присвоить символьной переменной. Задачу решить для точек с координатами (0; 2), (2; 0); (1; 3), (2, 2). Проверку на равенство осуществлять с точностью e = 10-5.

  2. Заданы площади круга S1 и квадрата S2. Определить, поместится ли квадрат в круге. Задачу решить при 1) S1 = 70, S2 = 36.74; 2) S1 = 0.86, S2 = 0.64

  3. Заданы площади круга S1 и квадрата S2. Определить, поместится ли круг в квадрате. Задачу решить при 1) S1 = 3.2, S2 = 3.5; 2) S1 = 3.2, S2 = 4; 3) S1 = 6, S2 = 9.

  4. В киоске продаётся газета стоимостью 40 копеек и журнал стоимостью 1 грн. 50 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры), печатает причитающуюся сдачу или выдаёт сообщение о недостаточности полученной суммы. Исходные данные задать самостоятельно.

  5. Составить программу, контролирующую знание закона Ома. Обучаемый вводит формулу закона Ома в строковую переменную, которая далее сравнивается с правильным ответом, хранящимся в строковой константе.
    (Совет: перед вводом формулы на экране должно появиться точное указание о том, в каком виде и с использованием каких обозначений нужно осуществлять ввод формулы. Например, такое: «Формулу вводить без пробелов. Использовать обозначения: I – сила тока, U – напряжение, R – сопротивление. Выразить I через U и R.» )

  6. Даны числа a1, b1, c1 и a2, b2, c2. Определить точки пересечения прямых, описываемых уравнениями a1x + b1y = c1 и a2x + b2y = c2 , либо сообщить, что прямые совпадают, не пересекаются или вовсе не существуют. Исходные данные задать самостоятельно.

  7. Даны произвольные числа a, b и c. Определить, можно ли построить треугольник с такими длинами сторон. Если треугольник прямоугольный, равнобедренный или равносторонний, то сообщить об этом. Исходные данные ввести с клавиатуры.

  8. Начав тренировки, спортсмен в первый день пробежал 10 км, каждый последующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?

  9. Траектория снаряда, вылетающего из орудия под углом α с начальной скоростью vo, описывается уравнениями
    x = v cosα˙t,
    y = v sinα˙t – gt2/2,
    где g = 9.8 м/с2 – ускорение свободного падения, t – время. Вводя n заданных пар vo и α, определить, сколько снарядов поразит цель высотой P, расположенную в вертикальной плоскости ствола орудия на расстоянии R на высоте H (см. рис.). Задачу решить при R = 5400 м; H = 100 м; = 30 м для пяти пар vo и α: 180 м/с и 45˚; 252 м/с и 30˚; 280 м/с и 40˚; 233 м/с и 48˚; 260 м/с и 25˚.



  10. Составить программу, печатающую таблицу значений градусов температуры по Цельсию и Фаренгейту. Значения градусов температуры по Цельсию изменяются от 0˚ до 20˚ с шагом 1˚. (˚F = ˚C * 1.8 + 32)

α

vo

H

P

R

x

y


  1. Написать программу выбора наименьшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наименьшее из чисел …, …, … - число …».

  2. Написать программу выбора наибольшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наибольшее из чисел …, …, … - число …».

  3. Написать программу вычисления значения функции




  1. Боковое ребро правильной треугольной пирамиды равно а и составляет с плоскостью основания угол . В эту пирамиду вписан цилиндр с квадратным осевым сечением. (Основание цилиндра лежит в плоскости основания пирамиды). Объём этого цилиндра можно найти по формуле :

Определить боковое ребро а пирамиды, если угол =1,2 радиана, V=40 см3.

Использование форм

Объект UserForm

Объект - комбинация кода и данных, которая может рассматриваться как единое целое, например, элемент управления, форма или компонент приложения.

^ Объект UserForm представляет собой окно или диалоговое окно, являющееся составной частью интерфейса пользователя в приложении.

Семейство UserForms является семейством, компоненты которого представляют все загруженные формы UserForm в приложении. У семейства UserForms имеются свойства Count и Item, а также метод Add. Свойство Count указывает число компонентов в семействе; свойство Item (компонент, используемый по умолчанию) указывает определенный компонент семейства; метод Add помещает в семейство новый компонент UserForm.

Синтаксис:

UserForm

UserForms[.Item](индекс)

Прототип индекс представляет собой значение типа Integer в диапазоне от 0 до UserForms.Count – 1. Item -- это используемый по умолчанию компонент семейства UserForms, поэтому его можно не указывать.

Формы пользователя имеют свойства, определяющие внешний вид, как например, положение, размер, цвет и реакция на события.

Формы пользователя также могут реагировать на события, инициированные пользователем или запущенные системой. Например, пользователь может написать подпрограмму обработки события Initialize (Инициализация) для UserForm, чтобы инициализировать переменные уровня модуля до того, как UserForm будет выведена на экран.

Помимо свойств и событий для программной обработки форм пользователя могут использоваться методы. Например, можно использовать метод Move для изменения положения и размера формы UserForm.

При конструировании форм пользователя следует задать свойство BorderStyle для определения границ и свойство Caption для занесения текста в область заголовка. В программе можно использовать методы Show и Hide, чтобы делать форму соответственно видимой и невидимой во время выполнения.

Доступ к семейству элементов управления формы UserForm осуществляется с помощью семейства Controls. Например, чтобы скрыть все элементы управления формы UserForm, можно использовать код, подобный следующему:
For Each Control in UserForm1.Controls

Control.Visible = False

Next Control
^ Метод Show

Метод Show выводит на экран объект UserForm. Синтаксис: [объект.]Show

Необязательный прототип объект представляет собой объектное выражение, значением которого является один из объектов, перечисленных в списке "Применение". Если этот элемент синтаксиса опущен, предполагается, что объектом является форма UserForm, связанная с активным модулем UserForm.

Когда UserForm выведена на экран, другие формы данного приложения недоступны, однако это не относится к другим приложениям.
Пример.

В этом примере условие задачи оформлено на листе «Задание» в виде надписи с управляющей кнопкой Start, которая вызывает процедуру, решающую поставленную задачу:

Найти значения функции

для всех X, изменяющихся от Хн до Хк с шагом dX, если

Start



Исходные данные заносятся с помощью формы UserForm1:



Текст программы:
Dim Xn, Xk, dX, X As Variant
Sub Auto_Open()

Sheets("задание").Visible = True

Sheets("задание").Select

End Sub

Sub Start()

Sheets("задание").Visible = False

UserForm1.Show

Xn = Val(UserForm1.TextBox1.Value)

Xk = Val(UserForm1.TextBox2.Value)

dX = Val(UserForm1.TextBox3.Value)

Range("A1").Value = "Хн"

Range("B1").Value = "Хк"

Range("C1").Value = "dX"

Range("A1:C4").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.ShrinkToFit = False

.MergeCells = False

End With

With Selection.Font

.Name = "Arial Cyr"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.Font.Bold = True

Range("A2") = Xn

Range("B2") = Xk

Range("C2") = dX

Range("b4").Select

Range("b4").Value = "X"

Range("c4").Value = "Y"

Columns("C:C").ColumnWidth = 20.86

i = 4

For X = Xn To Xk Step dX

If Abs(Cos(X) – 1) < 0.001 Then

Y = "Функция не определена"

Else

Y = (1 + Sin(X)) / (1 - Cos(X))

End If

i = i + 1

Cells(i, 2).Value = X

Cells(i, 3).Value = Y

Next

Range("b4").Select

Set tbl = ActiveCell.CurrentRegion

tbl.Offset(0, 0).Resize(tbl.Rows.Count, tbl.Columns.Count).Select

With Selection.Borders(xlLeft)

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlRight)

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlTop)

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlBottom)

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Selection.BorderAround Weight:=xlThin, ColorIndex:=xlAutomatic

Range("A4").Select

End Sub

Sub Auto_Close()

Cells.Select

Selection.Clear

Range("A1").Select

End Sub
Результат выполнения этой программы:


Хн

Хк

dX

0,00

6,28

0,314













X

Y




0

Функция не определена




0,314

26,76929732




0,628

8,320557201




0,942

4,391966734




1,256

2,825787841




1,57

2,001593605




1,884

1,491735644




2,198

1,140393997




2,512

0,878639707




2,826

0,671778656




3,14

0,500796644




3,454

0,354914388




3,768

0,228580251




4,082

0,120922727




4,396

0,03785636




4,71

0




5,024

0,069452838




5,338

0,457025076




5,652

2,127445718




5,966

13,79442665




6,28

Функция не определена

При закрытии книги лист с решением очищается (процедура Auto_Close).

Добавить документ в свой блог или на сайт

Похожие:

Практическая работа № Тема: Решение задач в Microsoft Excel iconПрактическая работа №14. Тема: Решение задач в Microsoft
Тема: Решение задач в Microsoft Excel с использованием vba, форм и элементов управления

Практическая работа № Тема: Решение задач в Microsoft Excel iconЛабораторная работа 5-6 Решение задач линейного программирования...
Для модели лп, соответствующей номеру Вашего варианта, найдите оптимальное решение в табличном редакторе Microsoft Excel и продемонстрируйте...

Практическая работа № Тема: Решение задач в Microsoft Excel iconЛабораторная работа №1 Знакомство с Microsoft Excel
Цель: Изучить интерфейс Microsoft Excel, научиться запускать на выполнение и завершать работу Microsoft Excel, вводить в книгу различные...

Практическая работа № Тема: Решение задач в Microsoft Excel iconТема: Создание и настройка диаграмм в Excel. Выбор типа диаграммы....
Цель: показать возможности использования программы Excel для решения задач различных областей знаний; научить строить графики элементарных...

Практическая работа № Тема: Решение задач в Microsoft Excel iconЛабораторная работа № Тема: Запись и
Тема: Запись и выполнение макросов в Microsoft Excel. Назначение макросов командным кнопкам, графическим элементам и кнопкам панелей...

Практическая работа № Тема: Решение задач в Microsoft Excel iconУрок конференция Биомолекулярный состав живого. Практическая работа...
Тема урока: Биомолекулярный состав живого. Практическая работа «Решение задач и упражнений по молекулярной биологии»

Практическая работа № Тема: Решение задач в Microsoft Excel iconПособие для начинающих Воробьев В. В. Microsoft Excel 97
Данное учебное пособие посвящено табличному процессору Microsoft Excel 97, который входит в пакет Microsoft Office 97. Пособие содержит...

Практическая работа № Тема: Решение задач в Microsoft Excel iconТема урока: «Решение задач по молекулярной биологии. Практическая...
Ие умения и навыки решения упражнений и задач по молекулярной биологии; научить учащихся использовать теоретические знаний в практической...

Практическая работа № Тема: Решение задач в Microsoft Excel iconПрактическая работа №13. Тема: Решение задач в Excel с помощью vba....
Цель: Научиться выполнять вычисления с использованием функций и операторов vba, организовывать ввод и вывод данных, научиться выполнять...

Практическая работа № Тема: Решение задач в Microsoft Excel iconПрактическая работа №25. Тема : Работа с данными в ms
Тема: Работа с данными в ms excel. Фильтрация, промежуточные итоги, сводные таблицы и диаграммы

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
uchebilka.ru
Главная страница


<