① 用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