23826

Процедури та функції

Лабораторная работа

Информатика, кибернетика и программирование

Caption = InputBox Введіть значення інформаційного ресурсу країни C End Sub Function nA B C As Integer Picture1.Scale 0 1010 0 Picture1.1 Picture1.Print A Picture1.

Украинкский

2013-08-05

80 KB

3 чел.

ЗВІТ

з лабораторної роботи № 7

" Процедури та функції"

виконав студент IІ курсу відділення МІ група 2  

Киричук Олег Романович 

Дата виконання "17" грудня 2008 р.

Виконання завдань:

  1.  Створив додаток, що повертає значення могутності держави

Вигляд вікна робочого додатка:

Програмний код додатка:

Private Sub Form_Load()

Dim a, b, c As Single

Label1.Caption = InputBox("Введіть назву країни")

Label7.Caption = InputBox("Введіть чисельність населення")

Label8.Caption = InputBox("Введіть об'єм ВНП")

Label9.Caption = InputBox("Введіть суму витрат на військові цілі")

End Sub

Private Sub Command1_Click()

a = Val(Label7.Caption)

b = Val(Label8.Caption)

c = Val(Label9.Caption)

Call Power(a, b, c, P1)

P1 = CInt(P1)

Label3.Caption = Str(P1)

End Sub

Private Function Power(a, b, c, P1) As Long

P1 = 0.37 * a ^ 0.41 * b ^ 0.62 * c ^ 0.28

End Function

  1.  Створив додаток, що перевіряє, чи введений рядок не закінчується на крапку, знак оклику чи знак питання.

Вигляд вікна робочого додатка:

 Програмний код додатка: 

Private Sub Form_Load()

Dim a As String

Label1.Caption = InputBox("Введіть рядок")

End Sub

Private Sub Command1_Click()

a = Right(Label1.Caption, 1)

Call A1(a)

End Sub

Private Function A1(a) As String

If a = "." Or a = "!" Or a = "?" Then

Label3.Caption = "ТАК"

Else

Label3.Caption = "НІ"

End If

End Function

  1.  Створив додаток, який малює граф обміну інформаційними ресурсами між трьома країнами.

Вікно робочого додатка:

Програмний код додатка:

Private Sub Command1_Click()

Call n(A, B, C)

Call Triangle(A, B, C)

End Sub

Private Sub Form_Load()

Label4.Caption = InputBox("Введіть значення інформаційного ресурсу країни А")

Label5.Caption = InputBox("Введіть значення інформаційного ресурсу країни B")

Label6.Caption = InputBox("Введіть значення інформаційного ресурсу країни C")

End Sub

Function n(A, B, C) As Integer

Picture1.Scale (0, 10)-(10, 0)

Picture1.Circle (2, 3), 0.1

Picture1.Print " A"

Picture1.Circle (8, 3), 0.1

Picture1.Print "  B"

Picture1.Circle (5, 8), 0.1

Picture1.Print "   C"

Picture1.Line (2.1, 3.1)-(7.9, 3.1)

Picture1.Line (2.1, 3.1)-(4.9, 7.9)

Picture1.Line (5.1, 7.9)-(7.9, 3.1)

End Function

Function Triangle(A, B, C) As Single

A = Val(Label4.Caption)

B = Val(Label5.Caption)

C = Val(Label6.Caption)

If A > B Then

Picture1.PSet (7.6, 2.9)

Picture1.Print "--"

Picture1.PSet (2.5, 2.9)

Picture1.Print "+"

Else

Picture1.PSet (7.6, 2.9)

Picture1.Print "+"

Picture1.PSet (2.5, 2.9)

Picture1.Print "--"

End If

If A > C Then

Picture1.PSet (4.4, 7.9)

Picture1.Print "--"

Picture1.PSet (2.5, 3.3)

Picture1.Print "+"

Else

Picture1.PSet (4.4, 7.9)

Picture1.Print "+"

Picture1.PSet (2, 3.7)

Picture1.Print "--"

End If

If B > C Then

Picture1.PSet (5.8, 7.9)

Picture1.Print "--"

Picture1.PSet (7.9, 3.7)

Picture1.Print "+"

Else

Picture1.PSet (5.8, 7.9)

Picture1.Print "+"

Picture1.PSet (7.9, 3.7)

Picture1.Print "--"

End If

