VB中编写1到100的自然数之和

PrivateSubCommand1_Click()'1'23'456Dima(6)AsIntegerFori1=1To6Fori2=1To6Fori3=1To6Fori4=1To6Fori5=1To

dimgs,igs=0fori=1to500ifinstr(i,"4")=0thengs=gs+1endifnextprintgs

第一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLong)_AsLongDim

iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】

PrivateSubfun()ifimod2=0thenforx=itoastep2s=s*xnextxelseforx=(i+1)toastep2thens=s*xnextxendif试试看行不行吧

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

语句自己找给思路.第一种：暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum

dimx(100),ix(0)=0fori=0to50x(i+1)=2*x(i)+1-(imod2)next数列为x(1),x(2),...,x(50)

PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn

sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu

#include#includevoidswap(intc[],intlen){inti=0;inttmp;for(;i{tmp=c[i];c[i]=c[len];c[len]=tmp;}}intmu

dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum

DimsignAsInteger,aAsLong,piAsDoublesign=-1Fori=1To100000a=2*i-1sign=-1*signpi=pi+(1/a)*signNextpi=pi

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

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

//C语言程序intCalSum(){inti;intsum=0;for(i=1;i

Functionsum(n)AsDoublesum=0Fori=1TonIfiMod2=0Thensum=sum+i*iNextEndFunction

PrivateSubCommand1_Click()s=0zf=0Fori=1To10s=InputBox("第"&i&"位评委给分:")zf=zf+sNextiPrint"总得分："&zfEndSu

PrivateSubCommand1_Click()Dimc()AsVariantDimeAsBoolean'预设五个最小的正整数为1、2、3、4、5Fori=3To11'由题意可得第一第二个正整数必