Массив: Отсортировать двумерный массив по строкам и столбцам - VB

Узнай цену своей работы

Формулировка задачи:

Помогите! Дали задачу по программированию на бейсике, но у меня как-то с этим не заладилось.Задача такая - Отсортировать двумерный массив по строкам и столбцам( по возрастанию или убыванию). Очень надеюсь на вашу помощь!

Решение задачи: «Массив: Отсортировать двумерный массив по строкам и столбцам»

textual
Листинг программы
Option Explicit
Dim a(1 To 10), mi, ma, mi1, ma1, m As Integer
Dim i, j As Double
Dim s As String
 
 
Private Sub Form_Load()
List1.Clear
Randomize
s = ""
' создаем массив
For i = 1 To 10
 a(i) = Int(Rnd(1) * 50 + 1)
 s = s + " " + Str(a(i))
Next i
'вывод созданного массива
List1.AddItem s: s = "": List1.AddItem ""
' ищем максимальный и минимальный элемент массива
mi1 = a(1): ma1 = a(1): mi = 1: ma = 1
For i = 2 To 10
 If a(i) < mi1 Then mi = i: mi1 = a(i)
 If a(i) > ma1 Then ma = i: ma1 = a(i)
Next i
'вывод максимума и миниума
s = Str(a(mi)) & Str(a(ma))
List1.AddItem s: s = "": List1.AddItem ""
'меняем местами максимальный и минимальный элементы
a(mi) = ma1: a(ma) = mi1
For i = 1 To 10
 s = s + " " + Str(a(i))
Next i
'вывод массива измененного массива
List1.AddItem s: s = "": List1.AddItem ""
'сортируем элементы массива по возрастанию
For i = 1 To 10
For j = 1 To 10
 If a(j) > a(i) Then m = a(j): a(j) = a(i): a(i) = m
Next j
Next i
For i = 1 To 10
 s = s + " " + Str(a(i))
Next i
'вывод отсортированного массива
List1.AddItem s
End Sub

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы