Как заменить элемент с индексом, равным заданному числу F значением максимального элемента - VB
Формулировка задачи:
Помогите пожалуйста доделать программу.
Осталось сделать: Заменить элемент с индексом, равным заданному числу F значением максимального элемента.
Но вот никак не получается(
Решение задачи: «Как заменить элемент с индексом, равным заданному числу F значением максимального элемента»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д