ตัวอย่างแบบทดสอบ

code หน้าสรุปคะแนน

Sub Correct()

score.Caption = (score.Caption + 1)

ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub Wrong()

ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub QuizExit()

ActivePresentation.SlideShowWindow.View.Exit

End Sub

Sub Start()

SlideLayout16.score.Caption = 0

ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub ReStart()

ActivePresentation.SlideShowWindow.View.GotoSlide (17)

End Sub

Private Sub score_Click()

End Sub

ตัวอย่างการทำข้อสอบถูกผิด

คลิกดาวน์โหลดข้อสอบระหว่างเรียน