UC知道vb编程，判断语句的问题
来源：百度知道 编辑：UC知道 时间：2024/05/26 13:05:49
方程组aX+bY=c
cX+dY=f
输入a，b，c，d，e，f 计算x，y的结果
前几个判断条件没错，下边这几个就不行了，写出来请高手指点一二
下面几句判断a和d同时为0，b和e同时为0的情况。运行后只能执行前两个判断，后面编写的无效。不知问题在哪（输入b、e为0的情况时，会在第一个判断出出错）
还有我这方法是不是不好，有简洁的吗
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single, e As Single, f As Single, x As String, y As String
a = Val(a1.Text): b = Val(b1.Text): c = Val(c1.Text): d = Val(a2.Text): e = Val(b2.Text): f = Val(c2.Text)
If a = 0 And d = 0 And b <> 0 And e <> 0 And c / b = f / e Then
y = c / b
x = "无穷解"
ElseIf a = 0 And d = 0 And b <> 0 And e <> 0 And c / b <> f / e Then
x = "无解"
y = "无解"
ElseIf b = 0 And e = 0 And a <> 0 And d <> 0 And c / a = f / d Then
x = c / a
y = "无穷解"
ElseIf b = 0 And e = 0 And a <> 0 And d <> 0 And c / a <> f / d T
cX+dY=f
输入a，b，c，d，e，f 计算x，y的结果
前几个判断条件没错，下边这几个就不行了，写出来请高手指点一二
下面几句判断a和d同时为0，b和e同时为0的情况。运行后只能执行前两个判断，后面编写的无效。不知问题在哪（输入b、e为0的情况时，会在第一个判断出出错）
还有我这方法是不是不好，有简洁的吗
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single, e As Single, f As Single, x As String, y As String
a = Val(a1.Text): b = Val(b1.Text): c = Val(c1.Text): d = Val(a2.Text): e = Val(b2.Text): f = Val(c2.Text)
If a = 0 And d = 0 And b <> 0 And e <> 0 And c / b = f / e Then
y = c / b
x = "无穷解"
ElseIf a = 0 And d = 0 And b <> 0 And e <> 0 And c / b <> f / e Then
x = "无解"
y = "无解"
ElseIf b = 0 And e = 0 And a <> 0 And d <> 0 And c / a = f / d Then
x = c / a
y = "无穷解"
ElseIf b = 0 And e = 0 And a <> 0 And d <> 0 And c / a <> f / d T
你把判断条件改成这个就好了
If a = 0 And d = 0 And b <> 0 And e <> 0 Then
If c / b = f / e Then x = "无穷解": y = str(c / b) Else x = "无解": y = "无解"
ElseIf b = 0 And e = 0 And a <> 0 And d <> 0 Then
If c / a = f / d Then x = str(c / a): y = "无穷解" Else x = "无解": y = "无解"
End If
出错的主要原因是程序在比较时会去算每个式子,有除数为0的式子它就会报错的...^_^b