vb编写程序判断回文数

VB6.0版本的可以吗?我用的是构成法.Option ExplicitDim a, b, c, d, nPrivate Sub&n

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

dimi,j,n,tasintegern=inputbox("n=")fori=1tonifimod2=0thent=i\2forj=2toint(sqrt(t))iftmodt=othenexitf

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

#includeusingnamespacestd;boolpalindrome(char*str){\x09inth=strlen(str);\x09for(inti=0;i

intmain(){inti=0;for(i=1;i

这样就可以了.只要判断第百位跟各位是否一致就行了.publicstaticvoidMain(){intsum=0;for(inti=100;i

#includeusingnamespacestd;intmain(){char*str=newchar[255];cin>>str;cout再问：看不等，我刚学编程再答：把输入的数字放到一个指针数组

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!

回文数是指正读和反读都一样的正整数.例如,5775.

    tmp = InputBox("随便输入几个数,用逗号隔开就可以了.")   &n

PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegera=Val(InputBox("输入三位整数"))b=I

PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","

vars:string;a,b,c:longint;d:boolean;begind:=true;{试D先为true.｝read(s);c:=length(s);｛求字符串的长度.｝a:=cdiv2;

intx,y,s=0;cin>>x;y=x;while(x!=0){s=s*10+(x%10);x=x/10;}if(y==s)cout

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"

PrivateSubForm_Click()Dimi,min,nClsFori=1To3Randomizen=Int(Rnd*100)+1Printn,Ifi=1Thenmin=nElseIfmin>

typenum=array[1..10000]ofinteger;vara:string;b:num;i,j,k,n:longint;ci:integer;procedureinit;beginrea

PrivateSubCommand1_Click()a=InputBox("请输入数值")b=InputBox("请输入数值")IfVal(a)Fori=1ToVal(a)IfVal(a)Modi=0