Для начала так:
| Код |
Option Explicit
Dim i As Integer, j As Integer
Private Sub Command1_Click()
Dim Matrix(4, 4) As Integer
Dim a As Integer
Dim Max As Integer
Dim quest As Integer
Dim k As Integer
' вывод основной матрицы
For i = 0 To 4
For j = 0 To 4
Randomize
Matrix(i, j) = Int(Rnd * 10)
Print " "; Matrix(i, j);
Next j
Print
Next i
Print
Print "Диагональ: "
For i = 0 To 4
a = Matrix(i, i)
Print a
Next i
' найдем max
Max = Matrix(4, 4)
For i = 0 To 4
Do
If Matrix(i, i) > Max Then Max = Matrix(i, i)
i = i + 1
Loop While i < 4
MsgBox ("Max в диагонали = ") & Max
Next i
Print
For i = 0 To 4
a = Matrix(i, i)
If a = Max Then
k = i
End If
Next i
Print "Строка, содержащая Max в диагонали:"
For i = 0 To 4
Print Matrix(k, i)
Next i
' какую строку менять:
quest = InputBox("Какую строку переставить? [0-4]: ")
Print "Заданная строка: "
For i = 0 To 4
Print Matrix(quest, i)
Next i
End Sub
|
|