Red de conocimiento informático - Material del sitio web - ¿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?

¿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?

'Aquí hay un fragmento de código que escribí que puede generar aleatoriamente cuadrados de cualquier longitud, color y posición

'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

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))