Министерство  образования Республики Беларусь

Учреждение  образования «Белорусский государственный  технологический университет» 

Кафедра

Информационных  систем и технологий 
 

По Информатике 
 
 
 

                                                   Выполнил:

                                                   Студент 1 курса 

                                                   Спец. ПО  и СОИ

                                                   Кшталтная Ю.А.

                                                   Шифр 10-25454 
 
 
 
 
 
 

Минск 2011

Оглавление 
 
 
 
 
 
 
 
 

Задание 1

Составление программ линейной структуры  на языке VBA

Вариант 4

1. В электронной книге Excel переименовать «Лист1» в «Линейные программы».
2. Оформить его согласно образцу.
3. Вставить в соответствующие ячейки расчетные формулы и получить результаты вычисления по ним с помощью встроенных функций Excel.
4. Расположить на рабочем листе два элемента управления Кнопка. Изменить надписи на них, цвет кнопок, шрифт, цвет шрифта.
5. Для кнопки «Вычислить» написать программу для расчета по формулам. Исходные данные ввести из соответствующих ячеек рабочей книги и вывести в нужные ячейки рабочей книги (метод Range).
6. Для кнопки «Очистить» написать программу для очистки ячеек с результатами работы программы.
7. Создать еще две командные кнопки. Скопировать для них процедуру, написанную для кнопки «Вычислить».
8. Изменить программы так, чтобы в первой программе исходные данные вводились с клавиатуры, а во второй – ввод и вывод должен осуществляться с использованием метода Cells.
9. Сравнить все результаты. Результаты, полученные с помощью встроенных функций Excel и написанных процедур, должны совпадать.

Интерфейс:

Расчетные формулы Excel

в ячейку E24: =(C17^2+LN(C17))/(EXP(-3)+КОРЕНЬ(1,5*C18+C19))

в ячейку F24: =(1+C19*C17-2*E24)/(LN(1+C17))

в ячейку G24: =F24^2*C17-(1+C18*C17)^2-SIN(C18*C17)

Листинги процедур

Private Sub CommandButton1_Click()

Dim z As Single, a As Single, m As Single, y As Single, s As Single, t As Single

z = Worksheets("Линейные  программы").Range("c17")

a = Worksheets("Линейные программы").Range("c18")

m = Worksheets("Линейные  программы").Range("c19")

y = (z * z + Log(z)) / (Exp(-3) + Sqr(1.5 * a + m))

s = (1 + m * z - 2 * y) / (Log(1 + z))

t = s * s * z - (1 + a * z) ^ 2 - Sin(a * z)

Worksheets("Линейные программы").Range("e25") = y

Worksheets("Линейные программы").Range("f25") = s

Worksheets("Линейные программы").Range("g25") = t

End Sub 

Private Sub CommandButton2_Click()

Dim z As Single, a As Single, m As Single, y As Single, s As Single, t As Single

z = Val(InputBox("Введите z"))

a = Val(InputBox("Введите a"))

m = Val(InputBox("Введите m"))

y = (z * z + Log(z)) / (Exp(-3) + Sqr(1.5 * a + m))

s = (1 + m * z - 2 * y) / (Log(1 + z))

t = s * s * z - (1 + a * z) ^ 2 - Sin(a * z)

MsgBox ("y=" & y)

MsgBox ("s=" & s)

MsgBox ("t=" & t)

End Sub 

Private Sub CommandButton3_Click()

Worksheets("Линейные программы").Range("e25").Clear

Worksheets("Линейные программы").Range("f25").Clear

Worksheets("Линейные программы").Range("g25").Clear

Worksheets("Линейные программы").Range("e26").Clear

Worksheets("Линейные программы").Range("f26").Clear

Worksheets("Линейные программы").Range("g26").Clear

End Sub 

Private Sub CommandButton4_Click()

Dim z As Single, a As Single, m As Single, y As Single, s As Single, t As Single

z = Worksheets("Линейные программы").Cells(17, 3)

a = Worksheets("Линейные  программы").Cells(18, 3)

m = Worksheets("Линейные  программы").Cells(19, 3)

y = (z * z + Log(z)) / (Exp(-3) + Sqr(1.5 * a + m))

s = (1 + m * z - 2 * y) / (Log(1 + z))

t = s * s * z - (1 + a * z) ^ 2 - Sin(a * z)

Worksheets("Линейные программы").Cells(26, 5) = y

Worksheets("Линейные программы").Cells(26, 6) = s

Worksheets("Линейные  программы").Cells(26, 7) = t

End Sub

Задание 2

Программирование  алгоритмов циклической  и разветвляющейся  структуры

Вариант 4

1. В электронной книге Excel переименовать наименование рабочего листа из «Лист2» в «Циклы».
2. Оформить его согласно образцу.
3. Создать на листе две командных кнопки “Цикл For ... Next ” и «Цикл Do ... Loop» и записать для них процедуры по условию задачи в соответствии с вариантом (процедуры будут иметь одни и те же расчетные формулы, но разные исходные данные).
4. Значения исходных параметров ввести из ячеек рабочего листа и результаты разместить в ячейках Excel.
5. Выполнить проверку полученных результатов с помощью встроенных функций Excel.

