vb计算前15项2 3 2 5 3

【答案】：12【运行过程】由于step(步长)为3,每次循环时,i都会+3.如果不写step3则默认每次循环+1循环ii与10比较s①3

PrivateSubCommand1_Click()DimnAsInteger,阶乘项AsLong,阶乘和AsLongDon=Val(InputBox("请输入阶乘的项数（N≤8）"))LoopUnt

/>Private Sub Form_Click()'1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)'   

这是个双重循环变量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第

DimnAsIntegerDimmAsIntegerDimiAsIntegerDimjAsIntegerDima(30)AsInteger'确定数组的范围（）里的数即为最大可储存数+1PrivateS

#includevoidmain(){doublea,b(1),s=0;for(a=1;a

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sumAsLong,taAsLongta=1Fori=5To10Step5Forj=2Toita=

阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1

PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条

PrivateFunctionbq(ByValsAsLong)AsLongSelectCasesCase1bq=1Case2bq=1CaseIs>=3bq=bq(s-1)+bq(s-2)EndSele

dima,b,c,x1,x2asinteger点计算之后a=textboxA.textb=textboxB.textc=textboxC.textx1=(-b-(b^2-4*a*c)^0.5)/(2*

PrivateSubCommand1_Click()DimiAsLong,sumAsLongFori=1To50Step2sum=sum+i*(i+1)*(i+2)NextMsgBox"级数前50项奇

Rem语言：VisualBasic6.0SubMain() '开始 S=0  For i=1To 50  &nb

PrivateSubForm_Load()Rem在这里定义一个inti来控制数字的循环变化,定义intNumber是用来输入要求第几个数Diminti,intNumberAsInteger'lngFi

PrivateSubCommand1_Click()Dimi,n,sAsIntegern=Val(Text1.Text)s=0Fori=nTo0Step-1s=s+i*(i+1)/2NextiText

 Private Sub Command1_Click()Dim F(11), i As LongF(0) = 

Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor

DimcAsObjectSetc=CreateObject("MSScriptControl.ScriptControl")c.Language="vbscript"MsgBoxc.Eval("2+4

PrivateFunctionbq(ByValsAsLong)AsLongSelectCasesCase1bq=1Case2bq=1CaseIs>=3bq=bq(s-1)+bq(s-2)EndSele

PrivateSubCommand1_Click()Dimsum,xx=0sum=0Fori=1To200x=x+2*(i-1)sum=sum+xNextPrintsum'结果为2666600EndS