End Sub
Sub 性格C()
    MessageBox "性格C．意志变化型：你并不容易被摇动意志，虽然心理不同意，但基於友情跟爱情，你还是会被动摇。"
End Sub
Sub 性格D()
    MessageBox "性格D．坚持己见型：你是一个坚持己见的人，一但作出决定就不会受他人影响而改变，却容易树立敌人。"
End Sub