一元高階方程求解vb編程代碼

⑴ 如何用VB來製作一個解一元一次方程的程序，界面已有（如下圖），只求代碼！！急！！ 如：4x+1=5 x=

Text4.Text = (Text3.Text - Text2.Text) / Text1.Text

⑵ 求代碼,用VB解一元方程

這個是書上的例子呀，找個VB教材就可以

⑶ 求用VB解一元一次方程的代碼

不曉得你要什麼樣的界面

PrivateSubCommand1_Click()

DimxAsInteger,aAsInteger,yAsInteger

x=Val(Text1)

a=Val(Text2)

y=a*x

Label1.Caption=y

EndSub

⑷ 有誰會VB6.0，幫我設計一個解一元方程的程序（即：輸入一個方程等式，可解出x的值）

Private Sub Command1_Click()
Dim x As Integer
Dim a As Integer
Dim b As Integer
Text1.Text = Text1.Text & " "
a = Left(Text1, InStr(1, Text1, "x") - 1)
b = Mid(Text1, InStrRev(Text1, "=") + 1, InStr(1, Text1, " ") - InStrRev(Text1, "x") - 1)
x = b / a
Text2.Text = x
End Sub

⑸ 誰能用VB解一下這個一元方程，求代碼。

'答案是29.85，注意代碼里可以設置結果的精確度
Private Function calc(bitnum As Integer) As Double

Dim v As Double, eps As Double
Dim cnt As Integer: cnt = 0

eps = 1
v = eps

Do While True
r = (8.314 * 473.15) / (v - 29.85) - (3.224 * 1000000) / (473.15 * v * (v + 29.85)) ^ 0.5
If r > 20.26 Then
cnt = cnt + 1
If cnt > bitnum Then
Exit Do
End If
v = v - eps
eps = eps / 10
End If
v = v + eps
Loop

calc = v

End Function

Private Sub Command1_Click()

v = calc(6) '結果精確到6位小數

MsgBox v

End Sub

⑹ VB計算一元多次方程

一元方程可以用牛頓插值法解。
可以找找相關資料。
下面是vb代碼：

Private Sub Command1_Click()
a = 1
b = 1
c = 1
d = 1
e = 1

x = 0
absolution = 1
Do While absolution > 0.0000001

y = x + a * x ^ 5 + b * x ^ 9 + c * x ^ 13 - d * x ^ 17 - e

'一介導數
Y1 = 1 + 5 * a * x ^ 4 + 9 * b * x ^ 8 + 13 * c * x ^ 12 - 17 * d * x ^ 16
X1 = x - y / Y1
absolution = Abs(X1 - x)
x = X1
Loop
Text1 = X '解
End Sub

⑺ vb一元多次方程求解

用編程解決此類問題相當困難，x也不一定向樓上說的是0-1000的正整數。
對於此類問題通常的方法就是反復取值逼近，取值精度越高，x越接近正確值（只能接近，不能完全一致）,計算時間越長。
而且取值逼近的方法(演算法)也是多種多樣，效率也不一樣，目前比較常用的科學的演算法是牛頓法迭代，樓主可以搜索一下其原理，不是一句兩句說的清的。
另外：推薦樓主用execl的vba解決此類問題，有現成的迭代函數（execl自帶的單變數求解也是基於此原理完成的，亦可完成你的問題）

⑻ VB 解一元二次方程程序設計

vb代碼如下：

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox("請輸入一元二次方程的系數a")
b = InputBox("請輸入一元二次方程的系數b")
c = InputBox("請輸入一元二次方程的系數c")
If a = 0 Then
a = InputBox("因為a≠0，你輸入的a＝0，請重新輸入系數a")
End If
d = b * b - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "系數為"; a; b; c; "的一元二次方程的根分別為"; x1
Print "系數為"; a; b; c; "的一元二次方程的根分別為"; x2
Else
Print "此方程在實數范圍內無解"
End If
End Sub

一、按鈕「求一元二次方程」的vb代碼如下：
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b * b - 4 * a * c
If d >= 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Label4.Caption = X1
Label5.Caption = X2
Else
Label4.Caption = "在實數范圍內無解"
End If
End Sub

二、按鈕「重置」的vb代碼如下：
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub

三、按鈕「退出」的vb代碼如下：
Private Sub Command3_Click()
End
End Sub

特殊例子（指定系數c的值為5）：

在窗體「Form1.frm」的「Command1_click「事件中編寫代碼（請不要隨便更改其它代碼），使之能夠實現如下功能：在Text1輸入整數a、、Text2輸入b，判斷一元二次方程ax2+bx+5=0有無實數根。並在Text3文本框中顯示判斷結果，即有實數根則在Text3文本框中輸出「有」，否則輸出「無」。

VB程序代碼如下：

Private Sub Command1_Click()
dim a as single,b as single
a = Text1.Text
b = Text2.Text
d = b * b - 4 * a * 5
If d >= 0 Then
Text3.Text="有"
Else
Text3.Text="無"
End If
End Sub

如果不用dim定義變數，則上面的輸入部分語句改為下面的語句，這樣可以把字元變數類型轉化為數值類型：
a =val(Text1.Text)
b =val(Text2.Text)

樓主.給你寫這么呢多你不給加點分嗎?= =||