vb计算数列2 1,3 2,5 3-的前10项和并将其打印

解题思路：一个等差数列，一个等比数列解题过程：varSWOC={};SWOC.tip=false;try{SWOCX2.OpenFile("http://dayi.prcedu.com/include

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

OptionExplicitFunctionf(nAsInteger)AsLongIfn=1Thenf=1ElseIfn=2Thenf=1Elsef=f(n-2)+f(n-1)EndIfEndFunc

斐波那契数列第100项为354224848179261915075前100项和为927372692193078999175计算结果如下：.098.135301852344706746049S098=3

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

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

这样的题目主要是利用Mod运算,能被13整除,n就加1,代码如下：PrivateSubCommand1_Click()Fori=1To9999IfiMod13=0Thenn=n+1EndIfNexti

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

OptionExplicitDimFileNameAsString'文件名变量PrivateSubForm_Load()DimFilePathAsStringFilePath=App.PathIfRi

VB程序斐波那契数列代码ma,b,ciasintegera=1b=1fori=3to10c=aba=bb=cdebug.printcnexti

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

斐波那契数列的发明者,是意大利数学家列昂纳多·斐波那契.斐波那契数列指的是这样一个数列：1、1、2、3、5、8、13、21、……下面是前1000项斐波那契数列的和的VB代码:PrivateSubCom

非递归：staticvoidf(intn){longp1=1,p2=1,p=1;for(inti=1;i

PrivateSubCommand1_Click()DimS_numAsLongS_num=Val(Text1.Text)Text2.Text=""Text3.Text=""IfS_num>0Then

不好意思我好久没用vb了大概如下dimcassingledimxassinglex=inputbox("输入x")c=5*(x-32)/9printc\我以前把vb删了不能试你试试吧

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

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

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

PrivateSubCommand1_Click()Dimi,nAsIntegerDima()AsIntegern=Val(InputBox("序列的个数","",4))IfnReDima(1Ton)

题呢