一元高阶方程求解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)

楼主.给你写这么呢多你不给加点分吗?= =||