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