VB编程找出10000以内所有的回文数的平方仍是回文数的数.
编程题
编程找出10000以内所有的回文数的平方仍是回文数的数.所谓回文数是指左右数字完全对称的自然数,例如:11,121,1221等都是回文数.
【编程要求】
1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,但界面元素的大小、位置可随意设置.
2.单击“生成数据”按钮,应将10000以内所有的回文数的平方仍是回文数的数,按图中示意形式存放在列表框List1中.
3.单击“返回”按钮,结束程序运行.
4.程序中定义一个判断回文数的函数过程.
人气:218 ℃ 时间:2020-03-20 02:06:06
解答
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
推荐
猜你喜欢
- 某人从甲地到乙地,去时以每小时30千米的速度匀速前进,回来时以每小时60千米的速度返回.
- 我的发现1500字!
- 50人的班里有两人同年月日出生的概率计算,要过程(浅白些,高中还没念呢)
- Things in that supermarket are quite good,but 后面填一个i开头的单词,是什么?
- 用1,3,5,7,9组成一个三位数乘两位数乘积最大的算式(每个数字只能用一次),并计算出结果.
- 英语同义句转换 I'm afraid of being alone at home at night.I'm territy of ____ ____ ____ ____.
- 为什么体温计使用前要甩一下?
- 甲乙两般轮船同时从上海出发开往青岛,经过18小时后,甲船落在乙船后面57.6km,甲船每小时行32.5km,乙船