VBA Excel

[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)

[EducatedFool]

If I<I+1 ...

В чем смысл этой загадочной проверки?

Или вы думаете, что если 4 меньше, чем 5, - то это не навсегда, и лишний раз проверить не помешает?

[Bombastick]

не судите строго, могу и бред написать ибо не работал в ВБА никогда. Наработки есть, код есть но чего то не хватает

[VictorM]

Выдает ошибку в строке If I<I+1 and x(I) > X(I+1)

не знаю, как там с логикой, но вот здесь просто синтаксические ошибки.
Запишите так

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
        End If
    Next i
End Sub

[Bombastick]

все равно ошибка. даю файл гляньте

[VictorM]

как писалось выше

В чем смысл этой загадочной проверки?

If i < i + 1 And x(i) > x(i + 1) Then
исходя из логики i все равно будет меньше чем i+1
как и x(i) никогда не будет больше чем x(i + 1)
хотя..может я и неправ

[nilem]

Может, так?

Private Sub CB_2_Click()
Dim i As Integer, s As Integer
For i = 1 To N - 1
    If x(i) > x(i + 1) Then s = s + 1
Next i
Me.TB_K.Text = s
End Sub

[Bombastick]

дааа
Private Sub CB_2_Click()
Dim i As Integer, s As Integer
For i = 1 To N - 1
If x(i) > x(i + 1) Then s = s + 1
Next i
Me.TB_K.Text = s
End Sub

сработало находит, до земли поклон

[EducatedFool]

сработало находит

Находит, но решение неполное.

Прочитайте ещё раз условие:

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

Где написано, что сравнивать надо только стоящие рядом значения?
"слева" - не значит, что рядом.

К примеру, если X[5] > X[16], то такой случай тоже надо учитывать.
А в вашем решении это не учитывается.

Вас выручат вложенные циклы.

[Bombastick]

Честно говоря я уже не знаю что делать с этим, а как учесть X[5] > X[16] такое?