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

2 чел.

ЗВІТ

з лабораторної роботи № 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


 

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

15390. Генератор пилообразного напряжения 189.5 KB
  Реферат Курсовой проект выполнен в объеме 32 страниц содержит двенадцать рисунков использовано 4 источника. Разработанный генератор пилообразного напряжения может быть использован в контрольноизмерительной аппаратуре в цифроаналоговых преобразователях и т. п.
15392. Эффективность производства кормов в ОАО Сибирская Нива 342.5 KB
  ОАО Сибирская Нива Автогараж Ц.Р.М. Склад ГСМ Отделение №1 Отделение №2 Отделение №3 Зерносклад Введение Кормопроизводство является основополагающей отраслью сельского хозяйства научнотехнический уровень развити
15393. Анализ деятельности ООО «Артпак» 227 KB
  В период прохождения преддипломной практики мною была собрана и изучена информацию о предприятии ООО «Артпак», а так же дана организационно-экономическая характеристика предприятия.
15394. Анализ закрытого акционерного общества ГЕРМАСТ 207 KB
  1. Общая характеристика организации. Полное фирменное наименование: Закрытое акционерное общество €œГЕРМАСТ€ Сокращенное фирменное наименование: ЗАО €œГЕРМАСТ€. Местонахождение: Россия г. Нижний Новгород пр. Ленина д. 88. Почтовый адрес: 606004 Россия г...
15395. Этапы создания и перспективы развития европейского экономического валютного союза 174 KB
  Контрольная работа Дисциплина Финансы и кредит Тема: Этапы создания и перспективы развития европейского экономического валютного союза Введение Европейский Союз объединяет 15 европейских стран с целью обеспечения мира и процветания их г
15396. СУЩНОСТЬ, ФУНКЦИИ И ИСТОЧНИКИ ФОРМИРОВАНИЯ ПРИБЫЛИ 114 KB
  РЕФЕРАТ СУЩНОСТЬ ФУНКЦИИ И ИСТОЧНИКИ ФОРМИРОВАНИЯ ПРИБЫЛИ Введение В рыночной экономике особое место отводится предприятию способному выполнять исключительно важную функцию – €œзарабатывание прибыли€ Прибыль создает определен...
15397. Техника безопасности в походе 76.69 KB
  Правила безопасности перед выходом из лагеря населенного пункта Правила безопасности при движении Правила безопасности при прохождении скального рельефа Правила безопасности при страховке на скальном рельефе Правила безопасности при
15398. Размещение отраслей машиностроительного комплекса 79.5 KB
  КОНТРОЛЬНАЯ РАБОТА по дисциплине Экономическая география на тему: Размещение отраслей машиностроительного комплекса 1. Роль структура и уровень развития отраслей машиностроительного комплекса. Машиностроительный комплекс является ведущим среди межотр