23821

Спроектував програмний додаток, за допомогою якого можна проводити тестування знань в області міжнародних відносин

Практическая работа

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

По завершенню ви можете переглянути остаточний результат Правила Label1. У якому році було засновано ООН Label2. у 1945 Label3. у 1946 Label4.

Украинкский

2013-08-05

112 KB

0 чел.

ЗВІТ

з комп’ютерного практикуму

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

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

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

Виконання роботи:

  1.  Спроектував програмний додаток, за допомогою якого можна проводити тестування знань в області міжнародних відносин. Тест складається з 10 питань. До кожного питання пропонується три варіанти відповіді. В результаті тестування користувач отримує оцінку своїх знань.

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

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

Dim k1, k2, k3, k4, k5, k6, k7, k8, k9, k10 As Integer

Private Sub Form_Load()

Dim k As Integer, f As String

MsgBox "Вітаємо на тестуванні", , "Привіт!"

MsgBox "Прочитайте питання і натисніть на відповідну кнопку, щоб дати на нього відповідь. У вікні, що з'явилося впишіть 1,2 або 3 та натисніть ОК. По завершенню ви можете переглянути остаточний результат", , "Правила"

Label1.Caption = "Питання №1. У якому році було засновано ООН?"

Label2.Caption = "1. у 1945"

Label3.Caption = "2. у 1946"

Label4.Caption = "3. у 1950"

End Sub

Private Sub Command4_Click()

k = 0

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "1" Then k1 = k + 1 Else: k1 = k

If e = "1" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №2. У якому місті розташовується штаб-квартира ЮНЕСКО?"

Label2.Caption = "1. Брюссель"

Label3.Caption = "2. Женева"

Label4.Caption = "3. Париж"

End Sub

Private Sub Command1_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "3" Then k2 = k1 + 1 Else: k2 = k1

If e = "3" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №3. Яка з цих країн не вступила до Євросоюзу у 2004 році"

Label2.Caption = "1.Мальта"

Label3.Caption = "2. Ліхтенштейн"

Label4.Caption = "3. Кіпр"

End Sub

Private Sub Command2_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If f = "2" Then k3 = k2 + 1 Else: k3 = k2

If e = "2" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №4. Скільки країн є членами об'єднання НАФТА?"

Label2.Caption = "1.3"

Label3.Caption = "2.6"

Label4.Caption = "3.27"

End Sub

Private Sub Command3_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If f = "1" Then k4 = k3 + 1 Else: k4 = k3

If e = "1" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №5. В якому році відбувся Віденський конгрес? "

Label2.Caption = "1. 1918"

Label3.Caption = "2. 1815"

Label4.Caption = "3. 1648"

End Sub

Private Sub Command5_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "2" Then k5 = k4 + 1 Else: k5 = k4

If e = "2" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №6. Хто зараз є генеральним секретарем ООН?"

Label2.Caption = "1. Хуань Шикай"

Label3.Caption = "2. Кофі Анан"

Label4.Caption = "3. Пан Гі Мун"

End Sub

Private Sub Command6_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "3" Then k6 = k5 + 1 Else: k6 = k5

If e = "3" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №7. У якому році було створено НАТО?"

Label2.Caption = "1. 1949"

Label3.Caption = "2. 1957"

Label4.Caption = "3. 1991"

End Sub

Private Sub Command7_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "1" Then k7 = k6 + 1 Else: k7 = k6

If e = "1" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №8. Яка з цих країн не є постійним членом Ради Безпеки ООН?"

Label2.Caption = "1.Китай"

Label3.Caption = "2. Індія"

Label4.Caption = "3. Франція"

End Sub

Private Sub Command8_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "2" Then k8 = k7 + 1 Else: k8 = k7

If e = "2" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №9. Де розміщена штаб-квартира ГУАМ?"

Label2.Caption = "1.Київ"

Label3.Caption = "2. Лондон"

Label4.Caption = "3. Тбілісі"

