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


 

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

74965. Дорогу осилит идущий, а математику - мыслящий 212 KB
  В игре принимают участие 2 команды 9х классов: команда Радиус радостные активные дружные изобретательные умные смелые команда Фигура физически развитые инициативные грамотные умелые развеселые азартные. Команды приветствуют друг друга зрителей объявляя название и расшифровку обривиатуру...
74966. Фалес Мілетський – давньогрецький математик і філософ 277.5 KB
  Мета: ознайомити учнів з фактами біографії Фалеса Мілетського та його внеском у розвиток математики розвивати пізнавальну активність мову творче мислення пам’ять виховувати любов до математики. Обладнання: ілюстрації з зображенням Фалеса сонячного затемнення...
74967. Материки Землі 417 KB
  Мета. Продовжувати формувати уявлення про глобус, карту півкуль, уміння читати карту, працювати з нею; Розвивати просторові уявлення, вміння висловлювати свої думки, сформувати уявлення про материки, їх природні умови, особливості рослинного та тваринного світу...
74968. Берегите матерей своих 52.5 KB
  Стихотворение Мать и дети Кто вас детки крепко любит Кто вас нежно так голубит Не смыкая ночью глаз Всё заботится о вас Мама дорогая Колыбель кто вам качает Кто вас песней забавляет Или сказку говорит Кто игрушки вам дарит Мама золотая...
74969. Народний календар юного бджоляра 845 KB
  Це - мед віск квітковий пилок прополіс маточне молочко бджолина отрута. Мета роботи: поглибити знання молоших школярів про різні аспекти бджільництва; сприяти виробленню стійкого інтересу до життя бджіл усвідомленню значення меду та інших продуктів бджільництва в житті людей.
74970. Букварний період 28 KB
  Мета уроку: Ознайомити дітей з буквою «Е», «е» та її звуковим значенням, закріплювати вміння розрізняти функціональне значення звука та букви, розвивати навички звуко-буквенного аналізу слів, формувати навички правильної вимови звуків у словах, збагачувати словниковий запас.
74971. Поняття про синтаксичні одиниці мови 23.5 KB
  Мета уроку: навчити учнів визначати граматичне значення речення дати поняття про присудок та підмет. Завдання уроку: Учити школярів визначати граматичне значення речення; визначати підмет та присудок; перевіряти орфограми слабких позицій звуків у різних частинах слів...
74972. Робота з природними матеріалами. Послідовність дій під час виготовлення виробів із природних матеріалів 30.5 KB
  Мета: розширити знання учнів про аплікацію удосконалити вміння складати предметну аплікацію з рослинного матеріалу підбирати листя за формою розміром кольором; розвивати художній смак творчі здібності фантазію; виховувати любов до природи бережне ставлення до навколишнього природного середовища.
74973. Мова – унікальна загальнолюдська цінність – неповторний спосіб пізнання професійного світу 158.5 KB
  Вищевказані відомості передбачають вміння майбутніх спеціалістів знаходити в тексті й доречно використовувати у професійному мовленні пароніми фахову термінологію; перекладати фахові тексти українською мовою; правильно записувати числівники та цифрову інформацію у професійних текстах...