VBA Excel

[nilem]

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

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

Вот это тоже смутило. Наверное, так как-то:

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