Пересчитать первую строку матрицы W - VB
Формулировка задачи:
Пересчитать первую строку матрицы W размерности m*n так, чтобы значение каждого ее элемента было равно произведению элементов столбца, в котором он находится.
Помогите написать код(((
Решение задачи: «Пересчитать первую строку матрицы W»
textual
Листинг программы
Option Explicit Dim i As Integer, j As Integer Dim m As Integer, n As Integer Dim W() As Double Dim Temp As Double Private Sub Command1_Click() Randomize 'Иницилизация генератора случайных чисел Cls 'Очищаем форму n = 4 ' InputBox("Enter n") m = 7 ' InputBox("Enter m") ReDim W(n, m) ' Размеры массива А - n-строк, m-столбцов For i = 1 To n For j = 1 To m W(i, j) = Int(Rnd * 10 + 1) 'Заполняем массив случайными числами Print W(i, j); vbTab; Next j Print Next i Print For j = 1 To m Temp = 1 For i = 1 To n Temp = Temp * W(i, j) Next i W(1, j) = Temp Next j Print "Новый массив" For i = 1 To n For j = 1 To m Print W(i, j); vbTab; Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д