用VB求ax² bx c=0的解
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/22 18:19:59
for语句fori=n1ton2[stepn3]...[exitfor]nexti对于对象集合有个特殊的For语句比如Text控件数组Text1(n)dimttasTextBoxForeachttin
DimnMaxasInteger,nMinasInteger,nTmpasInteger,nJsqasIntegerDimdSumasDoubleRandomizenTmp=CInt(Rnd*100)
PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"
a+b=0,a/b=-1再答:bc大于0再答:a-c大于0再答:最后一个小于0再答:ac小于0再答:b+c小于0再答:求好评再问:。。。。。再问:你秒回啊再问:那就把好评给你吧
在窗体上分别放三个文本框用于输入a,b,c的值,再放一个按钮用于求解privatesubcommand1_click()dimxasdouble,x1asdouble,x2asdouble,a1asd
PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,CAsSingleDimR1AsSingle,R2AsSingleA=Val(Text1.Text)B
PrivateSubForm_Click()Fori=2To1000s1=0Fori1=1ToiIfiModi1=0Thens1=s1+1NextIfs1=2Thens=s+iNextPrintsEn
PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifb^2-4*a*cText4.Text="
...书上不是很清楚的写了么x=(-b±√(b²-4ac))/2a
将六个圆命名为“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
两处错误,第一个,没有赋值过程,应该改为:a=InputBox("a=")b=InputBox("b=")c=InputBox("c=")第二个:x1=(-b-d)/(2*a)应该是x2=(-b-d)
PrivateSubCommand1_Click()x=InputBox("请输入x:")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs
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
应该为ifb²-4ac>=0thenx1=负的2a分之b+根号下b²-4acx2=负的2a分之b-根号下b²-4acelse此二元一次方程无实数根endif如果要说明a不
dima,b,c,x1,x2,da=val(inputbox("请输入系数a"))b=val(inputbox("请输入系数b"))c=val(inputbox("请输入系数c"))d=b^2-4*a
我HI你吧,等一下