Скачать:
Отчет
по лабораторной работе № 2
"Управляющие элементы, ввод-вывод данных, программа линейной структуры”
Вариант №8
Цель работы
Целью является изучение возможностей организации ввода-вывода данных в приложениях Visual Basic а также основных управляющих элементов, используемых при создании простейших приложений.
Задания первого уровня сложности
Создать приложение, вычисляющее значения переменных по заданным расчетным формулам и наборам исходных данных. На экран вывести значения вводимых исходных данных и результаты вычислений, сопровождая ввод и вывод поясняющими комментариями.
В отчете о выполненной работе укажите порядок выполнения действий в выражениях операторов присваивания с учетом приоритетов операций и расставленных в выражении скобок
Реализация формы приложения:
Блок схема:
Текст программы:
Dim y, z As Double
Private Sub Command1_Click()
Picture1.Print "y=" & y
Picture1.Print "z=" & z
End Sub
Private Sub Form_Load()
a = Val(InputBox("Введите a", "Ввод данных"))
b = Val(InputBox("Введите b", "Ввод данных"))
x = Val(InputBox("Введите x", "Ввод данных"))
y = (Sin((x ^ 2 + a) ^ 2)) ^ 3 - (x / b) ^ 0.5
z = ((x ^ 2) / a) + Cos((x + b) ^ 3)
End Sub
Задания второго уровня сложности
Реализация формы приложения:
Блок схема:
Текст программы:
Private Sub Command1_Click()
b = Val(Text1)
m = b / 1024 ^ 2
g = m / 1024
Picture1.Print "Мегабайты = " & Format(m, "0.000")
Picture1.Print "Гигабайты = " & Format(g, "0.000000000")
End Sub
Задания третьего уровня сложности
Интерфейс программы:
Блок схема:
Текст программы:
Private Sub Command1_Click()
Picture1.Cls
V1 = Val(Text1)
t0 = Val(Text2)
t1 = Val(Text3)
V2 = Val(Text4)
t2 = Val(Text5)
c = 4190
k = 2.38
kpd = 30
s1 = (c * V1 * (t1 - t0) * k * 100) / kpd
s2 = (c * V2 * (t2) * k * 100) / kpd
s = (s1 + s2) / 1000
Picture1.Print "Стоимость = " & Round(s, 3)
End Sub