求二元一次方程的解 VB编程问题

显示全部楼层 · 2010-6-8 13:13:34

以下是编程中的一部分：
Print"请输入方程系数a、b、c"
Let a = InputBox（"请输入a"）
Let b = InputBox（"请输入b"）
Let c = InputBox（"请输入c"）
Print"a=";a
Print"b=";b
Print"c=";c
Let x1 = (-b+Sqr(b*b-4*a*c))/（2*a）
Let x2 = (-b-Sqr(b*b-4*a*c))/（2*a）
Print"x1=";x1
Print"x2=";x2
如果使用选择结构，当此方程无解时，该在中间插入什么？？

千问 · 2010-6-8 13:13:34

Print"请输入方程系数a、b、c"Let a = InputBox（"请输入a"）Let b = InputBox（"请输入b"）Let c = InputBox（"请输入c"）Print"a=";aPrint"b=";bPrint"c=";cif b^2-4*a*c<0then
msgbox "此方程无解."
exit subend ifLet x1 = (-b+Sqr(b*b-4*a*c))/（2*a）Let x2 = (-b-Sqr(b*b-4*a*c))/（2*a）Print"x1=";x1Print"x2=";x2

千问 · 2010-6-8 13:13:34

Print"请输入方程系数a、b、c"（abc不为0）

千问 · 2010-6-8 13:13:34

插入LET

千问 · 2010-6-8 13:13:34

你是求一元二次方程的解吧！看我的代码：'先添加一个按钮Command1和三个文本框Private Sub IntSqr(A As Long, Zs As Long, Gh As String)Dim I As Long, J As Long, B As LongB = AJ = 1For I = 2 To B - 1If B