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


 

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

9875. Буровые растворы на водной основе, область их использования 16.27 KB
  Буровые растворы на водной основе, область их использования. Вода: В результате использования технической и морской воды вместо глинистого раствора проходка на долото повышается на 15-20%, а механическая скорость проходки повышается 25-40%. Вода как...
9876. Растворы на неводной (УВ) основе. Область их применения 15.43 KB
  Растворы на неводной (УВ) основе. Область их применения. В целях сохранения коллекторских свойств пластов и предупреждения осложнений при бурении стали применять БР на нефтяной основе. Они предназначены для вскрытия и освоения продуктивных пластов и...
9877. Долота режущего режуще-истирающего типа 19.19 KB
  Долота режущего режуще-истирающего типа 1)Пилообразные однолопастное долото. Существует два типа таких долот: Ц и Р. Используется для расширения и проработки скважины, как правило в не очень твердых породах. 2)Двух лопастное долото, обозначается 2Л ...
9878. Конструкция шарошечных долот. Правила эксплуатации и отработка 19.04 KB
  Конструкция шарошечных долот. Правила эксплуатации и отработка. Изобретение шарошечного долота внесло переворот во вращательное бурение. Это наиболее применяемый тип долот при бурении сплошным забоем. Отличается от других типов долот следующим: 1)Ме...
9879. Осложнение в процессе бурения. Виды осложнений и причины их возникновения 18.45 KB
  Осложнение в процессе бурения. Виды осложнений и причины их возникновения. Нарушение нормального процесса бурения, которые требуют без отлагательных и эффективных мер называется осложнением (О). К О относятся: 1)Поглощение буровых и тампонажных раст...
9880. Легкосплавные бурильные трубы. Область их использования. Легко-сплавные бурильные трубы (ЛБТ) 15.41 KB
  Легкосплавные бурильные трубы. Область их использования. Легко-сплавные бурильные трубы (ЛБТ) Увеличение глубины скважины поставило задачу снижения нагрузки на крюке, были созданы трубы из легких сплавов - дюралюминия Д16Т, механические свойств...
9881. УБТ и ведущие трубы, их назначение и конструкция 14.46 KB
  УБТ и ведущие трубы, их назначение и конструкция. Ведущие трубы. Передают вращение от ротора к бурильным трубам. Состоят из толстостенной квадратной штанги, верхнего переводника для соединения с вертлюгом, и нижнего штангового переводника. Наиболее ...
9882. НГВП при бурении скважин. Причины и признаки НГВП 15.48 KB
  НГВП при бурении скважин. Причины и признаки НГВП. Наиболее серьезен из видов осложнений, т.к. не ликвидированные НГВП может переходит в неуправляемый открытый фонтан, на ликвидацию которого тратится много времени и средств, иногда эти фонтаны возго...
9883. Меры предупреждения и ликвидации НГВП при бурении скважин 50.64 KB
  Меры предупреждения и ликвидации НГВП при бурении скважин. Действия при получении первых признаков НГВП: Может быть 3 ситуации: 1)когда инструмент находится на забое и в скважине 2)когда инструмент находится в процессе подъема или спуска 3)инструм...