Dim a As Long, b As Long, c As Long, d As Long
Dim h1 As Long, h2 As Long
a = 1: b = 2: c = 3: d = 4
'y = mx + t
'y = ax + b | y = 1x + 2
'y = cx + d | y = 3x + 4
'ax + b = cx + d | 1x + 2 = 3x + 4
'ax - cx = d - b | 1x - 3x = 4 - 2
'                | -2x = 2, 2x = -2, x = -1
h1 = a - c
h2 = d - b
h1 = h2 / h1
'y = mx + t
'y = m*h1 + t
'y = ax + b
'y = 1x + 2
'y = 1 * h1 + 2
MsgBox "S(x/y) = (" & h1 & "/" & (1 * h1 + 2) & ")"
'Überprüfung mittels Wertetabelle
'x_ | -5  -4  -3  -2  -1  0   1   2   3   4
'--------------------------------------------
'y1 | -3  -2  -1  0   1   2   3   4   5   6
'y2 | -11 -8  -5  -2  1   4   7   10  13  16

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!