Programación VB, espera en línea, urgente

Hay un problema con la pregunta, ¡el resultado de visualización en el formulario no se puede realizar en el evento Form_Load()!

Atenuar aa(60) siempre

Subcomando privado1_Click()

Me.p>

aa(j - 1) = Rnd() * 899 + 100

t = t & Space(1) &aa(j - 1)

Si j Mod 20 = 0 Entonces

Imprimir t

t = ""

Finalizar si

Siguiente<

Fin Sub

Privado Sub Command2_Click()

Atenuar j mientras, k mientras, n mientras

Para j = 1 a 60

n = aa(j - 1 )

Para k = j + 1 a 60

Si aa(k - 1) <n Entonces

aa(j - 1) = aa( k - 1)

aa(k - 1) = n

n = aa(j - 1)

Fin si

Siguiente

Siguiente

Imprimir ""

Imprimir "Ordenar resultado:"

Para j = 1 a 60

t = t & Space(1) & aa(j - 1)

Si j Mod 20 = 0 Entonces

Imprimir t

t = ""

Finalizar si

Siguiente

Finalizar sub

Subcomando privado3_Click()

Atenuar h Mientras, l Como Largo, m Tan Largo, j Tan Largo, n Tan Largo, t Tan Largo

n = Val(Text1)

h = 60

l = 0

Imprimir "Encontrar datos:"

Hacer hasta l >= h

t = t + 1

Si t > 30 Entonces Salir Do

m = (h + l) / 2

Si aa(m) = n Entonces

Imprimir "Datos encontrados: " & n & " La posición es: " & m + 1

Salir de Sub

ElseIf aa(m) > n Then

h = m

ElseIf aa(m) < n Then

l = m

End If

Bucle

Imprimir "No se pueden encontrar datos: " & n

End Sub

Sub privado Form_Load()

Me.Caption = "Wang Xiaochen"

Command1.Caption = "Generar "

Command2.Caption = "Ordenar"

Command3.Caption = "Buscar"

Texto1 = "120"

Longitud máxima del texto1.

= 3

Fin del subtítulo