Как сделать по-другому?

@*Солнечная* · Регистрация: 09.06.2011

Author24 — интернет-сервис помощи студентам

по заданию надо упорядочить элементы одномерного массива х размера N, расположив их в порядке возрастания в том же массиве.

у меня есть код, в котором создается другой упорядоченный массив. а как именно в этом же массиве расположить элементы?

Visual Basic

Sub z()
Dim c(1 To 10) As Integer
Dim k, i, j As Integer
Dim vr As Single
k = InputBox("Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ")
If k > 10 Then Exit Sub
Cells(1, 1) = k
For i = 1 To k
c(i) = InputBox("Ââåäèòå ÷èñëî")
Cells(i, 2) = c(i)
Next
For i = 1 To k - 1
For j = i + 1 To k
If c(j) < c(i) Then
vr = c(i)
c(i) = c(j)
c(j) = vr
End If
Next
Next
For i = 1 To k
Cells(i, 3) = c(i)
Next
End Sub

@19vitek · 14.06.2011, 19:17

Сделал по другому.

Visual Basic

Sub z()
Dim k, i, j As Integer
k = InputBox("Введите количество элементов", , 10)
If k > 10 Then Exit Sub
ReDim c(1 To k) As Integer
Cells(1, 1) = k
For i = 1 To k
c(i) = Int(Rnd * 10)
'InputBox ("Введите число")
Cells(i, 2) = c(i)
Next
st1 = UCase(InputBox("Выполняем сортировку? Y/N", , "Y"))
If st1 = "Y" Then
   Range("b1:b" & k).Sort Key1:=Range("b1")
MsgBox "Сортировка завершена!!!"
End If
For i = 1 To k
c(i) = Cells(i, 2)
Next i
End Sub

@*Солнечная* · 14.06.2011, 19:54 **[ТС]**

спасибо) вопрос, а можно убрать запрос на сортировку?

@shilovec5377 · 14.06.2011, 20:12

попробуй убрать эту строку
st1 = UCase(InputBox("Выполняем сортировку? Y/N", , "Y"))
If st1 = "Y" Then

должно сработать

@*Солнечная* · 14.06.2011, 20:24 **[ТС]**

спасибо огромное)

@Солнечная 18 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 24
	14.06.2011, 19:54 [ТС]	3
	спасибо) вопрос, а можно убрать запрос на сортировку? 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	14.06.2011, 20:12	4
	попробуй убрать эту строку st1 = UCase(InputBox("Выполняем сортировку? Y/N", , "Y")) If st1 = "Y" Then должно сработать 1

@Солнечная 18 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 24
	14.06.2011, 20:24 [ТС]	5
	спасибо огромное) 0