E-Learning Aplikasi Komputer

 Dim nilai As Integer Dim konfirmasi As String Dim hitung As Integer Dim hitungx As Integer Dim kkm As Integer Dim persen As Integer Dim nama As String Dim nis As String Sub mulai() nilai = 0 hitung = 0 kkm = 75 nama = InputBox("Masukan Nama Lengkap Anda") nis = InputBox("Masukan Nomor Induk Siswa Anda") ActivePresentation.SlideShowWindow.View.Next End Sub Sub benar() konfirmasi = MsgBox("Yakin dengan jawaban Anda ?", vbYesNo, " Cek jawaban!") If konfirmasi = vbYes Then nilai = nilai + 1 hitung = hitung + 1 ActivePresentation.SlideShowWindow.View.Next End If End Sub Sub Salah() konfirmasi = MsgBox("Yakin dengan jawaban Anda ?", vbYesNo, "Cek jawaban !") If konfirmasi = vbYes Then hitung = hitung + 1 ActivePresentation.SlideShowWindow.View.Next End If End Sub Sub jawab() ActivePresentation.SlideShowWindow.View.Next persen = (nilai * 100) / hitung hitungx = hitung - nilai tampilkan End Sub Sub tampilkan() With ActivePresentation...