End Sub

Private Sub Command9_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "1" Then k9 = k8 + 1 Else: k9 = k8

If e = "1" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

Label1.Caption = "Питання №10. Скільки зірочок на прапорі Євросоюзу"

Label2.Caption = "1.7"

Label3.Caption = "2.12"

Label4.Caption = "3.27"

End Sub

Private Sub Command10_Click()

f = InputBox("Ваш варіант відповіді", "")

e = Val(f)

If e = "2" Then k10 = k9 + 1 Else: k10 = k9

If e = "2" Then Label5.Caption = "Правильно" Else: Label5.Caption = "Неправильно"

End Sub

Private Sub Command11_Click()

Text2.Text = Str(k10)

Text1.Text = Str(k10 * 10)

End Sub

  1.  Спроектував програмний додаток для побудови когнітивної моделі системи та аналізу причинно-наслідкових зв’язків.

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

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

Private Sub FORM_LOAD()

MsgBox "ВІТАЄМО У ПРОГРАМІ ДЛЯ ПОБУДОВИ КОГНІТИВНОЇ МОДЕЛІ", , "ЛАСКАВО ПРОСИМО!"

Label5.Caption = InputBox("ВВЕДІТЬ ОПИС ПІДСИСТЕМИ №1")

Label6.Caption = InputBox("ВВЕДІТЬ ОПИС ПІДСИСТЕМИ №2")

Label7.Caption = InputBox("ВВЕДІТЬ ОПИС ПІДСИСТЕМИ №3")

Label8.Caption = InputBox("ВВЕДІТЬ ОПИС ПІДСИСТЕМИ №4")

MsgBox "ВВЕДІТЬ ІСНУЮЧІ ЗВЯЗКИ МІЖ ПІДСИСТЕМАМИ І ЗАЗНАЧТЕ ЇХ ТИП"

End Sub

Private Sub Command1_Click()

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

Picture1.Circle (2, 2), 0.1

Picture1.Print " A"

Picture1.Circle (8, 2), 0.1

Picture1.Print "  D"

Picture1.Circle (2, 8), 0.1

Picture1.Print "   B"

Picture1.Circle (8, 8), 0.1

Picture1.Print "  C"

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

End Sub

Private Sub Command2_Click()

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

Picture1.Circle (2, 2), 0.1

Picture1.Print " A"

Picture1.Circle (8, 2), 0.1

Picture1.Print "  D"

Picture1.Circle (2, 8), 0.1

Picture1.Print "   B"

Picture1.Circle (8, 8), 0.1

Picture1.Print "  C"

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

End Sub

Private Sub Command3_Click()

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

End Sub

Private Sub Command4_Click()

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

End Sub

Private Sub Command5_Click()

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

End Sub

Private Sub Command6_Click()

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

End Sub

Private Sub Command7_Click(Index As Integer)

Picture1.PSet (1.7, 5)

Picture1.Print "+"

End Sub

Private Sub Command8_Click(Index As Integer)

Picture1.PSet (1.7, 5)

Picture1.Print "-"

End Sub

Private Sub Command9_Click()

Picture1.PSet (4.7, 4.5)

Picture1.Print "+"

End Sub

Private Sub Command10_Click()

Picture1.PSet (4.7, 4.5)

Picture1.Print "-"

End Sub

Private Sub Command11_Click()

Picture1.PSet (5.2, 2.4)

Picture1.Print "+"

End Sub

Private Sub Command12_Click()

Picture1.PSet (5.2, 2.4)

Picture1.Print "-"

End Sub

Private Sub Command13_Click()

Picture1.PSet (5, 8.4)

Picture1.Print "+"

End Sub

Private Sub Command14_Click()

Picture1.PSet (5, 8.4)

Picture1.Print "-"

End Sub

Private Sub Command15_Click()

Picture1.PSet (5.8, 4.5)

Picture1.Print "+"

End Sub

Private Sub Command16_Click()

