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


 

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

18402. Графічний метод 61.5 KB
  Тема 13 Графічний метод. 13.1.Поняття статистичного графіка. 13.2.Основні елементи статистичних графіків. 13.3.Класифікація графіків. 13.4.Графіки рядів розподілу. 13.5.Графіки динаміки. 13.6.Графіки порівняння. 13.1.Поняття статистичного графіка. Статистичний графік ...
18403. КОНЦЕПТУАЛЬНІ ЗАСАДИ МОРАЛЬНО-ПСИХОЛОГІЧНОГО ЗАБЕЗПЕЧЕННЯ 315.5 KB
  КОНЦЕПТУАЛЬНІ ЗАСАДИ МОРАЛЬНО-ПСИХОЛОГІЧНОГО ЗАБЕЗПЕЧЕННЯ Військова діяльність завжди вимагала від людини спеціальної професійної підготовки і наявності сформованих морально-психологічних якостей. Залежність ходу й наслідків збройної боротьби від рівня підгот
18404. МОРАЛЬНО-ПСИХОЛОГІЧНЕ ЗАБЕЗПЕЧЕННЯ ПОВСЯКДЕННОЇ ДІЯЛЬНОСТІ ВІЙСЬК (СИЛ) 259.5 KB
  ЛЕКЦІЯ 2 МОРАЛЬНОПСИХОЛОГІЧНЕ ЗАБЕЗПЕЧЕННЯ ПОВСЯКДЕННОЇ ДІЯЛЬНОСТІ ВІЙСЬК СИЛ В ході повсякденної діяльності військ сил проводиться їх бойовий вишкіл формування у військовослужбовців високих моральнобойових якостей дисциплінованості та психологічної го
18405. СИСТЕМА МОРАЛЬНО-ПСИХОЛОГІЧНОГО ЗАБЕЗПЕЧЕННЯ ПІДГОТОВКИ ТА ВЕДЕННЯ БОЙОВИХ ДІЙ (ОПЕРАЦІЙ) 199.5 KB
  СИСТЕМА МОРАЛЬНО-ПСИХОЛОГІЧНОГО ЗАБЕЗПЕЧЕННЯ ПІДГОТОВКИ ТА ВЕДЕННЯ БОЙОВИХ ДІЙ ОПЕРАЦІЙ Оцінка воєннополітичної обстановки у світі та навколо України прогноз її розвитку на найближчу перспективу дозволяють воєннополітичному к
18406. ОРГАНІЗАЦІЯ МОРАЛЬНО-ПСИХОЛОГІЧНОГО ЗАБЕЗПЕЧЕН-НЯ ПІДГОТОВКИ ТА ЗАСТОСУВАННЯ ВІЙСЬК (СИЛ) 237 KB
  ЛЕКЦІЯ 4. ОРГАНІЗАЦІЯ МОРАЛЬНО-ПСИХОЛОГІЧНОГО ЗАБЕЗПЕЧЕННЯ ПІДГОТОВКИ ТА ЗАСТОСУВАННЯ ВІЙСЬК СИЛ Розвиток воєнної науки на сучасному етапі характеризується посиленням вимог до командирів штабів усіх посадових осіб щодо оперативної діяльності в складних умовах....
18407. ОСОБЛИВОСТІ МПЗ ПІДГОТОВКИ ТА ЗАСТОСУВАННЯ ЧАСТИН І З’ЄДНАНЬ ЗБРОЙНИХ СИЛ УКРАЇНИ 383 KB
  ОСОБЛИВОСТІ МПЗ ПІДГОТОВКИ ТА ЗАСТОСУВАННЯ ЧАСТИН І З’ЄДНАНЬ ЗБРОЙНИХ СИЛ УКРАЇНИ Бойовий досвід свідчить про те що яка б велика не була роль технічної оснащеності військ але навіть сама досконала техніка і першокласна зброя не можуть...
18408. КОНЦЕПТУАЛЬНО-МЕТОДОЛОГИЧЕСКИЕ ОСНОВЫ ЛОГИСТИКИ 144.5 KB
  ЛЕКЦИЯ 1 Тема 1 КОНЦЕПТУАЛЬНО-МЕТОДОЛОГИЧЕСКИЕ ОСНОВЫ ЛОГИСТИКИ Глоссарий Военная логистика совокупность средств и способов необходимых для доставки людей техники боеприпасов к месту ведения боевых действий а также планирование и организация мероприятий п
18409. Цели и задачи логистики 196 KB
  ЛЕКЦИЯ 2 5. Цели и задачи логистики Главной целью логистики является обеспечение конкурентоспособных позиций организации бизнеса на рынке. Этого логистика добивается посредством управления потоковыми процессами на основе следующих правил: доставка с минима
18410. Причины осуществления закупок у внешних поставщиков 149.5 KB
  Лекция 3 Причины осуществления закупок у внешних поставщиков: потребность в комплектующем изделии невелика и его производство не является частью основной деятельности организации; организации не хватает административного или технического опыта для производства н...