Public Class Form1
Dim g As Graphics
Private Sub blok(ByVal a As Single, ByVal b As Single)
g.FillRectangle(Brushes.LightBlue, a, b, 100, 100)
g.DrawRectangle(Pens.Black, a, b, 100, 100)
g.FillRectangle(Brushes.LightYellow, a + 30, b + 30, 40, 40)
g.DrawRectangle(Pens.Black, a + 30, b + 30, 40, 40)
g.DrawLine(Pens.Black, a + 30, b + 50, a + 70, b + 50)
g.DrawLine(Pens.Black, a + 50, b + 50, a + 50, b + 70)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j, n1, n2 As Integer
g = Me.CreateGraphics
n1 = Val(InputBox("кол-во блоков"))
n2 = Val(InputBox("кол-во этажей"))
For i = 1 To n1 * 100 Step 100
For j = 1 To n2 * 100 Step 100
blok(i, j)
Next
Next

End Sub
End Class





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.