VB怎么判断一个数是否为快乐数？

我用了循环等等最后都陷入死循环了，有没有人能请教怎么写吗？，不死循环的那种

只能帮你到这了，里面好几个例子

Help with Happy Number Program VB https://social.msdn.microsoft.com/Forums/vstudio/en-US/fc2bf57e-b982-464a-926a-45cd3d7c8dd5/help-with-happy-number-program-vb?forum=vbgeneral