Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Топ:
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Проблема типологии научных революций: Глобальные научные революции и типы научной рациональности...
Интересное:
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Что нужно делать при лейкемии: Прежде всего, необходимо выяснить, не страдаете ли вы каким-либо душевным недугом...
Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...
Дисциплины:
2017-11-18 | 188 |
5.00
из
|
Заказать работу |
|
|
Отчет по теме: «Решение задач с использованием VBA Microsoft Excel»
Выполнил: студент ФТГС С-23 Безгин А.А.
Проверил: Агафонова Н.С.
САМАРА 2012
Оглавление
Задание №1. Вариант 8. Составление линейных программ.. 4
Задача 1.1. 4
Постановка задачи. 4
Решение. 4
Результаты и проверка в листе MS EXCEL.. 5
Задача 1.2. 5
Постановка задачи. 5
Решение. 5
Результаты и проверка в листе MS EXCEL.. 6
Задание № 2. Составление программ с оператором выбора. Вариант 11. 6
Задача 2.1. 6
Постановка задачи. 6
Решение: 6
Результаты и проверка в листе MS EXCEL.. 7
Задача 2.2. 7
Постановка задачи. 7
Решение. 8
Результаты и проверка в листе MS EXCEL.. 9
Задание № 3. Составление программ с оператором цикла. Вариант 11. 9
Задача 3.1. 9
Постановка задачи. 9
Решение. 9
Результаты и проверка в листе MS EXCEL.. 11
Задача 3.2. 11
Постановка задачи. 11
Решение. 11
Результаты и проверка в листе MS EXCEL.. 13
Задание № 6. Вариант 15. 14
Задача. 14
Постановка задачи. 14
Решение. 14
Результаты и проверка в листе MS EXCEL.. 16
Задание № 8. Строковые функции.Вариант 12. 16
Задача. 16
Постановка задачи. 16
Решение. 16
Результаты и проверка в листе MS EXCEL.. 18
Список рисунков. 19
Задание №1. Вариант 8. Составление линейных программ
Задача 1.1
Постановка задачи
Решение
· Блок схема:
· Текст программы:
Sub задача_1_1()
Dim A As Single, y As Single
A = Val(InputBox("A"))
y = Val(InputBox("y"))
x = Exp(y)
z = Sqr(Abs((Cos(x) + A ^ 2 * Sin(y) / y)))
MsgBox "Z=" + Str(z)
End Sub
Результаты и проверка в листе MS EXCEL
Рисунок 1 - задача 1.1
Задача 1.2
Постановка задачи
· Составить программу для определения количества килобайт (Кб), занимаемых вашими фамилией, именем и отчеством, если 1 символ – 1байт, 1 Кб=1024 байт.
|
Решение
· Блок схема:
· Текст программы:
Sub задача_1_2()
Dim A As Single
A = Val(InputBox("количество символов"))
B = A / 1024
MsgBox "количесво Кбайт =" + Str(B)
End Sub
Результаты и проверка в листе MS EXCEL
Рисунок 2 - задача 1.2
Задание № 2. Составление программ с оператором выбора. Вариант 11
Задача 2.1
Постановка задачи
· Составить проект программы, в котором определяется, выгодно ли покупать сезонку на проезд в трамвае (учесть вариант, когда стоимость сезонки равна сумме стоимостей всех билетов).
Решение:
· Блок схема:
· Текст программы:
Sub задача_2_1()
Dim A As Integer, B As Integer, C As Integer
A = Val(InputBox("количество билетов"))
B = Val(InputBox("цена билетов"))
C = Val(InputBox("цена сезонки"))
x = A * B
If x <= C Then
MsgBox " не выгодно"
Else
If C = x Then
MsgBox " нет разницы"
Else
MsgBox " выгодно "
End If
End If
End Sub
Результаты и проверка в листе MS EXCEL
Рисунок 3 - задача 2.1
Задача 2.2
Постановка задачи
·
Решение
· Блок схема:
· Текст программы:
Sub задача_2_2()
Dim x As Single
x = Val(InputBox("x"))
If x > 20 Then
y = Sin(x)
Else
If x <= 5 Then
y = 10
Else: y = Sqr(x)
End If
End If
MsgBox "y=" + Str(y)
End Sub
Задача 3.1
Постановка задачи
·
Решение
· Блок схема:
· Текст программы:
Sub задача_3_1()
Dim y As Single
y = Val(InputBox("y"))
s = 0
p = 1
For x = 1 To 3 Step 0.5
z = (Log(x ^ 3 + 1)) / y ^ 2
s = s + z
If (z >= 1) And (z <= 2) Then
p = p * z
End If
Next x
MsgBox "s=" + Str(s) + "p=" + Str(p)
End Sub
Задача 3.2
Постановка задачи
·
Решение
· Блок схема:
· Текст программы:
Sub задача_3_2()
Dim x As Single, p As Single, s As Single
|
Dim i As Integer, k As Integer
p = 1
k = 0
s = 0
For i = 1 To 6
x = Cells(i + 1, 1)
If x > 0 Then
y = x ^ 3
Else
If x < -3 Then
y = Cos(x) * Sin(x)
Else
y = 3
End If
End If
If y <> 0 Then
p = p * y
End If
If y < 0 Then
k = k + 1
End If
s = s + y
Cells(8, 3) = s
Cells(9, 3) = p
Cells(10, 3) = k
Next i
End Sub
Задача
Постановка задачи
· Имеется список группы и оценка каждого студента на экзамене по математике. Составить программу, которая вначале выводит фамилии всех отличников, потом хорошистов, троечников, а затем двоечников.
Решение
· Блок схема:
· Текст программы:
Sub задача_6()
Dim x(10) As Integer, i As Integer, ot As Integer, ch As Integer
Dim y(10) As String, dv As Integer, tr As Integer
ot = 6
ch = 6
tr = 6
dv = 6
For i = 1 To 10
x(i) = Cells(i, 2)
y(i) = Cells(i, 1)
If x(i) = 5 Then
ot = ot + 1
Cells(ot, 4) = y(i)
Else
If x(i) = 4 Then
ch = ch + 1
Cells(ch, 5) = y(i)
Else
If x(i) = 3 Then
tr = tr + 1
Cells(tr, 6) = y(i)
Else
If x(i) = 2 Then
dv = dv + 1
Cells(dv, 7) = y(i)
End If
End If
End If
End If
Next i
End Sub
Задача
Постановка задачи
Решение
· Блок схема:
· Текст программы:
Sub задача_8()
Dim a As String, l As Integer
a = Cells (1, 1)
n = Len (a)
k = 0
For i = 1 To n Step 2
C = Mid (a, i, 1)
If C = "т" Then
k = 1
End If
Next i
If k = 0 Then
MsgBox " нет т на нечетном месте"
Else
MsgBox "есть т"
End If
End Sub
Список рисунков
Рисунок 1 - задача 1.1. 5
Рисунок 2 - задача 1.2. 6
Рисунок 3 - задача 2.1. 7
Рисунок 4 - задача 2.2. 9
Рисунок 5 - задача 3.1. 11
Рисунок 6 - задача 3.2. 13
Рисунок 7 - задача 6. 16
Рисунок 8 - задача 8. 18
Рисунок 9 - задача 8. 18
Отчет по теме: «Решение задач с использованием VBA Microsoft Excel»
Выполнил: студент ФТГС С-23 Безгин А.А.
Проверил: Агафонова Н.С.
САМАРА 2012
Оглавление
Задание №1. Вариант 8. Составление линейных программ.. 4
Задача 1.1. 4
Постановка задачи. 4
Решение. 4
Результаты и проверка в листе MS EXCEL.. 5
Задача 1.2. 5
Постановка задачи. 5
Решение. 5
Результаты и проверка в листе MS EXCEL.. 6
Задание № 2. Составление программ с оператором выбора. Вариант 11. 6
Задача 2.1. 6
Постановка задачи. 6
Решение: 6
Результаты и проверка в листе MS EXCEL.. 7
Задача 2.2. 7
Постановка задачи. 7
Решение. 8
Результаты и проверка в листе MS EXCEL.. 9
Задание № 3. Составление программ с оператором цикла. Вариант 11. 9
Задача 3.1. 9
Постановка задачи. 9
Решение. 9
Результаты и проверка в листе MS EXCEL.. 11
Задача 3.2. 11
Постановка задачи. 11
Решение. 11
Результаты и проверка в листе MS EXCEL.. 13
Задание № 6. Вариант 15. 14
Задача. 14
Постановка задачи. 14
|
Решение. 14
Результаты и проверка в листе MS EXCEL.. 16
Задание № 8. Строковые функции.Вариант 12. 16
Задача. 16
Постановка задачи. 16
Решение. 16
Результаты и проверка в листе MS EXCEL.. 18
Список рисунков. 19
Задание №1. Вариант 8. Составление линейных программ
Задача 1.1
Постановка задачи
Решение
· Блок схема:
· Текст программы:
Sub задача_1_1()
Dim A As Single, y As Single
A = Val(InputBox("A"))
y = Val(InputBox("y"))
x = Exp(y)
z = Sqr(Abs((Cos(x) + A ^ 2 * Sin(y) / y)))
MsgBox "Z=" + Str(z)
End Sub
|
|
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!