VB求方程ax2 bx c 0的根 用三个函数

for语句fori=n1ton2[stepn3]...[exitfor]nexti对于对象集合有个特殊的For语句比如Text控件数组Text1(n)dimttasTextBoxForeachttin

distance是用来计算指定点到最外面圈(以下简称圈9)的圈心的距离Shape1(9).Height\2是圈9的y半径长度Shape1(9).Top+Shape1(9).Height\2是指从圈9的

DimnMaxasInteger,nMinasInteger,nTmpasInteger,nJsqasIntegerDimdSumasDoubleRandomizenTmp=CInt(Rnd*100)

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

PrivateSubForm_Activate()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","数

ax2+bx+c=0应该是：a^2+bx+c=0吧?x1=round((-b+sqr(b^2+4*a*c)),2)x2=round((-b-sqr(b^2+4*a*c)),2)

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

PrivateSubForm_Click()Fori=2To1000s1=0Fori1=1ToiIfiModi1=0Thens1=s1+1NextIfs1=2Thens=s+iNextPrintsEn

x1=0Dox0=X1f1=x0^5-3*x0^2+2*x0+1f2=5*x0^4-6*x0+2X1=x0-f1/f2LoopWhileAbs(X1-x0)>0.000001PrintX1

DimminAsDouble,maxAsDoubleDimtmpAsDoublemin=1max=1.5tmp=0DoWhileTruetmp=((max+min)/2)^3-(max+min)/2-

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

Privatefunctione()Dime1,n,jcn=0e1=1jc=1Don=n+1jc=n*jce1=e1+1/jcLoopUntil1/jc

mModn=rr=mModn

PrivateSubCommand1_Click()x=InputBox("请输入x：")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs

PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","

Private Sub Command1_Click()Dim a As Single, b As Single,&nb

Dima,bPrivateSubCommand1_Click()temp=(Val(a)+Val(b))/2Ifh(temp)=Abs(h(temp))Andh(a)Ifh(temp)=Abs(h(t

正整数解太多了,应该求一定范围的定义在一百范围,maxint=100吧用x,y,z三个for循环实现forx=1tomaxintfory=1tomaxintforz=1tomaxintoifx+2y+

已经传给你工程了,有问题留言.我们继续讨论.

我HI你吧,等一下