今天做题, 好多需要解一元二次方程, 于是就写了一个这(貌似那个统计啥的也写过一个)东西。
代码本身没什么用, 可是对我解方程很有用。
代码:
Dim a = Val(TextBox1.Text), b = Val(TextBox2.Text), c = Val(TextBox3.Text)
If a = 0 Then
TextBox4.Text = "原方程不是一元二次方程"
Return
End If
Dim derta = b ^ 2 – 4 * a * c
Dim sq = Math.Sqrt(derta)
Select Case derta
Case Is < 0
TextBox4.Text = "原方程无实数解"
Case 0
TextBox4.Text = "x1=x2=" & (-b) / (2 * a)
Case Is > 0
TextBox4.Text = "x1=" & (-b + sq) / (2 * a) & vbCrLf
TextBox4.Text &= "x2=" & (-b – sq) / (2 * a) & vbCrLf
End Select
又开始用程序来解决数学问题了
计算机的发明就是为了计算, 用来xx或者yy或者zz就失去了原始的用途。