PRUEBA DE FUNCIONES GRAFICAS

ej1
Dim a, b, x As Integer
Rem en A se asigna el ancho del picturebox
a = Picture1.Width
Rem en B se asigna el alto del picturebox
b = Picture1.Height
Picture1.Line (0, b / 2)-(a, b / 2), RGB(255, 0, 0)
Picture1.Line (a / 2, 0)-(a / 2, b), RGB(255, 0, 0)
For x = 1 To 2000 Step 100
Picture1.Circle (a / 2, b / 2), x, RGB(0, 0, 255)
Next x

ej2
Private Sub Picture1_Click()
Dim a, b, x, w, q, v As Integer
Randomize
Rem en A se asigna el ancho del picturebox
a = Picture1.Width
Rem en B se asigna el alto del picturebox
b = Picture1.Height
Picture1.Line (0, b / 2)-(a, b / 2), RGB(255, 0, 0)
Picture1.Line (a / 2, 0)-(a / 2, b), RGB(255, 0, 0)
For x = 1 To 2000 Step 100
w = Int(Rnd(1) * 255)
v = Int(Rnd(1) * 255)
q = Int(Rnd(1) * 255)
Picture1.Circle (a / 2, b / 2), x, RGB(q, v, q)
Next x
End Sub