Не работает сортировка массивов методом Хоара. Думаю, ошибка в процедуре Sort. Сам метод - после If Option2.Value Then.
Private Sub Command3_Click()
If X(1) <> "" Then
Picture2.Cls
Picture3.Cls
If Option1.Value Then
For i = 1 To 10
For j = 10 To i + 1 Step -1
If w(i) < w(j) Then
k = w(i)
w(i) = w(j)
w(j) = k
End If
Next j
Next i
End If
If Option2.Value Then
Sub Sort((L As Long, R As Long, w(i) As Long))
For i = 1 To 10
k = w((L + R) / 2)
i = L
j = R
Do While i <= j
Do While w(i) < k
i = i + 1
Loop
Do While w(j) > k
j = j - 1
Loop
If i <= j Then
p = w(i): w(i) = w(j): w(j) = p
i = i + 1: j = j - 1
End If
Loop
If L < j Then Sort L, j, w(i)
If i < R Then Sort i, R, w(i)
End Sub
Вот блок-схема алгоритма #77