vb中一元二次方程case语句

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea=InputB

A错误!因为Case后面的表达式是一个或多个表达式的分界列表,比如：Case1To4,7To9,11,13,Is>MaxNumberA如果这样写语法上就对了：CaseIs>10,Is10或者10And

很简单,因为你每单击一次左边的就执行此过程,而左列表框是每次都更新的.

这个要看i的数据类型,如果i为整型,如下面形式：dimiaslongfori=2.5to6.5step0.5next结果将会是你所理解的那样,如果i是之前未声明,i的类型是变体,这时就不会自动取整,你

no

forx(循环变量)=1(初始值)to10(终止值)step2(步进)next以上为完整的循环结构1.没有终止值所以错3.初始值比终止值小所以步进应该为整数而它是负数所以也错4.初始值大于终止值默认步

因为当解的范围扩大到复数后,引入了复数i而与实数不同的是i^2=-1所以肯定会有复根至于为什么会有实根你可以看下你的复数方程,如果ABC不同时为实数时,就会出现一复根一实根比如x^2-(1+i)x+i

sum=sum-sum有效,其它都不是赋值

sqr(n)是指n的平方跟从2到根号n,用来找素数素数肯定从2开始,然后a=根号a*根号a超过根号a就重复计算了再问：那使用sqr(n)有什么好处？或者说和其他的取值方式比有什么区别？为什么不用for

Private Sub Command1_Click()a = Text1.Textb = Text2.Texta = 

要用逗号分隔符分隔开.caseis>10,is

MsgBox"请输入完整的数值,然后点击“开始计算”!"Text1.SetFocusText1.Text=""Text2.Text=""'清空用户名和密码等待重新输入Text3.Text=""Text

就是关闭窗体,并释放此窗体占用资源的意思再问：如果在程序的开头，不加这句是不是也行呀再答：那不是刚运行就退出了吗？再问：我的意思是，这三个语句，在编程的时候，是不是可以省略不写，如果不写这些，再编程，

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

Rnd函数随机生成一个1到6的随机整数.　　DimMyValue　　MyValue=Int((6*Rnd)+1)'生成1到6之间的随机数值,这里的int是把后面产生的小数转换成整数!为了生成某个范围内

vb代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea

type根类型有根asboolean大根assingle小根assingleendtypefunction求根(aassingle,bassingle,cassingle)as根类型dim得塔assi

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

使用Is关键字时,则可以配合比较运算符来指定一个数值范围.比如case后面的值是不是固定的某一个值而是在一定范围内就需要用is了.