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

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

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

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

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

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

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

По теме: «Изучение интегрированной среды и основ

работы в Visual Basic»

Выполнил:

Студент группы МКС-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(Text1)

c = Val(Text2)

t = Val(Text3)

b = Val(Text4)

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

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

Print "m ="; m; "c ="; c; "t ="; t; "b ="; b; "f ="; f; "z ="; z

End Sub

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

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

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

Dim x As Single, y As Integer

x = Val(Text1)

y = x / 2.5

Print "длина в сантиметрах"; x; " длина в дюймах"; 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 = (t1 + t2 + t3) / 3

Print "Общий объем"; S; "Общая температура"; t;

End Sub

Таблица№1

Объект

Свойства

Значение

Command 1

Label

Label

Label

Label

Label

Label

Label

Label

Label

Label

Label

Form1

Form2

Form3

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

ВЫЧИСЛИТЬ

введите m

введите c

введите t

введите b

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

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

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

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

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

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

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

задание1

задание2

задание3


Вывод:

В результате проделанной работы я научился запускать интегрированную среду разработки приложений Visual Basic, изучил основные компоненты интерфейса Visual Basic,окна конструктора формами, панели элементов управления, создал формы приложения с размещенными на ней объектами, написал несколько простых кодов для приложений и сохранил проект. Научился запускать приложения и запускать окна редактора исходного кода. Создал несколько простейших приложений.