一元二次方程有时候真是难解,真希望有一个解一元二次方程的快方法,下面小编就分享一个解一元二次方程的程序。
工具/原料
可上网的电脑
方法/步骤
1
安装Visual Basic6.0精简版 。
2
打开Visual Basic,点击标准EXE,再点击打开。
3
用左边控件建立如图所示的界面
4
双击“计算”按钮,输入代码:Private Sub Command1_Click()Dim x1 As StringDim x2 As StringDim d As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b * b - 4 * a * cIf d < 0 Then Text4.Text = 'False'ElseIf d = 0 Then Text4.Text = Str((-b) / (2 * a))ElseIf d > 0 Then Text4.Text = Str((-b + Sqr(d)) / (2 * a)) & '或' & Str((-b - Sqr(d)) / (2 * a))End IfEnd Sub
5
点击左上角“文件”,再点击“生成工程1.exe(K)”,即可。
6
点击关闭,将工程文件和窗口文件保存
注意事项
需要vb精简版的私信
下一篇:高考物理追及问题