自制一元二次解方程器

一元二次解方程器.exe 版本:1.0.0.2 第二次修改版
1.0.0.1 改进了外形 停用了最大化按钮 修正了当c大于等于零时的数据溢出导致程序停止运行的问题
1.0.0.2 修正了当a,b,c中三个数据任意一个数据为零时数据溢出导致程序停止运行的问题
本程序兼容windows7（因为这就是在win7环境下开发的）
如果大家在使用中遇到了类似于下面的问题请及时通知我，我会以最快进行修正（在我能力范围内）
联系方式:QQ 1296700347 镇江实验学校080432陈炎

下载地址:http://cid-42841e5aca901ce7.office.live.com/browse.aspx/VB%e8%87%aa%e5%88%b6%e7%a8%8b%e5%ba%8f?uc=1
程序代码
Option Explicit
Private Sub Command1_Click()
         Dim a!, b!, c!, x1!, x2!
         a = Val(Text1)
         b = Val(Text2)
         c = Val(Text3)
         If ((a = 0) Or (b = 0) Or (c = 0)) = True Then MsgBox "请输入数值", 48, "错误"
         If c > 0 Then MsgBox "c的取值必须小于零", 16, "错误"
         If c > 0 Then Text3 = -c
         If c <= 0 & a And b And c <> 0 Then x1 = Format((-b + Sqr(b * b - 4 * a * c)) / 2 / a, "#.#####")
         If c <= 0 & a And b And c <> 0 Then x2 = Format((-b - Sqr(b * b - 4 * a * c)) / 2 / a, "#.#####")
         If c <= 0 & a And b And c <> 0 Then Text4 = x1
         If c <= 0 & a And b And c <> 0 Then Text5 = x2
End Sub
Private Sub Command2_Click()
         Text1 = ""
         Text2 = ""
         Text3 = ""
         Text4 = ""
         Text5 = ""
End Sub
Private Sub Command3_Click()
         MsgBox "   二元一次解方程器" & Chr$(13) + Chr(10) & Space(30) & "by陈炎" & Chr$(13) + Chr$(10) & Chr$(13) + Chr$(10) & "   开发平台：Microsoft Visual Basic 6.0", 64, "关于"
End Sub