Заполнить действительную матрицу размерностью (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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.667 из 5
Похожие ответы