Интерфейс:

Расчетные формулы Excel

в ячейку D17: =ЕСЛИ($K$7<B17/2;(КОРЕНЬ((КОРЕНЬ(0,2*$K$7)*$K$6)^3+ABS($K$7-$K$5)))/LN(1+$K$5);(КОРЕНЬ((EXP(-2*$K$7*$K$6))^3+ABS($K$7-$K$5)))/LN(1+$K$5))

в ячейку I17: =ЕСЛИ($K$7<G17/2;(КОРЕНЬ((КОРЕНЬ(0,2*$K$7)*$K$6)^3+ABS($K$7-$K$5)))/LN(1+$K$5);(КОРЕНЬ((EXP(-2*$K$7*$K$6))^3+ABS($K$7-$K$5)))/LN(1+$K$5))

Листинги процедур

Private Sub CommandButton1_Click()

Dim w As Single, x As Single, m As Single, a As Single, k As Single, v As Single, i As Integer, j As Integer

a = Worksheets("Циклы").Range("k5")

k = Worksheets("Циклы").Range("k6")

x = Worksheets("Циклы").Range("k7")

j = 17

For i = 1 To 4

m = Worksheets("Циклы").Cells(j, 2)

If x < m / 2 Then w = Sqr(0.2 * x) * k Else w = Exp(-2 * x * k)

v = Sqr(w ^ 3 + Abs(x - a)) / Log(1 + a)

Worksheets("Циклы").Cells(j, 3) = v

j = j + 1

Next i

End Sub 

Private Sub CommandButton2_Click()

Dim w As Single, x As Single, m As Single, a As Single, k As Single, v As Single, i As Integer, j As Integer

a = Worksheets("Циклы").Range("k5")

k = Worksheets("Циклы").Range("k6")

x = Worksheets("Циклы").Range("k7")

m = 4

j = 17

Do While m <= 6

If x < m / 2 Then w = Sqr(0.2 * x) * k Else w = Exp(-2 * x * k)

v = Sqr(w ^ 3 + Abs(x - a)) / Log(1 + a)

Worksheets("Циклы").Cells(j, 8) = v

j = j + 1

m = m + 0.2

Loop

End Sub 

Private Sub CommandButton3_Click()

Dim i As Integer

For i = 17 To 20

Worksheets("Циклы").Cells(i, 3).Clear

Next i

For i = 17 To 27

Worksheets("Циклы").Cells(i, 8).Clear

Next i

End Sub

Задание 3

Вычисление  сумм, произведений, нахождение максимумов и минимумов

Вариант 4

1. В электронной книге Excel подготовить таблицу и ввести исходные данные в соответствии с заданием. Переименовать «Лист3» (имя выбрать самостоятельно).
2. Создать на листе две командных кнопки «Вычислить» и «Очистить» и записать для первой из них процедуру по условию задачи, приведенному ниже, в соответствии с вариантом.
3. Выполнить все необходимые вычисления с помощью встроенных функций Excel (при необходимости создать дополнительные строки или столбцы). Все результаты вычислений должны быть отображены на листе.
4. Для кнопки «Очистить» написать программу для очистки ячеек с результатами работы программы.
5. Оформить рабочий лист, используя различные цвета и шрифты.

Интерфейс

Расчетные формулы Excel

в ячейку I5: =СУММ(C5:C14)

в ячейку I6: =МИН(C5:C14)

Листинг процедур

Private Sub CommandButton1_Click()

Worksheets("Задание 3").Range("g6").Clear

Worksheets("Задание 3").Range("h6").Clear

Worksheets("Задание 3").Range("g5").Clear

End Sub 

Private Sub CommandButton2_Click()

Dim i As Integer, sum As Integer, x As Integer, min As Integer, l As Integer

sum = 0

min = Worksheets("Задание 3").Cells(5, 3)

For i = 5 To 14

x = Worksheets("Задание 3").Cells(i, 3)

sum = sum + x

If x < min Then

l = i

min = x

End If

Next i

Worksheets("Задание 3").Cells(5, 7) = sum

Worksheets("Задание 3").Cells(6, 7) = min

Worksheets("Задание 3").Cells(6, 8) = Cells(l, 2)

End Sub

Список  литературы

 
    

1. Гурин, Н. И. Программирование на языке Visual Basic: учебно-методическое пособие / Н. И. Гурин, Н. Н. Пустовалова.- Минск: БГТУ, 2006. – 151 с.
2. Пустовалова, Н. Н. Компьютерная графика / Н. Н. Пустовалова, И. Г. Сухорукова, Д. В. Занько – Минск: БГТУ, 2005. – 72 с.
3. Симонович, С. В.Информатика и компьютерная графика. Базовый курс / под ред. С. В. Симоновича. – СПб: БХВ-Петербург, 2006. – 374 с.
4. Лащенко, А. П. Компьютерные информационные технологии / А. П. Лащенко, Т. П. Брусенцова, Н. И. Потапенко. - Минск: БГТУ, 2004. – 59 с.