Red de conocimiento informático - Conocimiento del nombre de dominio - ¡Urgente! ¿Cómo utilizar el programa VB para expresar la clasificación de burbujas (de 1 a 10)?

¡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