求用VB编辑一个计算二元一次方程组的程序

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/29 11:15:21

求用VB编辑一个计算二元一次方程组的程序
要完善的,不能有程序崩溃,比如输入数据时输入的不是数字而是字母就会崩溃

主程序代码就是这样,如果要详细的,留下邮箱我给你发过来
-----------------------------------------------------------------------
Private Sub Command1_Click()
If IsNumeric(Text3.Text) And IsNumeric(Text4.Text) And IsNumeric(Text5.Text) And IsNumeric(Text6.Text) And IsNumeric(Text7.Text) And IsNumeric(Text8.Text) Then
a1 = Val(Text3.Text)
a2 = Val(Text4.Text)
b1 = Val(Text5.Text)
b2 = Val(Text6.Text)
c1 = Val(Text7.Text)
c2 = Val(Text8.Text)
Else
MsgBox "未完整输入数据无法运算,请输入数据."
a1 = Val(InputBox("a1 = ", "输入a1值", , 20))
b1 = Val(InputBox("b1 = ", "输入b1值", , 20))
c1 = Val(InputBox("c1 = ", "输入c1值", , 20))
a2 = Val(InputBox("a2 = ", "输入a2值", , 20))
b2 = Val(InputBox("b2 = ", "输入b2值", , 20))
c2 = Val(InputBox("c2 = ", "输入c2值", , 20))
End If
If IsNumeric(a1) And IsNumeric(b1) And IsNumeric(c1) And IsNumeric(a2) And IsNumeric(b2) And IsNumeric(c2) Then
Y1 = a1 * c2 - a2 * c1
X1 = b2 * c1 - b1 * c2
Text3.Text = a1
Text4.Text = a2
Text5.Text = b1
Text6.Text = b2
Text7.Text = c1
Text8.Text = c2
e = a1 * b2 - a2 * b1 + 1
Else
MsgBox " 字符无效无法求解."
Text1.Text = "×"
Text2.Text = "×"
End If
If e 1 And IsNumeric(a1) And IsNumeric(b1) And IsNumeric(c1) And IsNumeric(a2) And IsNumeric(b2) And IsNumeric(c2) Then
y = Y1 / (e - 1)
x = X1 / (e - 1)
Text1.Text = x
Text2.Text = y
ElseIf e = 1 Then
MsgBox "除数为零/系数相同无法求解"
Text1.Text = "×"
Text2.Text = "×"
End If
End Sub
再问： eedawe545454@163.com 谢谢大神~
再答：

OK~做工有些粗糙的哈~

求用VB编辑一个计算二元一次方程组的程序用vb设计一个应用程序完成二元一次方程组的求解求100道二元一次方程组的计算练习题用VB设计一个计算圆的面积的程序用VB设计一个计算银行存款利息的程序编写一个计算个人所得税的程序（用VB编写）请教大神用VB编一个计算的程序? 二元一次方程组的一个问题二元一次方程组只列式不计算二元一次方程组计算格式求一道二元一次方程组的解求初一二元一次方程组的应用题~