题目：编程找出10000以内所有的回文数的平方仍是回文数的数。

来源：百度知道 编辑：UC知道 时间：2024/06/16 13:53:23
所谓回文数是指左右数字完全对称的自然数，例如：11，121，1221等都是回文数。程序运行结果如图示，要求如下

1. 设置窗体的标题栏上显示你的学号+姓名。
2. 单击“生成数据”（Cmd1）按钮，找出10000以内满足条件的回文数，按图示格式显示在列表框List1中；
3. 单击“清除”（Cmd2）按钮则清除List1中的内容，单击“返回”按钮（Cmd3），结束程序运行。（3分）
4. 将窗体文件和工程文件分别命名为学号-FA2.frm和学号-PA2.vbp，并保存到考生文件夹中。

Private Sub Command1_Click()

For i = 1 To 10000

If huiwen(i) And huiwen(i * i) Then

List1.AddItem i

End If

Next i

End Sub


Function huiwen(ByVal n) As Boolean

f = 0

m = n

While n > 0

f = f * 10 + n Mod 10

n = n \ 10

Wend

huiwen = f = m

End Function


Private Sub Command2_Click()

List1.Clear

End Sub


Priva