vb题算法描述:计算1-1 2 1 3-1 4 ... 1 100的值

PrivateSubCommand1_Click()s=Text1.TextIfMid(s,Len(s),1)<>""Thens=s+""Text2

是没有思路,还是不会编程?至少有一位数字是5用以下的子函数boolIsInclude5(intnum){while(num!=0){if(num%10==5)returntrue;num=num/10

这是个双重循环变量s=1Fori=1To3循环3次第一次i=1Forj=0To0循环一次s=1+1*0s=1输出1第二次i=2Forj=0To1循环两次s=1+1*0s=1s=1+1*1s=2输出2第

PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=

PrivateSubCommand1_Click()DimSAsDouble,jcAsDouble,NAsIntegerjc=1N=Val(InputBox("请输入N"))Fori=1ToNjc=j

=(2010*10000+2010)*1999-2010*(1999*10000+1999)2010*10001*1999-2010*1999*10001=0

DimiAsLongDimCountAsLongFori=1To100If(iMod3=0)And(iMod2=0)ThenCount=Count+1Debug.PrintiEndIfNextMsgB

c语言求2个数的最大公约数程序如下#include#includeintmain(){inta,b,r,temp;scanf("%d%d",&a,&b);if(a

PrivateSubCommand1_Click()Dimx#,i%RandomizeTimex=60:i=1DoWhilexx=x-Rnd()*100Ifxx=x+60:i=i+1LoopPrint

99000=11*9000121=11*11即分别将99000和121分解则很容易得到最后结果为9000

9分之2减16分之7乘9分之2=2/9×（1-7/16）=2/9×9/16=1/82分之1乘15分之1加3分之1乘2分之1=1/2×（1/15+1/3）=1/2×2/5=1/5（9分之8加27分之4）

答案是C.输入10000个数值,计算平均数,适合采用循环结构算法.A.判断一个证书是否为偶数,解决该问题仅需一步判断,也许需要一步赋值,没有多次重复的步骤,不适合采用循环结构算法.B.输入一个圆的半径

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,Sum&,m&n=Val(InputBox("请输入N值"))Sum=0Fo

199.199*198-198.198*199=199*198+0.199*198-198*199-0.198*199=018.9*178.178+0.49-17.8*189.189=18.9*178

欧几里德算法又称辗转相除法,用于计算两个正整数a,b的最大公约数.其计算原理依赖于下面的定理：定理：gcd(a,b)=gcd(b,amodb)(a>b且amodb不为0)证明：a可以表示成a=kb+r

使用循环估计最多5-6行代码就搞定了,而不使用循环估计最少也要10000行代码.

5Mod3＝25Mod-3＝2-5Mod-3＝-2-5Mod3＝-2看出规律没前面是正的值为正,前面为负后面值为负,其它与正数之间求余一样.再问：就是说都为正，则为正。都为负，则为负。前面为正值，后面

PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio

流程图伪代码再问：有四种额

(1)#includemain(void){intx=0;x++;printf("%d\n",x);}O(1)(2)#includemain(void){intx=0;for(inti=1;i