Скачиваний:
25
Добавлен:
02.05.2014
Размер:
98.3 Кб
Скачать

Федеральное агентство по образованию.

Государственное общеобразовательное учреждение высшего профессионального

образования.

Уфимский Государственный Авиационный Технический Университет.

Кафедра информатики.

Отчет по лабораторной работе №2

По теме: «Организация ввода-вывода данных, изменение свойств объектов, разработка приложений с линейными алгоритмами»

Выполнил:

Студент группы МКС-120

Ноготков П.А.

Проверила старший

преподаватель:

Хамзина Е.А.

Уфа-2007

Цель работы:

Целью работы является изучение основных компонентов интегрированной среды разработки приложений Visual Basic, и приобретение начальных навыков работы в среде при создании простейших приложений

Задания:

Задание первого уровня сложности:

f = (m * c * t * b + Abs(c * Sin(t))) ^ 1 / 3

z = m * Cos(b * t * Sin(t)) + c

m = 2

c = -1

t = 1.2

b = 0.7

Код программы: Private Sub Command1_Click()

Dim m As Integer, c As Single, t As Single, b As Single

m = Val(InputBox("Введите значение переменной m", "Ввод данных"))

c = Val(InputBox("Введите значение переменной c", "Ввод данных"))

t = Val(InputBox("Введите значение переменной t", "Ввод данных"))

b = Val(InputBox("Введите значение переменной b", "Ввод данных"))

f = (m * c * t * b + Abs(c * Sin(t))) ^ 1 / 3

z = m * Cos(b * t * Sin(t)) + c

St = "Значение f = "

Label1.Caption = St & f

St = "Значение z = "

Label2.Caption = St & z

End Sub

Задание второго уровня сложности:

Длина выражена в сантиметрах. Выразить ее в дюймах. (1 дюйм=2.5 см)

Код программы: Private Sub Command1_Click()

Dim x As Single, y As Integer

x = Val(Text1)

y = x / 2.5

Text2 = Str(y)

End Sub

Задание третьего уровня сложности: Пусть смешано V1 литров воды температуры t1 с V2 литрами воды температуры t2 и V3 литрами воды температуры t3 . Вычислить объем и температуру образовавшейся смеси.

Код программы: Private Sub Command1_Click()

Dim V1 As Integer, t1 As Integer, V2 As Integer, t2 As Integer, V3 As Integer, t3 As Integer

V1 = Val(Text1)

t1 = Val(Text2)

V2 = Val(Text3)

t2 = Val(Text4)

V3 = Val(Text5)

t3 = Val(Text6)

S = V1 + V2 + V3

t = (V1 * t1 + V2 * t2 + V3 * t3) / (V1 + V2 + V3)

Text7 = Format(S, "#.000")

Text8 = Format(t, "#.000")

End Sub

Private Sub Command2_Click()

End

End Sub

Таблица№1

Объект

Свойства

Значение

Command 1

Command 2

Frame1

Frame2

Frame3

Frame4

Label

Label

Label

Label

Label

Label

Label

Label

Form1

Form1

Form2

Form2

Form3

Form3

Frame1

Frame2

Frame3

Label1

Label2

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

BackColour

Caption

BackColour

Caption

BackColour

BackColour

BackColour

BackColour

BackColour

BackColour

Вычислить

Выход

ввод данных для вычисления по формуле

Вывод результатов

Введите длину в сантиметрах

вывод длины в дюймах

объем смеси

Температура смеси

введите обьем воды в 1ом сосуде

введите обьем воды во 2ом сосуде

введите обьем воды в 3ем сосуде

введите температуру воды в 1ом сосуде

введите температуру воды во 2ом сосуде

введите температуру воды в 3ем сосуде

задание1

&H00C0C0FF&

задание2

&H00C0C0FF&

задание3

&H0080FF80&

&H00C0FFC0&

&H00C0FFC0&

&H0080FFFF&

&H00C0FFFF&

&H00C0C0FF&

Вывод:

В процессе выполнения лабораторной работы я рассмотрел основные приемы организации ввода данных и вывода значений (результатов работы программы) в интегрированной среде разработки приложений Visual Basic, изучил правила организации форматного вывода значений. Создал несколько простейших приложений, использующих ввод-вывод данных, и отредактировал их, меняя функции Caption и BackColour.