Picture1.PSet (5.8, 4.5)

Picture1.Print "-"

End Sub

Private Sub Command17_Click()

Picture1.PSet (8.2, 5)

Picture1.Print "+"

End Sub

Private Sub Command18_Click()

Picture1.PSet (8.2, 5)

Picture1.Print "-"

End Sub

  1.  Спроектував програмний додаток для проведення та обробки результатів експертного опитування.

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

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

Private Sub Form_Load()

MsgBox "Вас вітає програма для обробки результатів експертного опитування", , "Ласкаво просимо!"

Label2.Caption = InputBox("Введіть опис першого фактору")

Label3.Caption = InputBox("Введіть опис другого фактору")

Label4.Caption = InputBox("Введіть опис третього фактору")

Label5.Caption = InputBox("Введіть опис четвертого фактору")

Label6.Caption = InputBox("Введіть опис п'ятого фактору")

Label7.Caption = InputBox("Введіть опис шостого фактору")

MsgBox "Виставте відповідні оцінки у таблицю і натисніть ОБЧИСЛИТИ", , "Результати опитування експертів"

End Sub

Private Sub Command1_Click()

a = Val(Text1(0).Text)

b = Val(Text1(1).Text)

c = Val(Text1(2).Text)

d = Val(Text1(3).Text)

R = a + b + c + d

Label11.Caption = R

a1 = Val(Text2(0).Text)

b1 = Val(Text2(1).Text)

c1 = Val(Text2(2).Text)

d1 = Val(Text2(3).Text)

R1 = a1 + b1 + c1 + d1

Label12.Caption = R1

a2 = Val(Text3(0).Text)

b2 = Val(Text3(1).Text)

c2 = Val(Text3(2).Text)

d2 = Val(Text3(3).Text)

R2 = a2 + b2 + c2 + d2

Label13.Caption = R2

a3 = Val(Text4(0).Text)

b3 = Val(Text4(1).Text)

c3 = Val(Text4(2).Text)

d3 = Val(Text4(3).Text)

R3 = a3 + b3 + c3 + d3

Label14.Caption = R3

a4 = Val(Text5(0).Text)

b4 = Val(Text5(1).Text)

c4 = Val(Text5(2).Text)

d4 = Val(Text5(3).Text)

R4 = a4 + b4 + c4 + d4

Label15.Caption = R4

a5 = Val(Text6(0).Text)

b5 = Val(Text6(1).Text)

c5 = Val(Text6(2).Text)

d5 = Val(Text6(3).Text)

R5 = a5 + b5 + c5 + d5

Label16.Caption = R5

q = 14

R_ = q - R

Label21.Caption = R_

Label27.Caption = R_ ^ 2

A0 = R_ ^ 2

R11 = q - R1

Label22.Caption = R11

Label28.Caption = R11 ^ 2

B0 = R11 ^ 2

R12 = q - R2

Label23.Caption = R12

Label29.Caption = R12 ^ 2

C0 = R12 ^ 2

R13 = q - R3

Label24.Caption = R13

Label30.Caption = R13 ^ 2

D0 = R13 ^ 2

R14 = q - R4

Label25.Caption = R14

Label31.Caption = R14 ^ 2

E0 = R14 ^ 2

R15 = q - R5

Label26.Caption = R15

Label32.Caption = R15 ^ 2

F0 = R15 ^ 2

K = A0 + B0 + C0 + D0 + E0 + F0

Label34.Caption = K

W = K / 280

Label37.Caption = W

If W > 0.5 Then MsgBox "Думки експертів узгоджені" Else MsgBox "Думки експертів не погоджені"

If W > 0.5 Then Label20.Caption = "Думки експертів узгоджені" Else Label20.Caption = "Думки експертів не погоджені"

End Sub


 

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

43839. Программный комплекс классифицирования выпускников вуза (учебный аспект) 3.2 MB
  Разработка структуры данных Разработка инфологической модели данных Разработка даталогической модели данных Проектирование схемы базы данных
