VB編程找出10000以內(nèi)所有的回文數(shù)的平方仍是回文數(shù)的數(shù).

VB編程找出10000以內(nèi)所有的回文數(shù)的平方仍是回文數(shù)的數(shù).
編程題
編程找出10000以內(nèi)所有的回文數(shù)的平方仍是回文數(shù)的數(shù).所謂回文數(shù)是指左右數(shù)字完全對(duì)稱的自然數(shù),例如：11,121,1221等都是回文數(shù).
【編程要求】
1.程序參考界面如圖所示,編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,但界面元素的大小、位置可隨意設(shè)置.
2.單擊“生成數(shù)據(jù)”按鈕,應(yīng)將10000以內(nèi)所有的回文數(shù)的平方仍是回文數(shù)的數(shù),按圖中示意形式存放在列表框List1中.
3.單擊“返回”按鈕,結(jié)束程序運(yùn)行.
4.程序中定義一個(gè)判斷回文數(shù)的函數(shù)過程.

其他人氣：949 ℃時(shí)間：2020-03-20 02:06:06

優(yōu)質(zhì)解答

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

我來(lái)回答

類似推薦

猜你喜歡

精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

VB編程找出10000以內(nèi)所有的回文數(shù)的平方仍是回文數(shù)的數(shù).

精品偷拍一区二区三区,亚洲精品永久码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