| Код |
Option Explicit
Dim bytI, bytN, bytJ, bytK, bytR, bytMin, bytA(1 To 10) As Byte
Sub MinElement(bytI, bytN As Byte)
bytMin = bytA(bytI)
bytN = bytI
For bytJ = bytI + 1 To 10
If bytA(bytJ) < bytMin Then
bytMin = bytA(bytJ): bytN = bytJ
Next bytJ
End Sub
Private Sub cmdDim_Click()
Randomize
For bytI = 1 To 10
bytA(bytI) = Int(Rnd * 10)
txtDim.Text = txtDim.Text + Str(bytA(bytI))
Next bytI
End Sub
Private Sub cmdMin_Click()
bytMin = bytA(1)
bytN = 1
For bytI = 2 To 10
If bytA(bytI) < bytMin Then bytMin = bytA(bytI): bytN = bytI
Next bytI
Print "Минимальный элемент "; bytMin; "его индекс"; bytN
End Sub
[color=orange]Private Sub cmdSort_Click()[/color]
txtSort.Text = ""
For bytI = 1 To 9
Call MinElement(bytI, bytN)
bytR = bytA(bytI)
bytA(bytI) = bytA(bytN)
bytA(bytN) = bytR
For bytK = 1 To 10
txtSort.Text = txtSort.Text + Str(bytA(bytK))
Next bytK
Next bytI
End Sub
|
Ребят, вот весь код программы, при сортировке чисел (cmdSort_Click) происходит ошибка и указывает на переменную bytN (Compile error: ByRef argument type mismath). Как я понимаю, нужно присвоить тип перемнной, но и тут возникает ошибка, пишет: Excpected: list separator or ). Подскажите, что нужно сделать, для нормальной сортировки символов в массиве?
Спасибо заранее. |
)