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

Формулировка задачи:

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


textual

Код к задаче: «Вывести на экран прямоугольник из нулей - VB»

Private Sub Command1_Click()
Picture1.Cls
Dim a As Variant
Dim b As Integer
 
 
a = Text1.Text
b = 5
 
For i = 1 To a
For j = 1 To b
 
ReDim v(i, j) As Integer
v(i, j) = 0
Picture1.Print v(i, j);
Next
Picture1.Print
Next
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.833 из 5

Источник