1樓：匿名使用者
建一個text1,text2,command1。
text1,text2的multiline都設定為true。
**如下。
private sub command1_click()text2.text = ""
dim a, i as integer, n, s as string
a = split(text1.text, vbcrlf)for each n in a
s = s & n
if n = strreverse(n) then s = s & "★"
s = s & vbcrlf
next
text2.text = s
end sub
2樓：匿名使用者
private sub form_click()dim s as string
s = inputbox("請輸入一串字元：")if s = strreverse(s) then msgbox "是迴文"
end sub
3樓：匿名使用者
private sub command1_click()dim a, i as integer, n, s as string
for i = 1 to val(inputbox("請輸入最大數！"))
a = split(i, vbcrlf)
for each n in a
s = s & n
if i > 10 and n = strreverse(n) then
s = i & "為迴文數"
print s
end if
next
next i
end sub
vb編寫function過程，判斷數字是否是迴文數。程式要求輸入一系列數字，找出所有的迴文數並顯示在文字框中 50
4樓：網海1書生
private sub command1_click()dim x as long, a as integerfor a = 1 to 5
x = val(inputbox("請輸入一個整數"))if fac(x) then text1.text = text1.text & x & " "
next
end sub
function fac(x as long) as booleanfac = (x = val(strreverse(x)))end function
怎麼樣，我這函式只用一行語句就解決了！原理就是把一個數左右反轉，如果與原來的數相等，那麼就是迴文數。
急 求 vb判斷迴文數的**
5樓：匿名使用者
建一個text1,text2,command1。
text1,text2的multiline都設定為true。
**如下
內。＝＝
容＝＝＝＝＝＝＝＝＝＝
private sub command1_click()text2.text = ""
dim a, i as integer, n, s as string
a = split(text1.text, vbcrlf)for each n in a
s = s & n
if n = strreverse(n) then s = s & "★"
s = s & vbcrlf
next
text2.text = s
end sub
6樓：匿名使用者
建一個text1,command1
private sub command1_click()dim i
for i = 1 to fix(len(text1.text) / 2)
if mid(text1.text, i, 1) = mid(text1.text, (len(text1.text) - i) + 1, 1) then
if i = fix(len(text1.text) / 2) then
msgbox ("是
專")end if
else
msgbox ("不是
屬")exit for
end if
next i
end sub
c語言 關於判斷迴文數的程式
7樓：問明
所謂迴文數，就是說一個數字從左邊讀和從右邊讀的結果是一模一樣的。
#include<;stdio.h>
void main()
if(y==num)else
}#include
#include//strlen函式的標頭檔案int main()
if(i==n)printf("是一個迴文數!\n");//如果從第1位到n都相同則輸出迴文數
else printf("不是一個迴文數!\n");
return 0;}
8樓：灩麗
1、首先開啟vc6.0,新建一個控制檯專案，新增標頭檔案。
2、然後我們根據圖示**新增main主函式。
3、然後我們根據圖示**定義6個long型變數。
4、然後我們根據圖示**使用scanf給input賦值。
5、然後我們根據圖示**分解個位、百位、千位、萬位。
6、然後我們根據圖示**使用if判斷。
7、然後我們根據圖示**執行程式，看看結果無誤。
9樓：匿名使用者
原理：任何一個數除以10的餘數就是該數最後一位任何一個數除以10的商就是排除掉最後一位後的數（因為 c++ 兩個整數相除結果還是整數）
所以 ，一個數1234 就可以通過這種方法得到 123 和 4接下來對 123 進行同樣的操作，就得到 12 和 3接下來得到 1 和 2
接下來得到 0 和 1
整個過程是個迴圈，當商不是 0 的時候就一直這麼幹每次拿到一個餘數，都用來構造新數，新數=新數*10+餘數所以經過四次迴圈後，我們得到新數 4321 ，如果是迴文，那麼新數應該等於原數，否則，說明不是迴文。
10樓：龍__鳳
你把每次迴圈中sum和m的值輸出，你就懂了判斷的思路。
比如你輸入的數是12321：
迴圈開始前：m=12321，sum=0；
第1次迴圈結束：m=1232，sum=1；
第2次迴圈結束：m=123，sum=12；
第3次迴圈結束：m=12，sum=123；
第4次迴圈結束：m=1，sum=1232；
第5次迴圈結束：m=0，sum=12321。
輸入的是幾位數就迴圈幾次。
判斷的思路就是，通過迴圈依次把m的個位，十位，百位...上的數取出來，與sum*10相加。這樣得到的數sum就是m顛倒之後的數，如果兩者相等，那就是迴文數。
11樓：老表西遊記
public static void main(string args)
}每次迴圈，取到餘數，組合成新數，兩個判斷，就可以知道是否為迴文數了。
12樓：止凝竹
#include
int main(void)
if( sum == a)
printf("是迴文數!\n");
else
printf("不是迴文數\n");//1234!=4321所以不是迴文數
return 0;}
13樓：猿宅
while(m)
這段**的作用是將原來的數反轉存到sum裡。即如果原來的數是123，執行完這段**後sum=321。
後面再判斷sum是否等於a就可以判斷輸入的數是否是迴文數了。
14樓：匿名使用者
#include
void main()
if ( x==y ) printf("是迴文數。\n"); else printf("不是迴文數。\n");}
15樓：冰至誠
這是我以前編的，你修改一下就行了。
#include "stdio.h"
#include "math.h"
void main()
for(i=1;i<10;i++)
for(j=0;j<10;j++)
for(k=0;k<10;k++)}
16樓：仙戈雅
#include
bool ispalindromenumber(const int *digits)
if (counter == *digits) yes = true;
return yes;
}int main()
17樓：
#include
#include
#include
int jsv(long m);
int main()}}
int jsv(long m)
if(s==m)
return 1;
return 0;}
18樓：怪物的小帽子
#include
int main()
if (sum==x)
printf("y\n");
else
printf("n\n");
return 0;}
VB中設計演算法，判斷某數是不是迴文數（用文字敘述就可以了）
vb妮可 2種方法,1,是使用vb自帶的函式strreverse 一個數字,被翻過來以後,還和原數字相同,就可以判斷是迴文數了 2.使用迴圈,每次都2端取數字,都相同,就可以判斷為迴文數,當有不同時,跳出迴圈,不是迴文數 最簡單的方法是把數字轉化為字串r，在去掉前導r的空格後，檢查r是否和strre...
C課程設計編寫程式，判斷符串是否為迴文，迴文即順讀和逆讀都一樣的字串，如madam，
海龜崽 int palindrome test 判別輸入的字串是否迴文序列,是則返回1,否則返回0 while stackempty s return ok palindrome test 清風or朗月 include stdio.h include stdlib.h include string....
C 語言輸入正整數，判斷它是否是迴文數
問明 include stdio h include stdlib h int main int num，k，n 0 printf 請輸入一個數 scanf d num k num while k 0 n n 10 k 10 k k 10 if n num printf d是迴文數 n else p...