Вставить после столбца с заданным номером k (0<= k <=5) столбец из единиц - VB
Формулировка задачи:
Сформировать двумерный массив М(4,5) по правилу:
m=-30+60*r , где r - случайное число из отрезка [0;1]. Вставить после столбца с заданным номером k (0<= k <=5) столбец из единиц (значение k вводится с клавиатуры). Вывести полученный массив M.
null
код есть, токо не правильно работает. Решение задачи: «Вставить после столбца с заданным номером k (0<= k <=5) столбец из единиц»
textual
Листинг программы
Option Explicit
Dim a(1 To 4, 1 To 5) As Double
Dim m(1 To 4, 1 To 5) As Double
Dim b As Double
Dim i As Integer
Dim j As Double
Dim r, s As Double
Dim n As Double
Private Sub Command1_Click()
Print "Исходный массив:"
For i = 1 To 4
For j = 1 To 5
r = Round(Rnd, 1)
a(i, j) = -30 + 60 * r
If j <> 5 Then
Print ; a(i, j);
Else
Print a(i, j);
Print vbLf
End If
Next j
Next i
b = InputBox("Введите номер столбца, в котором нужно заменить элементы", "№", 3)
Print "Изменённый массив:"
For i = 1 To 4
a(i, b) = 1
Next i
For i = 1 To 4
For j = 1 To 5
If j <> 5 Then
Print ; a(i, j);
Else
Print a(i, j);
Print vbLf
End If
Next j
Next i
End Sub