Составить 2 блок-схемы:
1. Private Sub Command1_Click()
Dim i As Integer, j As Integer, L As Integer, M As Integer, b As Integer, c As Integer, u As Integer
Dim R6() As Single, p As Integer
M = InputBox("Количство строк матрицы=")
L = InputBox("Количество столбцов матрицы=")
ReDim R6(M, L)
For i = 1 To M
For j = 1 To L
R6(i, j) = InputBox("Введите R6(" & i & "," & j & ")=")
Next
Next
p = R6(2, 2)
For i = 2 To M Step 2
For j = 2 To L Step 2
If p > R6(i, j) Then
p = R6(i, j)
b = i
c = j
u = p
End If
Next
Next
R6(1, 2) = u
MsgBox ("Минимальный элемент с четным индексом R6(" & b & "," & c & ")=" & u)
End Sub
2. Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer
Dim W() As Single, flag As Boolean
m = InputBox("Введите количество строк")
ReDim W(1 To m, 1 To m)
For i = 1 To m
For j = 1 To m
W(i, j) = InputBox("W(" & i & "," & j & ")=")
Print W(i, j);
Next
Print
Next
flag = False
Print
End Sub