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


 

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

42893. Дослідження цільових програм готельного обслуговування в Україна та світі 108.1 KB
  Ринок туристичних послуг€ провадиться описання характерних типів сегментованого ринку Любіцева О. Ринок туристичних послуг. Навчальний посібник “Уніфіковані технології готельних послуг†знадобився авторові при виділенні сукупності факторів що впливають на комплексність надання послуг у готельних підприємствах Лук‘янова Л.
42894. Моделирование динамических систем 652.61 KB
  Модель несёт системообразующую и смыслообразующую роль в научном познании. На модели изучают неизвестные свойства предметов. Модель стремится как можно более ярко выразить структуру явления, его главные аспекты; является концентрированным выражением сущности предмета или процесса, выделяя только его основные черты.
42895. Информационная система Проверка выполнения плана отгрузки продукции заказчикам 3.92 MB
  В процессе договорной компании составляется договор на поставку товаров. Договор состоит из двух частей: общей части, включающей в себя реквизиты заказчика и поставщика, предмет поставки и т. д. , и спецификации, в которой приводятся подробные сведения о товарах и сроках поставки. На основе договоров составляется финансовый план и разрабатываются цеховые помесячные планы выпуска товарной продукции.
42896. Методы и способы измерения толщины окисных пленок, диффузионных и эпитаксиальных слоев, их физические основы 851 KB
  Совершенствование технологии производства полупроводниковых материалов и приборов связано с необходимостью повышения точности и экспрессности лабораторного и промышленного контроля их электрофизических параметров. От качественных характеристик измерительной техники зависит уровень технологических потерь на различных этапах производства.
42897. Совершенствование учетной политики для целей налогообложения на примере ООО «Апекс» 144.45 KB
  Роль и значение налогового учета на предприятии 1.1 Понятие налогового учета цели задачи.2001 №110ФЗ 25 глава НК произошло законодательное закрепление ведения налогового учета. Налоговый учет доходов и расходов для целей исчисления налога на прибыль отделен от бухгалтерского учета и становится самостоятельным направлением учета фактов хозяйственной жизни организаций.
42898. The United States of America 52.88 KB
  The United States of America (also called the United States, the U.S., the USA, America, and the States) is a federal constitutional republic comprising fifty states and a federal district. The country is situated mostly in central North America, where its forty-eight contiguous states and Washington, D.C., the capital district, lie between the Pacific and Atlantic Oceans, bordered by Canada to the north and Mexico to the south. The state of Alaska is in the northwest of the continent, with Canada to the east and Russia to the west, across the Bering Strait.
42899. УПРАВЛЕНИЕ ПЕРСОНАЛОМ 46.06 KB
  Курсовая работа является самостоятельной научной работой студента и должна отражать приобретенные им знания и результаты исследования по общим и специальным разделам управления персоналом в рамках выбранной темы. Тематика курсового проектирования определяется программой дисциплины «Управление персоналом».
42900. Графіки в економічному моделюванні 140.48 KB
  В умовах ринкової системи управління виробничою і збутовою діяльністю підприємств і фірм в основі прийняття господарських рішень лежить ринкова інформація, а обгрунтованість рішень перевіряється ринком у ході реалізації товарів і послуг. При такому підході початковим пунктом усього циклу підприємницької діяльності стає вивчення споживчого попиту. Розглянемо деякі питання моделювання попиту і споживання.
42901. Бухгалтерский учет расчетов с бюджетом и внебюджетными фондами в ООО «Золотой Флок» 12.09 MB
  Еще Ф. Аквинский, известный церковный деятель и философ XIII в. высказывался о проблемах установления и сбора налогов следующим образом: он определял налоги, как «дозволенную форму грабежа». Речь идет о том, что взимание налогов всегда ущемляет чьи-то интересы и в определенной степени отягощает социальное положение.