100的阶乘vb程序设计

PrivateSubCommand1_Click()Dima(1To20)Dimmax,ave,min,summax=0min=300Print"产生的20个数为:";Fori=1To20a(i)=I

假设要比较的三个数输入在Text1,text2,text3,结果放在text4PrivateSubCommand1_Click()Dima,b,c,dAsDoublea=Val(Text1.Text)

PrivateSubForm_Click()n=2DoWhiles

a=1b=1c=1fori=4to100d=a+b+cforj=2todif(imodj=0)thenbreak;endifnextifjdthenprinti&"issushu"endifa=bb=

单击Command1即可.代码如下.DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,SAsSinglePrivateSubCommand1_Click()OnEr

PrivateSubCommand1_Click()RandomizeTimerFori=1To100x=Int(Rnd()*90+10)IfxMod2=0Thenm=m+xElsen=n+xEndI

1.DimnAsInteger,iAsIntegerDimjiAsDoublen=Val(Text1.Text)i=1ji=1Doji=ji*ii=i+1Ifi>nThenExitDoLoopPrin

PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问：如果用inputb

把s=1放到DoWhilen再问：我试了下，正解！但是请问这是为什么啊？再答：因为每次做Do循环时，前一次的S没有还原，继承了上一次的值也就是第一次循环S=1第二次循环S=1*1*2第三次循环S=1*

privatesubcommand1_click()dimjs,os,i,afori=1to20a=int(Rnd*99)+1ifamod2=0thenjs=js+ielseos=os+inextpr

PrivateSubCommand1_Click()DimsAsIntegerFori=100To200IfiMod3=0AndiMod70Thens=s+iNextiPrint"所求的和为："&sE

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

’3个label,2个commandPrivateSubCommand1_Click()Dims,i,j,arr(1To10),t,sumFori=1To10s=InputBox("输入评分（0-10

'是这意思?PrivateSubForm_Activate()DimiAsIntegerFori=1To8Ifi=1ThenPrint"※"ElsePrint"※"&Space(2*(i-2))&"※

vb代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea

p=1s=0fori=1to10p=p*is=s+pendfo

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

PrivateSubCommand1_Click()n=Val(InputBox("n="))t=1Fori=1Ton t=t*i s=s+tNextiPrin

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

我能用c实现再问：发来看看再答：main(){intm,n;scanf("%d",&m);n=fact(m);printf("%d\n",n);getch();}intfact(intk){inti,