Упорядочить по возрастанию элементы каждой строки матрицы - VB
Формулировка задачи:
Упорядочить по возрастанию элементы каждой строки матрицы размером n m.
помогите пожалуйста
Решение задачи: «Упорядочить по возрастанию элементы каждой строки матрицы»
textual
Листинг программы
Private Sub Command1_Click()
Dim a() As Single, n As Byte, m As Byte
n = InputBox("n")
m = InputBox("m")
answer = ""
ReDim a(1 To n, 1 To m) As Single
For i = 1 To n
For j = 1 To m
a(i, j) = Int(100 * Rnd)
answer = answer & a(i, j) & " "
Next j
answer = answer & Chr(13)
Next i
MsgBox answer
answer = ""
For i = 1 To n
For j = 1 To m
For k = 1 To m - 1
If a(i, k) > a(i, k + 1) Then
temp = a(i, k)
a(i, k) = a(i, k + 1)
a(i, k + 1) = temp
End If
Next k
Next j
Next i
For i = 1 To n
For j = 1 To m
answer = answer & a(i, j) & " "
Next j
answer = answer & Chr(13)
Next i
MsgBox answer
End Sub