Как заменить элемент с индексом, равным заданному числу F значением максимального элемента - VB

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

Помогите пожалуйста доделать программу. Осталось сделать: Заменить элемент с индексом, равным заданному числу F значением максимального элемента. Но вот никак не получается(
Dim mas(50, 50), n, m, n_min, m_max, max, min, y, matr As Integer
 
 
Private Sub Command1_Click()
Randomize
n = Val(Text1)
m = Val(Text2)
n_min = Val(Text3)
m_max = Val(Text4)
For i = 1 To n
For j = 1 To m
mas(i, j) = n_min + Int(Rnd * (m_max - n_min))
stra = stra + Str(mas(i, j))
Next
List1.AddItem stra + " "
stra = " "
y = mas(i, j)
Next
List1.AddItem " "
r = mas(1, 1)
End Sub
Private Sub Command3_Click()
F = Val(Text5)
s = 1
For i = 1 To n
For j = 1 To m
If mas(i, j) < F Then s = s * mas(i, j)
Next
Next
List2.AddItem s
End Sub
 
 
Private Sub Command4_Click()
End
End Sub
 
 
Private Sub Command5_Click()
max = Val(Text3)
s = 0
For i = 1 To n
For j = 1 To m
If mas(i, j) > max Then max = mas(i, j)
Next
Next
List4.AddItem max
End Sub


textual

Код к задаче: «Как заменить элемент с индексом, равным заданному числу F значением максимального элемента - VB»

Option Explicit
Dim mas(1 To 50, 1 To 50) As Integer, max As Integer, min As Integer, matr As Integer
Dim i As Integer, j As Integer, n As Integer, m As Integer, m_max As Integer, n_min As Integer
Dim stra As String, F As Integer, s As Long
 
Private Sub Command1_Click()
   Randomize
   n = Val(Text1.Text)
   m = Val(Text2.Text)
   n_min = Val(Text3.Text)
   m_max = Val(Text4.Text)
   List1.AddItem "Исходный массив:"
   For i = 1 To n
         For j = 1 To m
                    mas(i, j) = n_min + Int(Rnd * (m_max - n_min))
                    stra = stra & Str(mas(i, j)) & "  "
         Next
         List1.AddItem stra
         stra = ""
    Next
End Sub
 
Private Sub Command3_Click()
    F = Val(Text5.Text)
    s = 1
    For i = 1 To n
         For j = 1 To m
                If mas(i, j) < F Then s = s * mas(i, j)
         Next
    Next
    List2.AddItem s
End Sub
 
 
Private Sub Command4_Click()
End
End Sub
 
 
Private Sub Command5_Click()
    Dim imax As Integer, jmax As Integer
    max = mas(1, 1) 'Val(Text3.Text )
    imax = 1
    jmax = 1
    s = 0
    For i = 1 To n
           For j = 1 To m
                 If mas(i, j) > max Then max = mas(i, j): imax = i: jmax = j
           Next
    Next
    List4.AddItem "Maксимальный элемент массива mas(" & imax & ", " & jmax & ") = " & max
    ''''''''''''''''''''
    
    'Вот тут непонятно что на что менять
    
    mas(F, F) = max
    ''''''''''''''''''
    
    List4.AddItem "Массив, в котором элемент mas(" & F & ", " & F & ") "
    List4.AddItem "заменен на максимальный"
    
    For i = 1 To n
         For j = 1 To m
                    stra = stra & Str(mas(i, j)) & "  "
         Next
         List4.AddItem stra
         stra = ""
    Next
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.125 из 5

Источник