Imports System.drawing
Public Class Form1
Dim g As Graphics
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim pero1 As New Pen(Color.Red)
Dim i, j, a, b, n, m As Integer
g = Me.CreateGraphics
m = Val(InputBox("etazhi"))
n = Val(InputBox("bloki"))
For i = 1 To n
a = a + 80
For j = 1 To m
g.DrawRectangle(pero1, 20 + a, 20 + b, 80, 80)
g.DrawRectangle(pero1, 40 + a, 35 + b, 40, 40)
g.DrawLine(pero1, 60 + a, 45 + b, 60 + a, 75 + b)
g.DrawLine(pero1, 40 + a, 45 + b, 80 + a, 45 + b)
b = b + 80
Next
b = 0
Next
End Sub
End Class





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