Вывести на экран прямоугольник из нулей

[rapturesomfan]

Вывести на экран прямоугольник из нулей. Количество строк вводит пользователь, количество столбцов равно 5. Visual Basic (Visual Studio)

[Demetros]

а зачем?

[Demetros]

Предположу, что очень нужно.

Sub Нулики()
x = InputBox("Введите количество строк")
For i = 1 To x
Range(Cells(1, 1), Cells(i, 5)) = 0
Next i
End Sub

[Demetros]

так быстрее

Sub Нулики()
x = InputBox("Введите количество строк")
Range(Cells(1, 1), Cells(x, 5)).Value = 0
End Sub