Заполнить действительную матрицу размерностью (6*5) случайными числами из диапазона [-3;2] - VB
Формулировка задачи:
Заполнить действительную матрицу размерностью (6*5) случайными числами из диапазона [-3;2]. Вывести на экран новую матрицу, в которой на месте отрицательных элементов первоначальной матрицы расположить не равные 0, а остальные элементы вывести без изменений. Замененные элементы оформить рамкой.
Помогите пожалуйста решить задание.
Решение задачи: «Заполнить действительную матрицу размерностью (6*5) случайными числами из диапазона [-3;2]»
textual
Листинг программы
Sub JuneKarou1() Dim i%, j%, N%, M%, f% Cells.Clear N = Int(InputBox("Введите количество строк", "Ввод данных", 6)) M = Int(InputBox("Введите количество столцов", "Ввод данных", 5)) ReDim A(1 To N, 1 To M) As Single For i = 1 To N For j = 1 To M A(i, j) = (5 * Rnd) + (-3) Next j Next i Cells(1, 1).Resize(N, M) = A ReDim B(1 To N, 1 To M) As Single For i = 1 To N For j = 1 To M B(i, j) = A(i, j) Cells(N + 3, 1) = B(i, j) Next j Next i Worksheets("Лист1").Cells(9, 1).Resize(N, M).Value = B f = 0 For i = 1 To N For j = 1 To M If A(i, j) < 0 Then A(i, j) = 1# Cells(i, j).Value = 1# Cells(i, j).Font.Color = vbRed Cells(i, j).Borders.Weight = xlMedium f = f + 1 End If Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д