VB编程代码

Question

Dim a As Single
Dim b As Single
Dim c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If d >= 0 Then
e = (-b + Sqr(d)) / (2 * a)
f = (-b + Sqr(d)) / (2 * a)
Text4.Text = e
Text5.Text = f
Else
mgsbox "无解"
End If
哪错了啊????
这是一个解二元一次方程的代码.

Answer 1

一定有错的地方:
1、mgsbox "无解"的名称有错，应该为Msgbox "无解";
2、当变量作为除数时，事先一定要确认它不能为零或非常小的数，否则会出现“溢出”错误；
3、在程序中应该添加对非法数据输入的处理；
4、一个好习惯：对每个变量进行事先声明.
祝你成功！

Answer 2

就是你编程的时候。。那个文本框里面不能输入字母。。。再开始要调试时就要先把那个文本框里面的字母先换成数字。。。要不就要溢出来的。。。不能调试了。。。。。。。。。。。。。。