¡Urgente! ¿Cómo utilizar el programa VB para expresar la clasificación de burbujas (de 1 a 10)?
Demostración del proceso de clasificación de burbujas en VB
Se requiere que el código se pueda ejecutar directamente en el entorno VB después de ingresarlo
Agregue tres etiquetas al formulario , un botón, un marco Agregue un cuadro de texto al marco
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Si KeyCode < 48 O KeyCode > 57 Y KeyCode < 96 O KeyCode > 150 Y KeyCode <> 109 Y _
KeyCode <> 189 Luego Texto1 = ""
End Sub
Sub privado Form_Load()
Etiqueta1(0).Visible = False
Etiqueta1(0).Alignment = 2
Etiqueta1(0).Top = 100
Etiqueta1(0).Izquierda = 100
Etiqueta1(0).Alto = 300
Etiqueta1(0).Ancho = 800
Etiqueta1(0) .BackColor = QBColor(15)
Label1(0).FontSize = 12
Caption = "Demuestra el proceso de clasificación del "método de la burbuja" de pequeño a grande"
Arriba = 0
Izquierda = 200
Ancho = 2 * Etiqueta1(0).Izquierda + 12 * (Etiqueta1(0).Ancho + 100)
Alto = 7000
Etiqueta2.Top = 5700
Etiqueta2.Left = 500
Etiqueta2.FontSize = 12
Etiqueta2 Ancho = Ancho - 2 * Label2.Left
Label2.WordWrap = True
Label2.AutoSize = True
a = Espacio(4) & "Número. Desde la entrada de texto, después de ingresar cada número, presione la tecla Enter y se podrá cambiar el número de números. Antes de que comience la clasificación, todos "
a = a & "todos los números son negros sobre blanco. fondo). Haga clic en el botón "Inicio" para comenzar a comparar el número (fondo rojo) con el número (fondo amarillo)"
a = a & "Si el número (fondo rojo) es mayor, intercambie el posiciones de los dos números; de lo contrario, los dos números El número aún mantiene su posición original. El número cuya posición se ha determinado sin cambios es "
Label2 = a & "(texto negro en la parte inferior)."
Label3 = ""
Label3.FontSize = 15
Label3.Top = Label2.Top - 500
Label3.Left = 1300
Label3.AutoSize = True
Frame1.Top = Alto - 2300
Frame1.Left = Ancho / 3
Frame1. Ancho = 2300
Frame1.Height = 850
Frame1.Caption = "Ingrese un número de -32768 a 32767"
<p>Texto1.Arriba = 300
Texto1.Izquierda = 500
Texto1.Alto = 370
Texto1.Ancho = 1450
Text1.FontSize = 14
Text1.MaxLength = 6
Text1 = ""
Comando1.Top = Frame1.Top + 200
Command1.Left = Frame1.Left + Frame1.Width + 100
Command1.Caption = "Comenzar a ordenar"
Command1.Enabled = False
End Sub
Subtexto privado1_KeyPress(KeyAscii como entero)
Kx estático como byte, ky como byte
Si KeyAscii = 13 entonces
Si Texto1 <> "" Entonces
x = Val(Text1)
Si x >= -32768 Y x <= 32767 Entonces
Si n = 0 Entonces
Etiqueta1(0) = x: Etiqueta1(0).Visible = Verdadero
De lo contrario
Cargar Etiqueta1(n): Etiqueta1(n) = x
Label1(n).Visible = True
kx = kx + 1
Si kx Mod 12 = 0 Entonces ky = ky + 1: kx = 0
Etiqueta1(n).Izquierda = Etiqueta1(0).Izquierda + kx * (Etiqueta1(0).Ancho + 100)
Etiqueta1(n).Top = Etiqueta1(0) .Top + ky * (Label1(0).Height + 100)
Command1.Enabled = True
End If
Text1 = "": n = n + 1
Fin si
Fin si
Fin si
Fin Sub