Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
x 2 + px + q = 0.<br />
<br />
D = p 2 − 4q<br />
<br />
x1 = 0, 5(−p + D 0,5 ), x2 = 0, 5(−p − D 0,5 ).<br />
<br />
p q <br />
D x1 x2 <br />
Sub PQFormel(ByVal p As Double, q As Double, _<br />
ByRef D As Double, ByRef x1 As Double, ByRef x2 As Double)<br />
D = p ^ 2 - 4 * q<br />
If (D < 0) Then Exit Sub<br />
x1 = 0.5 * (-p + D ^ (0.5))<br />
x2 = 0.5 * (-p - D ^ (0.5))<br />
End Sub<br />
Sub TestPQ()<br />
Dim p As Double, q As Double<br />
Dim D As Double, x As Double, y As Double<br />
p = -9: q = 20<br />
PQFormel -9, 20, D, x, y<br />
MsgBox "D = " & D & ", x = " & x & ", y = " & y<br />
End Sub<br />
TestPQ <br />
p = -9 q = 20 <br />
PQFormel<br />
p q <br />
p q <br />
<br />
<br />
p PQFormel <br />
p TestPQ<br />
<br />
PQFormel <br />
D D TestPQ <br />
x y x1 x2 D<br />
x y TestPQ PQFormel <br />
p q TestPQ