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

3. Sebelum kita mengisi kotak kosong. Ketik dahulu
rumus pada notepad. Caranya klik start-All
Program- Accesories – pilih notepad. Jika sudah
ketik rumus dibawah ini lalu save di komputer
anda.

Dim nilai As Integer
Dim konfirmasi As String
Sub mulai_kuis()
nilai = 0
ActivePresentation.SlideShowWindow.View.N
ext
End Sub
Sub benar()
konfirmasi = MsgBox("Yakin dengan jawaban
anda?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
nilai = nilai + 2
ActivePresentation.SlideShowWindow.View.N
ext
End If
End Sub

117