Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single, e As Single, f As Single
Dim x As Single, y As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
f = Text6.Text
a = a / a
b = b / a
c = c / a
d = d / d
e = e / d
f = f / d
d = d - a
e = e - b
f = f - c
e = e / e
f = f / e
y = f
b = b - (e * b)
c = c - (f * b)
x = c
Label5.Caption = "x=" & x & "," & "y=" & y
End Sub
如果全盘否定,请写出你认为的程序
|