Microsoft PowerPoint에서 객관식 퀴즈를 만드는 방법은 다음과 같습니다.

마이크로 소프트 파워 포인트는다양한 프레젠테이션 슬라이드를 만들기 위해 Microsoft에서 제공하는 Office 패키지 Microsoft Power Point를 사용하여 흥미롭지 않은 퀴즈 게임과 같은 퀴즈를 만들 수도 있습니다.

이 응용 프로그램은 사무실 사람과 사업 사람들, 교육자, 학생 및 트레이너가 널리 사용합니다.

현재 대부분의 교육 또는 교사는 프레젠테이션의 수단으로 또는 학습 미디어를 만들기 위해 Microsoft Power Point를 사용합니다.

Microsoft PowerPoint에서 객관식 퀴즈를 만드는 방법

파워 포인트를 사용하면 작동 할 수 있습니다 VBA (Visual Basic Application) Power Point를 사용하여 평가 점수를 매기는 방법이 널리 개발되었습니다. Microsoft PowerPoint에서 객관식 퀴즈를 만드는 방법은 다음과 같습니다.

1. 먼저 마이크로 소프트 파워 포인트 컴퓨터 나 랩톱에서 생성 할 슬라이드 퀴즈의 테마를 지정하십시오.

2. 그런 다음 슬라이드 예제에서 퀴즈 문제를 만듭니다. 그림의 예를 참조하십시오.

3. 그런 다음 슬라이드 2,3,4 등에서 다음 예와 같이 객관식 퀴즈 질문을합니다. 그림의 예를 참조하십시오.

4. 그런 다음 마지막 슬라이드에서 다음 슬라이드의 예와 같이 퀴즈에서 답변 점수를 확인할 슬라이드를 만듭니다. 그림의 예를보십시오.

5. 슬라이드의 모든 내용이 완료되면를 누릅니다. Alt + F11. 창이 나타납니다 Microsoft Visual Basic. 그림의 예를 참조하십시오.

6. 그런 다음 Microsoft Visual Basic에서 삽입 그런 다음 선택 모듈. 그림의 예를 참조하십시오.

7. 모듈을 채우기 전에. 메모장에 약간의 코딩 프로그램을 입력해야합니다. 메모장에 입력해야하는 프로그램은 다음과 같습니다.


Dim nilai As Integer
Dim konfirmasi As String
Sub mulai_kuis()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox("Yakin dengan jawaban kamu?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
nilai = nilai + 2
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox("Yakin dengan jawaban kamu?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub cek_skor()
MsgBox (" skor anda adalah " & nilai)
konfirmasi = MsgBox(" Ingin Mengulangi kuis? ", vbYesNo)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.First
End If
If konfirmasi = vbNo Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

완료되면 컴퓨터에 저장하십시오. 그림의 예를 참조하십시오.