Составить 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
Next
flag = False
End Sub
У меня такая блок-схема ко второму получилась