VB编写开三次根号程序

在VB中+，—，×，/，（）的运算优先等级是这样的！+，-（我们称为正负号）他的优先等级最高。（）其次才是（）所以-27的开3次方，不用写成（-27）^(1/3),直接写成-27^(1/3)即可！

是用(-b+-spr(b^-4ac))/2a算的吧

那就这样：

dim result as single

result=spr(b^-4ac)

if result=0 then

print "x1=x2=" &-b/2a

elseif int(result)=result then

print "x1=" &(-b-spr(b^-4ac))/2a

print "x2=" &(-b+spr(b^4ac))/2a '结果直接输出

else

print "x1=" &"(" &-b &"+" &result &"^(0.5))/" &2a

print "x2=" &"(" &-b &"-" &result &"^(0.5))/" &2a '^(0.5)表示根号

end if

我初中刚毕业，VB也很菜，以上方法没试验过，不知道行不行

当然，"^(0.5)"可以换作根号字符会好一点，道理一样的但是我不知道怎么打上去。。。

就是这样了吧，给点分啊

VB 有一个求平方根的函数，使用示例:

a = Sqr(数值)

以下摘自 VB 6.0 SP6 的对象浏览器中对 Sqr 函数的解释:

Function Sqr(Number As Double) As Double

VBA.Math 的成员

返回一个数的平方根

---