End Function

  1.  Створив додаток, що повертає ціле випадкове число в заданому інтервалі.

Вікно працюючого додатка:

Програмний код додатка:

Private Sub Form_Load()

Label1.Caption = InputBox("Введіть початок діапазону")

Label2.Caption = InputBox("Введіть кінець діапазону")

End Sub

Private Sub Command1_Click()

Dim a, b As Single

a = Val(Label1.Caption)

b = Val(Label2.Caption)

Call Random(a, b, n)

Label4.Caption = Str(n)

End Sub

Private Function Random(a, b, n) As Integer

n = Int((b - a + 1) * Rnd + a)

End Function


 

А также другие работы, которые могут Вас заинтересовать

78777. Психолого-педагогическое сопровождение развития компонентов самосознания у старшеклассников 2.18 MB
  В каждом человеке заложено стремление к самоактуализации самораскрытию которое невозможно без осознание себя как личности и осознания своего места в мире. Зарубежная психологическая наука имеет богатую историю исследования самосознания личности.
78778. Цеолитный катализатор селективного восстановления монооксида азота Mn-Fe/Beta: спектральное и каталитическое исследование 4.18 MB
  Простым и дешёвым способом контроля содержания оксидов азота в отработанных газах является очистка исходной смеси от азотсодержащих соединений. Однако этот способ неприменим для уже существующих двигателей и установок на заводах. Наиболее дорогим, но способным полностью...
78779. ІНСТРУМЕНТАЛЬНИЙ АСПЕКТ ДОСЛІДЖЕННЯ ВПЛИВУ ГЛОБАЛІЗАЦІЇ НА ФОРМУВАННЯ ДЕРЖАВНОЇ ІНФОРМАЦІЙНОЇ ПОЛІТИКИ 165.5 KB
  На сьогоднішній день практика становлення державної інформаційної політики випереджає процес її теоретичного осмислення. Цей процес знаходиться в прямій залежності від процесів наукової обгрунтованості та ефективності політичної ідеології держави, її світоглядного забезпечення.
78781. ВЗАИМОСВЯЗЬ ЛИЧНОСТИ И ПРОФЕССИОНАЛЬНОЙ ОРИЕНТАЦИИ 371 KB
  При удачном выборе профессии вера в своё призвание может избавить молодого человека от ненужных колебаний и сомнений. Можно констатировать, что перед личностью возникают проблемы, требующие от неё определения своего отношения к профессиям, иногда анализа и рефлексии собственных...
78782. Усовершенствование надзорных функций Национального банка Республики Беларусь 1.01 MB
  Банки необходимый финансовый институт на данном этапе развития. При постоянном наличии средств на корсчете а также при имеющейся возможности привлекать их со стороны в случае необходимости никаких проблем с платежеспособностью у банка не будет.
78783. Робота з базами даних в MS Excel 2010 1.88 MB
  Excel вміє складати, віднімати, множити, ділити і виконувати безліч інших операцій. Excel дає можливість попередньо проаналізувати наслідки прийняття тих чи інших рішень при конкретних обставинах. Excel дозволяє автоматизувати не тільки розрахунки як такі...
78784. ФАКТОРЫ РИСКА ХРОНИЧЕСКИХ НЕИНФЕКЦИОННЫХ ЗАБОЛЕВАНИЙ В НЕОРГАНИЗОВАННОЙ ПОПУЛЯЦИИ МУЖЧИН ТРУДОСПОСОБНОГО ВОЗРАСТА 2.48 MB
  В процессе диспансеризации неорганизованной популяции мужчин трудоспособного возраста изучить особенности структуры и распространенность факторов риска хронических неинфекционных заболеваний, их динамику в условиях пятилетнего проспективного наблюдения...
78785. ПОВЫШЕНИЕ ЭФФЕКТИВНОСТИ СОВРЕМЕННЫХ ФОРМ И МЕТОДОВ РЕКЛАМНОЙ ДЕЯТЕЛЬНОСТИ В СИСТЕМЕ МАРКЕТИНГОВЫХ КОММУНИКАЦИЙ 2.02 MB
  Исходя из этого для обеспечения конкурентоспособности авиакомпаниям требуется проводить постоянный поиск новых или совершенствование известных форм методов моделей рекламной деятельности в системе маркетинговых коммуникаций на предприятиях авиационной отрасли позволяющих...