RUMUS SOAL PPT

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 jawab()

'tombol untuk selesai

MsgBox (" skor anda adalah " & nilai)

End Sub