Page 118 - Buku Samisanov Jilid 1 E-book.docx

Sub salah()
konfirmasi = MsgBox("Yakin dengan jawaban
anda?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.N
ext
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.F
irst
End If
If konfirmasi = vbNo Then
ActivePresentation.SlideShowWindow.View.N
ext
End If
End Sub

4. Jika sudah di save, lalu anda kembali pada
microsoft visual basic lalu copy-paste rumus
tersebut pada kotak kosong.
Catatan : jika ketikan anda ada yang berwarna
merah berarti anda salah mengetik, jika
begitu periksa ulang sampai benar.

118