拖放核对答案 VBA 错在哪？

我很喜欢这种效果，拖动答案能核对答案的完形填空。没拖动之前，点击，答案反馈应该是错的，但是，有的答案反馈成对的。里面一定出来点小问题，望PPT VBA 高手给予解答。