【VB.NET快乐数】2022-10-17

缘由VB怎么判断一个数是否为快乐数？-编程语言-CSDN问答

    Sub 快乐数()Dim a = 0, aa = 0, qs = 0, ji = 0a = Int16.Parse(Console.ReadLine)aa = aWhile ji <> 1ji = 0While aa > 0qs = aa Mod 10ji += qs * qsaa \= 10End WhileConsole.WriteLine(ji)If ji = 29 Or ji = 85 Or ji = 89 Or ji = 145 ThenConsole.Write("N")Console.ReadKey()End'结束整个过程Elseaa = jiEnd IfEnd WhileIf ji = 1 ThenConsole.WriteLine("Y")End IfEnd Sub