If
werte(1) = 0
Then
If
werte(2) > werte(3)
Then
rang(2) = 2
rang(3) = 1
rang(1) = 0
größter = 2
kleinster = 3
ElseIf
werte(2) = werte(3)
Then
rang(2) = 1
rang(3) = 1
rang(1) = 0
größter = 2
kleinster = 2
ElseIf
werte(2) < werte(3)
Then
rang(2) = 1
rang(3) = 2
rang(1) = 0
größter = 3
kleinster = 2
End
If
ElseIf
werte(2) = 0
Then
If
werte(1) > werte(3)
Then
rang(1) = 2
rang(3) = 1
rang(2) = 0
größter = 1
kleinster = 3
ElseIf
werte(1) = werte(3)
Then
rang(1) = 1
rang(3) = 1
rang(2) = 0
größter = 1
kleinster = 1
ElseIf
werte(1) < werte(3)
Then
rang(1) = 1
rang(3) = 2
rang(2) = 0
größter = 3
kleinster = 1
End
If
ElseIf
werte(3) = 0
Then
If
werte(1) > werte(2)
Then
rang(1) = 2
rang(2) = 1
rang(3) = 0
größter = 1
kleinster = 2
ElseIf
werte(1) = werte(2)
Then
rang(1) = 1
rang(2) = 1
rang(3) = 0
größter = 1
kleinster = 1
Else
rang(1) = 1
rang(2) = 2
rang(3) = 0
größter = 2
kleinster = 1
End
If
ElseIf
werte(1) = 0
And
werte(2) = 0
Then
rang(3) = 1
ElseIf
werte(1) = 0
And
werte(3) = 0
Then
rang(2) = 1
ElseIf
werte(2) = 0
And
werte(3) = 0
Then
rang(1) = 1
End
If