LesyaPETROVA
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В матрице размером 5х3 поменять местами строку с наибольшим элементом и строку с наименьшим элементом.
Dim m(50, 50) As Double
Private Sub Command1_Click()
Picture2.Cls
Picture1.Cls
For i = 0 To 3
st = InputBox("Введите строку массива", "Ввод данных")
astr = Split(st, " ")
For j = 0 To 3
m(i, j) = Val(astr(j))
Picture1.Print m(i, j);
Next j
astr = ""
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
For i = 0 To 3
For j = 0 To 3
If m(i, j) < m(j, i) Then
m(i, j) = m(j, i)
End If
Picture2.Print m(i, j);
Next j
Picture2.Print
Next i
End Sub
Private Sub Form_Load()
Command1.Caption = "ввести массив 5*3"
Command2.Caption = "поменять"
Label1.Caption = "основная"
Label2.Caption = "измененная"
End Sub
а у меня ваще черт знает что меняет(((((((помогите плиз))) |
