① 用vb编写一个程序求一元二次方程ax2+bc+c=0的根
用^表示幂,当b^2－4ac≥0时的根为．x=(-b±√(b^2-4ac))/(2a)称为一元二次方程的求根公式当b^2－4ac>0时,有两个不同的根当b^2－4ac=0时,有两个相同的根当b^2－4ac<0时,没有实数根.Private Sub Command1_Click()
Dim a, b, c
a = CDbl(InputBox("输入a值:"))
b = CDbl(InputBox("输入b值:"))
c = CDbl(InputBox("输入c值:"))
If b ^ 2 - 4 * a * c < 0 Then
Print "没有实根"
Else
Print "X1=" & (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Print "X2=" & (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
End IfEnd Sub
② vb 编一元二次方程求根
如果是根号下12呢，是否保留根号（12）？还是化简成2*根号（3）？
③ 有两根的求根公式的vb表达式
x1=(-b+sqr(b^2-4*a*c))/(2*a)
x2=(-b-sqr(b^2-4*a*c))/(2*a)
你要的是不是这两个表达式？
④ 求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编
Private Sub Command1_Click()
Dim A As Single,B As Single,C As Single
Dim R1 As Single,R2 As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If B ^ 2 - 4 * A * C < 0 Then
MsgBox "该方程无解."
ElseIf B ^ 2 - 4 * A * C = 0 Then
R1 = -B / 2 / A
MsgBox "该方程仅有一个根为" & R1 & "."
Else
R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."
End If
End Sub
⑤ 关于VB根式计算
一元二次的求根公式可以写成VB试为
根一:(-b+(4*a*c-b^2)^(1/2))/(2*a)
根二:(-b-(4*a*c-b^2)^(1/2))/(2*a)
比如方程ax^2+bx+c=o
只要给计算机输入a,b,c 按以上公式就可以求出~~
比如:
a=inputbox("a=")
b=inputbox("b=")
c=inputbox("c=")
if b^2-4*c*c<0 then
print "此方程无根"
end if
g1=(-b+(4*a*c-b^2)^(1/2))/(2*a)
g2=(-b-(4*a*c-b^2)^(1/2))/(2*a)
if g1=g2 then
print "次方程有同一跟为";g1
else
print "根1=";g1;"根2=";g2
end if
⑥ VB中数学公式写法
Private Sub Command1_Click()
If Text1.Text = "" Then
Label3.Caption = "请输入合法的的数值！"
Else
Label3.Caption = "你应该输入" & (Val(Text1.Text) - 1) * 4 + (1024 * Val(Text.Text)) & M 作为分区大小
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text1_Click()
Label3.Caption = ""
End Sub
'只允许在text1中输入0-9的数字
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") And Chr(KeyAscii) <> "." Then
KeyAscii = 0
End If
End Sub
这里text1.text是文本类型，需要转换成数值类型的才能进行运算。
(Val(Text1.Text) - 1) * 4 + (1024 * Val(Text.Text))
⑦ 有关于vb语言中编数学公式
这不就是需要乘方和阶乘嘛，先做一个阶乘的函数
Function JC(n as long) as long
Dim i as long
JC=1
if n > 0 then
for i = n to 1 step -1
JC=JC*i
Next
end if
End function
你看上面这个Function 就可以计算阶乘了，然后再计算你要求的那个
比如a(n)=x^n/(2n-1)!吧
先给x赋值，可以用Inputbox之类的
a(n)=x^n / JC(2n-1) 就这样就可以了，具体看n和x是多少了。
⑧ 在VB中怎么用数学表达式开n次方根
FunctionSqry(NumberAsDouble,ExpAsDouble)
Sqry=Number^(1/Exp)
EndFunction
⑨ “求一元二次方程的根”的vb代码怎么写，跪求，谢谢
PrivateSubCommand1_Click()
a=Val(Text1)'文本框里的值取出来
b=Val(Text2)'分别存到三个变量里，做方程的系数
c=Val(Text3)
Ifa<>0Then'首先判断第一个系数不为0的情况
dt=b^2-4*a*c'公式中用到的表达式暂存
r=-b/(2*a)
Ifdt>0Then'这种情况时用公式求方程的根
s=Sqr(dt)/(2*a)
q1="x1="&Format(r+s,"#.00")
q2="x2="&Format(r-s,"#.00")
Label1.Caption="方程的根分别是："&q1&"和"&q2'输出方程的两个根
ElseIfdt=0Then
Label1.Caption="x1=x2="&Format(r,"#.00")'两个相等根的输出
Else
Label1.Caption="无实根"'没有实根
EndIf
ElseIfb<>0Then'一元一次方程的情况处理
y=-c/b
Label1.Caption="方程只有一个根"&y
Else
Label1.Caption="方程无意义"'方程不成立的处理
EndIf
EndSub