Сделал вроде все!
Осталась последняя форма, не получается сортировку исправить
- Код: Выделить всё
Dim mAss(120) As String, i As Integer, j As Integer
Dim mSort(120) As String
Private Sub Command1_Click()
End
End Sub
Private Sub Command3_Click()
'Считать файл в одномерный массив, используя
'DriveLB, DirLB и FileLB по 3 элемента в записи
Open "mass.txt" For Input As #333
i = 0
Do Until EOF(333)
Input #333, mAss(i), mAss(i + 1), mAss(i + 2)
For j = 0 To 2
List1.AddItem mAss(i + j)
Next j
'???
DoEvents
Loop
Close #333
End Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~ТУТ НЕ ПОЛУЧАЕТСЯ~~~~~~~~~
Private Sub Command4_Click()
'Скопировать массив Mass() в MSort(), отсортировать
'его от меньшего к большему и высветить в List2
Dim bUff As String
List3.Clear
For i = 0 To 119
mSort(i) = mAss(i)
List3.AddItem mSort(i)
Next i
For i = 1 To 119
For j = 119 To 0 Step -1
If mSort(j) < mSort(j - 1) Then
bUff = mSort(j - 1): mSort(j - 1) = mSort(j): mSort(j) = bUff
List3.List(j - 1) = mSort(j - 1)
List3.List(j) = mSort(j)
Label1 = Label1 & " " & j
Else
End If
DoEvents
Next j, i
End Sub
Private Sub Dir1_Change()
File1 = Dir1
ChDir Dir1
End Sub
Private Sub Drive1_Change()
Dir1 = Drive1
ChDrive Drive1
End Sub
Типа отладка проги!
help plzz
