Определить индексы минимального элемента на главной диагонали квадратной матрицы - VB

Формулировка задачи:

Определить индексы минимального элемента на главной диагонали квадратной матрицы N4 размерности N0 . Для отладки программы матрицу выбрать самостоятельно. сам по побывал версия 1:
Private Sub Command1_Click()
Dim A() As Single, n As Single, i As Integer, j As Integer, mini As Integer, minj As Integer, m As Single
n = Text1
m = Text2
ReDim A(n, m) As Single
For i = 1 To n
For j = 1 To m
A(i, j) = InputBox("ввод матрицы " & i & "," & j)
Print A(i, j);
Next
Next
For i = 1 To i < n
j = i
If min > A(i, j) Then
mini = i
minj = j
min = A(i, j)
End If
Next i
MsgBox "min= " & min
End Sub
версия 2 :
Private Sub Command1_Click()
Dim A() As Single, n As Single, i As Integer, j As Integer, mini As Integer, minj As Integer, m As Single
n = Text1
m = Text2
ReDim A(n, m) As Single
For i = 1 To n
For j = 1 To m
A(i, j) = InputBox("ввод матрицы" & i & "," & j)
Print A(i, j);
Next
Next
For i = 1 To n
For j = 1 To m
Next
Next
For i = 0 To i < n
i = i + 1
For j = 0 To j < m
j = j + 1
If i = j Then
'If mini > A(i) Then
'mini = A(i)
'i = i + 1
'End If
'For j = 1 To n
'If minj > A(j) Then
'minj = A(j)
'j = j + 1
If min > A(i, j) Then
mini = i
minj = j
min = A(i, j)
i = i + 1
j = j + 1
End If
End If
Next
MsgBox "min= " & min
Next
End Sub

Код к задаче: «Определить индексы минимального элемента на главной диагонали квадратной матрицы - VB»

textual
Private Sub Command1_Click()
Dim A() As Single, n As Integer
Dim i As Integer, j As Integer
Dim ind As Integer, Min As Single
n = Val(InputBox("вводим размерность матрицы ", , 4))
If n > 1 Then
ReDim A(n, n) As Single
For i = 1 To n
For j = 1 To n
A(i, j) = Int(Rnd * 25) ' InputBox("ввод матрицы " & i & "," & j)
Print A(i, j); vbTab;
Next
Print
Next
 
Min = A(1, 1)
For i = 1 To n
If Min > A(i, i) Then
Min = A(i, i)
ind = i
End If
Next i
MsgBox "Amin= A(" & ind & "," & ind & ")=" & Min
Else
MsgBox "некорректный ввод"
End If
End Sub

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