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


 

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

31444. Материя и движение. Движение – способ существования материи. Диалектика абсолютного и относительного движения. Движение и покой 28.5 KB
  Диалектика абсолютного и относительного движения. В онтологическом смысле материя это бесконечное множество всех существующих в мире объектов и систем субстрат любых свойств связей отношений и форм движения; в мире нет ничего кроме движущейся материи . Относительность: нет просто движения движения вообще а есть только его отдельные формы ограничение его исторически и локально в пространстве. Прекращение одних форм движения замещается возникновением др.
31445. Пространство и время - формы существования материи. Развитие представлений о пространстве и времени в истории философской и научной мысли. Проблема взаимосвязи категорий «материя», «движение», «пространство» и «время». Значение теории относительности для 28.5 KB
  Развитие представлений о пространстве и времени в истории философской и научной мысли. В истории философии сложилось 2 концепции пространства и времени 1 В античности Демокрит и Эпикур. Именно матери определяет свойства пространства и времени. Свойства пространства и времени: общие и частные.
31446. Диалектика и её альтернативы (метафизика и релятивизм, эклектика) Объективная и субъективная диалектика. Диалектика как метод научного познания и как система знаний (общая характеристика). Принцип диалектики и их взаимосвязь 35 KB
  Диалектика и её альтернативы метафизика и релятивизм эклектика Объективная и субъективная диалектика. Диалектика как метод научного познания и как система знаний общая характеристика. Диалектика учение о всеобщих разнообразиях всеобщих взаимосвязях объект Диалектика искусство вести беседу суб Диалектика как метод используется как обобщенное систематизированное знание используемое в практике нового исследования. Диалектикасистема принципов категорий и законов которыми руководствуется человек в своей познавательной и...
31447. Категории диалектики. «Единичное», «особенное», «всеобщее» 25.5 KB
  Единичное особенное всеобщее. Например единичное и общее. Группы: категории предметные 2категории отношения единичное и всеобщее служебная категория особенное. Единичное отдельный обладающий индивидуальной качественной и количественной определенностью предмет ограниченный в пространстве и во времен от других предметов.
31448. Категории диалектики. «Вещь», «свойство», «отношение». «Часть» и «целое» 26.5 KB
  У каждой науки есть свои категории. Философские категории это предельно общие универсальные понятия отражающих взаимосвязь всех предметов действительности. Философские категории строятся парами они противостоят друг ругу но не могут существовать друг без друга.
31449. Категории диалектики. «Система» - «структура» - «элемент». Принцип системности в научном познании 30.5 KB
  Система структура элемент. Группы: категории предметные 2категории отношения СИСТЕМА СТРУКТУРА ЭЛЕМЕНТ Элемент относительно самостоятельная качественноопределенная составная часть сложного целого. Далеко не любая часть вещи её элемент а только самая простая неделимая далее. Элемент позволяет в каждой системе обозначить относит её границы т.
31450. Категории диалектики. «Содержание» и «форма». Формализм 27 KB
  Содержание и форма. Группы: категории предметные 2категории отношения Содержание это единство всех основных элементов объекта его свойств внутренних процессов связей тенденций развития. Содержание всегда определенным образом оформлено форма всегда содержательна. Поэтому закон необходимого соответствия определенной формы определенному содержанию: содержание изменяется быстрее чем форма а значит является ведущей определяющей стороной в развитии.
31451. Категории диалектики. «Сущность» и «явление», их взаимосвязь. Категория «кажимость» («видимость») 27.5 KB
  Философские категории это предельно общие универсальные понятия отражающих взаимосвязь всех предметов действительности. Сущность отражает внутреннюю внешне не воспринимаемую сторону предметов и явлений. Отношение взаимосвязь предметов и явлений мира. Взаимосвязь взаимообусловленность предметов разделенных в пространстве и во времени и обнаруживается обусловленность лишь в процессе их взаимодействия.
31452. Категории «причина» и «следствие», их диалектика. Принцип причинности и принцип детерминизма, их роль в научном познании. Индетерминизм 25 KB
  Принцип причинности и принцип детерминизма их роль в научном познании. Для реализации причинно следственных отношений большое значение имеют условия связи предмета с факторами внешнего окружения. При увеличении роли условии и подмена ими причинно следственных связей философ называется кандиционализмом. Причинность является генетической зависимостью одно явление порождает другое явление.