首先說(shuō)明什么是回文數(shù):左右對(duì)稱的自然數(shù)稱回文數(shù)。如121,4224,13731等你所出的題目是求三位數(shù)以內(nèi)的所有回文數(shù),所以只要判斷第一位和第三位的數(shù)字是否一樣,一樣則為回文數(shù)。代碼如下:Private Sub Command1_Click()
創(chuàng)新互聯(lián)公司專注于肥西網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供肥西營(yíng)銷型網(wǎng)站建設(shè),肥西網(wǎng)站制作、肥西網(wǎng)頁(yè)設(shè)計(jì)、肥西網(wǎng)站官網(wǎng)定制、小程序開發(fā)服務(wù),打造肥西網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供肥西網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
For i = 100 To 999 '100到999循環(huán)
a$ = Trim$(Str(i)) '轉(zhuǎn)換成字符串
b = Left$(a$, 1) '截取左邊第一位
d = Right$(a$, 1) '截取右邊第一位
If b = d Then '判斷左右是否相等,相等既是回文數(shù).
T1.Text = T1 + Str(i)
End If
Next
End Sub
2種方法,
1,是使用VB自帶的函數(shù)StrReverse , 一個(gè)數(shù)字,被翻過(guò)來(lái)以后,還和原數(shù)字相同,就可以判斷是回文數(shù)了
2.使用循環(huán),每次都2端取數(shù)字,都相同,就可以判斷為回文數(shù), 當(dāng)有不同時(shí),跳出循環(huán),不是回文數(shù)
你的i = Len(Str(a))會(huì)出問(wèn)題。
If i 1 Then
Return True
End If
這個(gè)返回在if內(nèi)部,當(dāng)條件不滿足將導(dǎo)致函數(shù)無(wú)返回。
以下代碼僅供參考:
Function IsH(ByVal a As Long) As Boolean
Dim i As Long, j As Long, t As String
t = a.ToString
i = t.Length
Select Case i
Case 1
Return True
Case 2
If Mid(t, 1, 1) = Mid(t, 2, 1) Then Return True Else Return False
Case 3
If Mid(t, 1, 1) = Mid(t, 3, 1) Then Return True Else Return False
Case Else
For j = 1 To i \ 2
If Mid(t, j, 1) Mid(t, i - j + 1, 1) Then Return False
Next j
End Select
Return True
End Function
在數(shù)學(xué)中也有這樣一類數(shù)字有這樣的特征,成為回文數(shù)(palindrome number)。
設(shè)n是一任意自然數(shù)。若將n的各位數(shù)字反向排列所得自然數(shù)n1與n相等,則稱n為一回文數(shù)。例如,若n=1234321,則稱n為一回文數(shù);但若n=1234567,則n不是回文數(shù)。
注意:
1.偶數(shù)個(gè)的數(shù)字也有回文數(shù)124421
如:1234321
Len(s) / 2=7/2=3.5
k = 1,Mid(s, k, 1)=1,Mid(s, (Len(s) - k + 1), 1)=Mid(s, (7 -1 + 1), 1)=1
k = 2,Mid(s, k, 1)=2,Mid(s, (Len(s) - k + 1), 1)=Mid(s, (7 -2 + 1), 1)=2
……
如果k = 3,為假,就退出循環(huán),
If k Len(s) / 2 Then
k=3 Len(s) / 2 =3.5
標(biāo)題名稱:vb.net統(tǒng)計(jì)回文數(shù) vb統(tǒng)計(jì)數(shù)字個(gè)數(shù)
URL網(wǎng)址:http://muchs.cn/article34/hjsgpe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站維護(hù)、軟件開發(fā)、微信公眾號(hào)、做網(wǎng)站、關(guān)鍵詞優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容
營(yíng)銷型網(wǎng)站建設(shè)知識(shí)