Отчет по PowerPoint
.docxСанкт-Петербургский электротехнический университет «ЛЭТИ» им. Ульянова (Ленина)
Отчет по творческой работе в
Microsoft Power Paint
«Реализация теста по информатике»
Группа №5371
Факультет КТИ
Работу выполнили:
Локкина Олеся
Татулян Арутюн
Структура
Так как в работе использованы возможности Visual Basic for Application, после каждого слайда будет приведен листинг кода. Ниже приведены некоторые операторы:
Name_click () – считывается нажатие на объект класса name.
SlideShowWindows(1).View.Next – переключается презентацию на следующий слайд.
MsgBox («Текст») – служит для вывода сообщений в системном окне.
Name.Value = False – присваивает переключателю (Name) значение Fasle.
w – счетчик, учитывающий неверные ответы.
r – счетчик, учитывающий верные ответы.
Благодаря r и w, количество вопросов может быть любым, т.к. счетчики не зависят от их числа. Необходимо лишь «повторить» для последующих слайдов код.
1. Первый слайд представляет собой титульный лист авторов работы и кнопку для начала тестирования.
Код:
Dim r As Integer
Dim w As Integer
Sub CommandButton1_Click()
r = 0
w = 0
SlideShowWindows(1).View.Next
End Sub
2. Второй слайд включает 1-ый вопрос теста с четырьмя вариантами ответов.
Код:
Sub OptionButton1_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton1.Value = False
End Sub
Sub OptionButton2_click()
r = r + 1
MsgBox ("Ответ верный!")
SlideShowWindows(1).View.Next
OptionButton2.Value = False
End Sub
Sub OptionButton3_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton3.Value = False
End Sub
Sub OptionButton4_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton4.Value = False
End Sub
3. Третий слайд включает 2-ой вопрос теста с четырьмя вариантами ответов.
Код:
Sub OptionButton6_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton6.Value = False
End Sub
Sub OptionButton5_click()
r = r + 1
MsgBox ("Ответ верный!")
SlideShowWindows(1).View.Next
OptionButton6.Value = False
End Sub
Sub OptionButton7_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton7.Value = False
End Sub
Sub OptionButton8_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton8.Value = False
End Sub
4. Четвертый слайд включает 4-ый вопрос теста с четырьмя вариантами ответов.
Код:
Sub OptionButton9_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton9.Value = False
End Sub
Sub OptionButton10_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton10.Value = False
End Sub
Sub OptionButton11_click()
r = r + 1
MsgBox ("Ответ верный!")
SlideShowWindows(1).View.Next
OptionButton11.Value = False
End Sub
Sub OptionButton12_click()
w = w + 1
MsgBox ("Ответ неверный!")
SlideShowWindows(1).View.Next
OptionButton12.Value = False
End Sub
5. Пятый слайд является завершающим.
Код:
Sub CommandButton2_click()
TextBox1.Value = r
TextBox2.Value = w
End Sub
Sub CommandButton3_click()
TextBox1.Value = ""
TextBox2.Value = ""
SlideShowWindows(1).View.Next
End Sub
Описательная часть
В работе представлено три вопроса по теме Информатика. 1. В каком году появилась учебная дисциплина «Информатика» в СССР?
Правильный ответ: 1985
В школах СССР учебная дисциплина «Информатика» появилась в 1985 году одновременно с первым учебником А.П. Ершова «Основы информатики и вычислительной техники».
2. Какого числа отмечается День российской информатики?
Правильный ответ: 4 декабря
4 декабря отмечается День российской информатики, так как в этот день в 1948 году Государственный комитет Совета министров СССР по внедрению передовой техники в народное хозяйство зарегистрировал за номером 10 475 изобретение И. С. Брука и Б. И. Рамеева — цифровую электронную вычислительную машину.
3. Как называлась первая ЭВМ?
Правильный ответ: ENIAC
ЭНИАК (англ. ENIAC — Электронный числовой интегратор и вычислитель) — первый электронный цифровой компьютер общего назначения, который можно было перепрограммировать для решения широкого спектра задач.