「回文」是指正讀反讀都能讀通的句子,它是古今中外都有的一種修辭方式和文字遊戲,如「我為人人,人人為我」等。在數學中也有這樣一類數字有這樣的特徵,成為迴文數(palindrome number)。[1] 設n是一任意自然數。若將n的各位數字反向排列所得自然數n1與n相等,則稱n為一迴文數。例如,若n=1234321,則稱n為一迴文數;但若n=1234567,則n不是迴文數。注意: 1.偶數個的數字也有迴文數124421 2.小數沒有迴文數
雙擊桌面圖標啟動 visual basic 6.0
選擇標準EXE,然後點擊打開。
然後雙擊 FORM1 窗體,在彈出的代碼窗體中複製該代碼到 Form_Click() 事件中。代碼:Dim l As Integera = Int(InputBox("請輸入一個正整數"))l = Len(a)For i = 1 To l / 2 If Mid(a, i, 1) = Mid(a, l + 1 - i, 1) Then Cls Print Print Tab(12); a & "是迴文數" Else Cls Print Print Tab(12); a & "不是迴文數" End IfNext i
之後,按下F5 測試,程序編譯成功後會自動運行,並點擊窗體,輸入數值。