membuat soal PPT

Halo teman teman nhe saya ada bahasa program yang terbaru,, ( Hasil Latihan tugas kemaren )
Semoga bermanfaat untuk kita semua .


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 + 4
hitung = hitung + 4
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 + 4
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.Slides(28)
If persen >= kkm Then
.Shapes(1).TextFrame.TextRange.Text = "Selamat " & nama & " anda Lulus ! nilai anda " & persen
Else
.Shapes(1).TextFrame.TextRange.Text = "Mohon Maaf " & nama & " anda Remedial ! karena nilai anda hanya " & persen & " tidak mencapai KKM : " & kkm
End If
.Shapes(2).TextFrame.TextRange.Text = kkm
.Shapes(3).TextFrame.TextRange.Text = nis
.Shapes(4).TextFrame.TextRange.Text = nama
.Shapes(5).TextFrame.TextRange.Text = persen
.Shapes(6).TextFrame.TextRange.Text = nilai
.Shapes(7).TextFrame.TextRange.Text = hitung
.Shapes(8).TextFrame.TextRange.Text = hitungx
End With
End Sub