Question

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

所谓回文数是指左右数字完全对称的自然数，例如：11，121，1221等都是回文数。程序运行结果如图示，要求如下

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

Answer 1

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

Private Sub Command3_Click()

End

End Sub

Answer 2

for(int a=0,a<=10000,a++)
{int temp = 0;
int yushu = 0;
yushu = a%10;
a = a/10;
while (a!=0)
{
temp = a%10;
yushu = yushu*10+temp;
a = a/10;
}
if yushu==a
b=sqrt(yushu);
int temp2 = 0;
int vlaue = 0;
vlaue = b%10;
b = b/10;
while (b!=0)
{
temp2 = b%10;
vlaue = value*10+temp;
b = b/10;
}
if vlaue==b;放到表单里
}