Excel (VBA)

[Bombastick]

Определить количество инверсий в одномерном массиве X[1..20] (т.е. таких пар элементов, в которых большее число находится слева от меньшего: X[I] > X[J] при I < J).

а)Создаю массив
Dim x() As Integer
Dim N As Integer

Private Sub CB_1_Click()
Dim A, B, i As Integer
N = Val(TB_N.Value)
ReDim x(1 To N) As Integer
A = -20
B = 30
Randomize
For i = 1 To N
x(i) = Int((B - A) * Rnd + A)
Next i
For i = 1 To N
Cells(i, 1) = x(i)
Next i
End Sub

Далее сама функция
Private Sub CB_2_Click()
S=0
For I=1 To N
If I<I+1 and x(I) > X(I+1)
Then S=S+1
Next I
End Sub
Выдает ошибку в строке If I<I+1 and x(I) > X(I+1)
И не получается сделать что бы выводило в окошко результат (TB_K)

2я задачка. В заданном предложении поменять местами первое и последнее слово. (со строками вообще косяк)

[gsg]

Сообщение от Bombastick

Private Sub CB_2_Click()
S=0
For I=1 To N
If I<I+1 and x(I) > X(I+1)
Then S=S+1
Next I
End Sub
Выдает ошибку в строке If I<I+1 and x(I) > X(I+1)

If i < i + 1 And x(i) > x(i + 1) Then
    s = s + 1
End If

так ошибки не будет

p.s.: мне кажется, или условие i < i + 1 будет выполняться всегда ?