Membuat Soal Pilihan Ganda dan Skor di Microsoft PowerPoint

• Buatlah sebuah soal sejumlah 5 buah 
• Untuk slide awal wajib di beri tombol MULAI / START 

• Slide terakhir untuk tombol CEK NILAI 

• Jadi total slide yang dibuat sejumlah 7

setelah itu buka window macro dengan menekan bersaman ALT + 11 nanti akan keluar jendela Visual Basic . 

Dilanjutkan dengan Insert - Module. Isikan Script berikut ini (COPAS saja lah... ) :

=================================================================

Dim nilai As Integer
Dim konfirmasi As String
Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
nilai = nilai + 20
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub skor()
'tombol untuk selesai
MsgBox (" nilai anda adalah " & nilai)
End Sub

=================================================================

setelah itu simpan dengan file type PowerPoint Macro-Enabled Presentasion.

Selamat berkreasi!! jangan lupa di jalankan ya...