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

来源：百度知道 编辑：UC知道 时间：2024/07/04 02:54:07
编程题
【题目】
编程找出10000以内所有的回文数的平方仍是回文数的数。所谓回文数是指左右数字完全对称的自然数，例如：11，121，1221等都是回文数。
【编程要求】
1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，但界面元素的大小、位置可随意设置。
2. 单击“生成数据”按钮，应将10000以内所有的回文数的平方仍是回文数的数，按图中示意形式存放在列表框List1中。
3. 单击“返回”按钮，结束程序运行。
4. 程序中定义一个判断回文数的函数过程。

Option Explicit
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 10000
If f1(i) = True And f1(i ^ 2) = True Then List1.AddItem i & "^" & "2" & "=" & i ^ 2
Next i
End Sub

Private Sub Command2_Click()
End
End Sub
Private Function f1(n As Long) As Boolean
Dim j As Long, m As Long
m = Len(CStr(n))
For j = 1 To m / 2
If Mid(n, j, 1) <> Mid(n, m - j + 1, 1) Then Exit Function
Next j
f1 = True
End Function

我知道你也懂一点的,我列个思路:

for i=1 to 10000
{

a=i*i
j=0
while(a/10)
{b[j]=a/10;
a=a/10;
j++;
}

a[j]=a; //接收最后一个数

//判断是否回文数

for k=0 to j/2
if(b[k] <> b[j-k])
break;
if(k==j/2)
输出b数组;
}