Главная Контакты В избранное
  • Отчет по лабораторной работе № 2 “Управляющие элементы, ввод-вывод данных, программа линейной структуры” Вариант №8

    АвторАвтор: student  Опубликовано: 7-12-2020, 21:42  Комментариев: (0)

    Скачать: tema-2.rar [104 Kb] (cкачиваний: 0)  

     

     

    Отчет

    по лабораторной работе № 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

    скачать dle 10.6фильмы бесплатно