VB编程找出10000以内所有的回文数的平方仍是回文数的数.编程题编程找出10000以内所有的回文数的平方仍是回文数的数.所谓回文数是指左右数字完全对称的自然数,例如：11,121,1221等都是回文数.【编程要求】1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,但界面元素的大小、位置可随意设置.2.单击“生成数据”按钮,应将10000以内所有的回文数的平方仍是回文数的数,按图中示意形式存放在列表框List1中.3.单击“返回”按钮,结束程序运行.4.程序中定义一个判断回文数的函数
2019-05-28
VB编程找出10000以内所有的回文数的平方仍是回文数的数.
编程题
编程找出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
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