编程求出100-999范围内的回文数

额还没解决?你是刚学C?好吧基本没啥问题了,不过给你指几个问题：1.main函数没返回类型；2.i=i*i这句有问题,这里i都变了,后面再i++的话情何以堪；3.c=i%100,c你是想取百位数吗?那

OptionExplicitOptionBase1PrivateSubForm_Click()Dimi%,j%,k%,n%Dima()AsIntegern=0Fori=1To1000k=0Forj=1

***1-100能被3整除的所有奇数之和s=0FORi=1TO100\x05IFMOD(i,3)=0ANDMOD(i,2)0\x05\x05s=s+i\x05ENDIFENDFOR"s="+ALLTR

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

Dima(1To20)AsIntegerPrivateSubCommand1_Click()ClsScale(0,0)-(100,100)Foru=1To20a(u)=Int(Rnd*50)+50b=

SETTALKOFFS1=0S2=1FORi=1TO100IFmod(i,2)=1S1=S1+iELSES2=S2*iENDIFENDFORs1,s2再问：亲，我把上面的复制到了软件里为什么会显示“找

PrivateSubCommand1_Click()Fori=100To999IfLeft(i,1)=Right(i,1)ThenPrintiNextEndSu

公式改为：=SUM(SUMIF(INDIRECT("'"&$A3&"'!a:a"),{">200",">225"},INDIRECT("'"&$A3&"'!$D:$D"))*{1,-1})再问：你这样

#includeintmain(){\x09intx,y,z,i=0;\x09for(x=0;x

PrivateSubCommand1_Click()Dimi,j,sumAsIntegerFori=1To100j=iMod21Ifj=0Thensum=sum+i^2NextiPrintsum'打印

额滴神哪,哪年头的题目被你翻出来了?换语言吧.虽然pascal编译起来很快,代码执行效率高.但是国内没有这个环境,而且也不符合整个程序语言发展的主流了～推荐用C,C++,JAVA吧,简单上手,功能强大

#includevoidmain(){inti,s=0;for(i=1;i

用公式下拉就行,何必编程.浪费精力.=语文*0.4+数学*0.4+英语*0.2求名次用rank函数,很简单.再问：额我已经会了我是说matlab编程再答：编程我只会VB，C语言。别的没有办法帮你。

y=9-3x=3(3-x)y是3的倍数3x=9-y>0y

写代码?HI我再问：恩再答：你给我说说具体怎么输入的吧，还有，用什么语言我先用c语言给你写了个#include#includeinta[10];intmain(){intmaxans=0,minans

sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

窗体上放个CommandButton和两个Label：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerLabel1.Capti

//p是待求的int数组int max=0, min=99999;         &nb

vb或者vbaPrivateSubCommandButton1_Click()DimMessage,Title,Default,MyValueDimi,j,kMessage="输入100或其他"'设置