43840. Гражданско-правовое положение акционерного общества 649 KB
  Российское законодательство со всей очевидностью отдает предпочтение форме акционерного общества предоставляя ему право осуществлять практически любые виды предпринимательской деятельности. Одновременно существует убеждение что коммерческая организация в процессе своего функционирования не только вправе осуществлять любые виды деятельности и совершать любые сделки но и что это допустимо независимо от ее финансового состояния. ГК РФ устанавливает что...
43841. Сущность права на иск в гражданском и арбитражном процессе 384.5 KB
  Понятие иска. Элементы иска. Предпосылки права на предъявление иска. Порядок предъявления иска и последствия его не соблюдения в гражданском процессе.
43842. Разработка системы спутникового приема, с учетом обеспечения требуемого количества телевизионных сигналов, информационных потоков и сигналов IP- телефонии 1.18 MB
  Первые искусственные спутники земли ИСЗ выводились носителями мощности которых не хватало для вывода груза на геостационарную орбиту. Прием телевизионных и других информационных сигналов мы будем осуществлять с...
43843. Моделирование на ARIS бизнес-процессов с учётом требований безопасности 1.08 MB
  Темой дипломной работы является: âМоделирование на RIS бизнеспроцессов с учётом требований безопасности. Объектом исследования являются∙ инструментальная среда RIS регламент Центра сертификации ключей ЗАО Инфраструктура открытых ключей. Цели и задачи исследования ознакомление с принципами работы инструментальной среды RIS способами моделирования бизнеспроцессов. моделирование регламента Центра сертификации ключей ЗАО Инфраструктура открытых ключей с учётом требований безопасности...
43844. Правове регулювання укладання та виконання господарських договорів 649.5 KB
  Загальна характеристика зобовязальних правовідносин Поняття та склад зобовязання Норми які регулюють зобовязання становлять один із найважливіших інститутів цивільного права зобовязальне право. Норми зобовязального права є найбільш значною частиною цивільного законодавства. Система зобовязального права складається із інститутів Загальної частини та інститутів Особливої частини. Загальна частина включає: поняття зобовязання сторони в зобовязанні; виконання зобовязання; забезпечення виконання зобовязання; припинення...
43845. Пластиковые карты, как один из видов банковского продукта на примере АКБ «Московский залоговый банк» 4.93 MB
  Мировая практика проведения расчетов по кредитным картам свидетельствует о том, что использование карты значительно упрощает процесс покупки товара или услуги, равно как и хранения и защиты своих сбережений. Пластиковая карта позволяет ее владельцу оперативно и без проблем получать наличные в любое время суток, пользоваться разнообразными скидками при покупке товаров и услуг, контролировать свои расходы за определенные периоды времени.
43846. Реконструкция схемы электроснабжения “Черемшанка” Курагинского района 1.38 MB
  Коммунально – бытовой сектор поселка “Черемшанка” обслуживают две трансформаторных подстанций 10/0,38 кВ. Потребительские воздушные линии выполнены проводом АС – 35. Общее количество домов составляет 160 штук и в них проживает 944 человека. Кроме этого, в селе имеются социально – культурные учреждения: клуб, магазины, школа, больница, сельский совет и т. д.
43847. Оптимізація транспортних мереж NGN на основі технології IP/MPLS для боротьби з пульсаціями мультисервісного трафіку та досягнення заданих показників якості обслуговування 1.67 MB
  1 АНАЛІЗ ПОБУДОВИ ТРАНСПОРТНОЇ МЕРЕЖІ НА ОСНОВІ ТЕХНОЛОГІЇ MPLS.2 Особливості побудови транспортної мережі NGN.3 Маршрутизація в мережі з комутацією по міткам. 2 ОБҐРУНТУВАННЯ ВИБОРУ МЕТОДА ОПТИМІЗАЦІЇ ТРАНСПОРТНОЇ МЕРЕЖІ ІР MPLS.