VB在文本框1中输入一串字符，在文本框2中判断是否是回文数？

Private Sub Command1_Click() n = CLng(Text1) n1 = n While n > 0 m = m * 10 + n Mod 10 n = n \ 10 Wend Text2 = IIf(m = n1, "", "不") Text2 = Text2 & "是回文数"End Sub

匿名回答于2024-05-21 14:32:17