用VB中的if语句编程一元二次方程ax^2 bx c=0的根,其中a不等于0-搜答案-智慧作业帮

privatesubcommand1_click()dimi,a,bfori=1to1000ifimod3=0thena=a+1ifimod7=0thenb=b+1nextprint"1~1000中能

不见得,可以使用其他表达式.比如,if1then.就是一个常量.

vb中没有if函数,只有if语句.if语句是对后面的条件进行判断的意思,如果条件得真,则执行Then后的代码,否则退出判断或者执行Else之后的代码.VB中有一个函数能做到类似的效果,但绝不是if,而

DimsAsSingleDimiAsIntegerFori=1To50s=s+i/(i+1)NextMsgBox"前50项和为"&s

使用if表达一个分段函数其实很简单的.使用if,已经很简单了.如果使用select可能更有难度.

PrivateSubForm_load()DimiAsLong,nasintegern=int(val(inputbox("输入Fibonacci数列的项数")))Fori=1TonPrintFibo

VB函数大全可以满足你,你这种学习方法不对,Vb中有自动完成功能,不需要刻意去记忆,推荐一本书,清华大学出版的VB编程基础.

按照你的说法,是算从0变到1的次数,而不单纯是变化（0变1或者1变0）,用不着什么for,if,直接length(find(diff(a)==1))就可以了如果非要用for,ifs=0;forn=1:

VB试题语句if 0

错的if0

PrivateSubCommand_1Click()Dima!,b!c!,w!a=Val(Text1)b=Val(Text2)c=Val(Text3)Ifa

VB中哪里有什么括号啊!.IF条件THEN.ELSE.ENDIFvb都是用人类语言思考的.几乎没数学表达式

IF条件1ThenIf条件2Then语句1Else语句2EndIfElse语句3EndIf------------------------------不要写一行,这样是不是结构清楚点?再问：谢谢了。我

dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问：constaAslongbAslongc

不是很明白你的意思,是不是要对纯字母的字符串进行转换,比如AgyZdhFSH转换为FldEimKXM?asc(c)与asc("c")肯定是不同的,前面的c是变量,可以是26个字母中任一个,而后面的"c

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

把If和Msgbox写在统一行,是默认为没有EndIf的条件句,把换行Msgbox写入If和EndIf中间即可ElseIf方式：IfCI=1ThenMsgBox"第五位数字是"&PcEElseIfCI

OptionExplicitPrivateSubCommand1_Click()Dima,b,ca=1:b=-5:c=6Printa,b,c&vbNewLine&fc(a,b,c)EndSubFunc

以下是画一元二次方程的图的代码：（假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800）PrivateSubCommand1_Click()ClsLine(0,2400)-(4800,2

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

PrivateSubCommand1_Click()i=1s=0DoWhilei