Pisałem sobie programik na lekcji w Visual Basicu. Wyglądał tak:
7 pól textowych do wpisywania liczb i programik miał po naciśnięciu przycisku sortować liczby. Oto, co udało mi się napisać:
Private Sub Command1_Click()
Dim i, j, z, n, w As Single
For i = 0 To 5
w = Text1(i).Text
For j = i + 1 To 6
If w > Text1(j).Text Then
w = Text1(j).Text
n = j
End If
Next j
z = Text1(0).Text
Text1(0).Text = Text1(n).Text
Text1(n).Text = z
Next i
End Sub
Visual Basic jest na tyle prosty, że powinniście go zrozumieć, nawet jak widzicie go pierwszy raz.
W każdym razie procedura nie działa.
Zamienia miejscami liczby z pierwszej, przedostatniej i ostatniej komórki. Komórki są indeksowane od zera. Sprawdzałęm procke parę razy, ale nie mogę znaleźć błedu.
Algorytm jest taki:
znaleźć najmniejszą liczbę (zmienna "w") i zamienić ją z liczbą w pierwszej komórce, to samo powtorzyć z drugą komórką i następnymi. Ale nie działa.
Ktoś widzi jakiś błąd?