Script Macro untuk Powerpoint

Public Nilai As Integer
Sub benar()
    Nilai = Nilai + 10
    ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub salah()
    ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub skor()
MsgBox ("nilai anda adalah " & Nilai)
Nilai = 0
End Sub