Sub maju1()
ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text + 1
End Sub
Sub mundur1()
ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text – 1
End Sub
Sub maju2()
ActivePresentation.Slides(1).Shapes(“akhir”).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(“akhir”).TextFrame.TextRange.Text + 1
End Sub
Sub mundur2()
ActivePresentation.Slides(1).Shapes(“akhir”).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(“akhir”).TextFrame.TextRange.Text – 1
End Sub
Sub prima()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = ActivePresentation.Slides(1).Shapes(“awal”).TextFrame.TextRange.Text
b = ActivePresentation.Slides(1).Shapes(“akhir”).TextFrame.TextRange.Text
ActivePresentation.Slides(1).Shapes(“layar”).TextFrame.TextRange.Text = 2
For i = 3 To b
For j = 2 To i
k = i Mod j
If k <> 0 And j = i – 1 Then
ActivePresentation.Slides(1).Shapes(“layar”).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(“layar”).TextFrame.TextRange.Text & ” ” & i
Exit For
Else
If k = 0 Then
Exit For
End If
End If
Next j
Next i
End Sub