Отчет по теме : «Решение задач с использованием VBA Microsoft Excel»
Отчет по теме : «Решение задач с использованием 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
Постановка задачи
·
 |
Запрограммировать функцию и вычислить сумму ее значений в точках интервала с заданным шагом, а также произведение значений функции, попавших в отрезок [1;2].
Решение
· Блок схема:
· Текст программы:
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
Постановка задачи
·
 |
Запрограммировать функцию и вычислить сумму ее значений в заданных точках, а также произведение значений функции, не равных 0 и количество отрицательных значений функции.
Решение
· Блок схема:
· Текст программы:
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