¿Cómo utilizar un programa VB para dibujar aleatoriamente cuadrados con longitudes laterales de 10 a 15 píxeles dentro del área de la pantalla?
'Agregue una forma al formulario y ejecútelo, haga clic en el formulario para ver el efecto.
Opción Base 1 'El límite superior de la matriz es 1
Private Sub Form_Click()
Dim Color(8) 'Define la matriz de colores p>
Aleatorizar 'Aleatorio
'Establecer forma en invisible
Shape1.Visible = False
'Inicialización de matriz de colores
Color (1) = vbRojo:Color(2) = vbVerde:Color(3) = vbNegro:Color(4) = vbBlanco
Color(5) = vbAzul.Color(6) = vbMagenta:Color( 7 ) = vbYellow:Color(8)=vbCyan
'Color del borde
Forma1.BorderColor = Color(Int(1 Rnd * 7))
' Longitud del lado cuadrado
Forma1.Ancho = 100 Rnd * 2500
'Posición aleatoria
Forma1.Top = Rnd * (Form1.Altura - Forma1.Altura)
Forma1.Izquierda = Rnd * (Form1.Altura - Forma1.Altura)
Forma1.BorderColor = Color(Int(1 Rnd * 7))