Question

请问如何用VB解决一道简单的一元一次和一元二次方程？

比如 3x=100
和
4x+3y=100
5x-2y=50
如何用VB解决这样的题
（我知道手算简单多了，但是我想知道如何用VB算——）

Answer 1

将两个方程变成标准形式：AX+BY+C=0，添加Text1--Text8，依次为方程1的X项系数、Y项系数、常数项和方程2的X项系数、Y项系数、常数项以及X的解和Y的解。
添加一个按钮，代码如下：
Private Sub Command1_Click()
Dim A1 As Single, A2 As Single, B1 As Single, B2 As Single, C1 As Single, C2 As Single
A1 = Val(Text1)
A2 = Val(Text4)
B1 = Val(Text2)
B2 = Val(Text5)
C1 = Val(Text3)
C2 = Val(Text6)
If A1 * B2 - A2 * B1 = 0 Then
If B1 * C2 - B2 * C1 <> 0 Then MsgBox "方程组无解！": Exit Sub
If B1 * C2 - B2 * C1 = 0 Then MsgBox "方程组有无穷多组解无解！": Exit Sub
End If
Text7 = (B1 * C2 - B2 * C1) / (A1 * B2 - A2 * B1)
Text8 = (A2 * C1 - A1 * C2) / (A1 * B2 - A2 * B1)
End Sub

Answer 2

比如方程组
ax+by=c
dx+ey=f
a,b,c,d,e,f是你输入的数据,则
adx+bdy=cd
adx+aey=af
y=(cd-af)/(bd-ae)
x同理可得

Answer 3

换成标准形式没有意义。高等数学里面那个求解公式直接从ax+by=c形式推导的 。