这个是本人制作的一元二次方程计算器
下载后双击文件，按提示分别输入 a、 b、 c的值
之后便可得出结果
注：abc的值可以瞎填但不可以不填
这个就是下载地址，把这段复制粘贴到浏览器中的地址栏之后按提示下载
http://d.namipan.com/d/373ea9b47f0c7a73c38576d8ca746d34a1fc3d7853010000
电脑好的可以自己制作，方法如下：
1 新建一个文本文档并打开
2 在文档中输入以下代码
dim a,b,c,d,e,x1,x2
a=inputbox("请输入一元二次方程中a的值")
b=inputbox("请输入一元二次方程中b的值")
c=inputbox("请输入一元二次方程中c的值")
d=b^2-4*a*c '计算△
if d>=0 then '判断△是否大于或等于0
e=sqr(d)
x1=(-b+e)/(2*a)
msgbox("x1的值为"&x1)
x2= (-b-e)/(2*a)
msgbox("x2的值为"&x2)
else
msgbox("方程无解")
end if
3 保存时弹出的对话框中在文件名这一栏中输入
一元二次方程计算器.vbs
4 再次打开即可使用
如果大家觉得好那么就看看我们班的博客
http://cy07545dtj.blog.sohu.com/
欢迎大家的光临
下载后双击文件，按提示分别输入 a、 b、 c的值
之后便可得出结果
注：abc的值可以瞎填但不可以不填
这个就是下载地址，把这段复制粘贴到浏览器中的地址栏之后按提示下载
http://d.namipan.com/d/373ea9b47f0c7a73c38576d8ca746d34a1fc3d7853010000
电脑好的可以自己制作，方法如下：
1 新建一个文本文档并打开
2 在文档中输入以下代码
dim a,b,c,d,e,x1,x2
a=inputbox("请输入一元二次方程中a的值")
b=inputbox("请输入一元二次方程中b的值")
c=inputbox("请输入一元二次方程中c的值")
d=b^2-4*a*c '计算△
if d>=0 then '判断△是否大于或等于0
e=sqr(d)
x1=(-b+e)/(2*a)
msgbox("x1的值为"&x1)
x2= (-b-e)/(2*a)
msgbox("x2的值为"&x2)
else
msgbox("方程无解")
end if
3 保存时弹出的对话框中在文件名这一栏中输入
一元二次方程计算器.vbs
4 再次打开即可使用
如果大家觉得好那么就看看我们班的博客
http://cy07545dtj.blog.sohu.com/
欢迎大家的光临
