Preguntas de prueba reales de computadora Vb
Subcomando privado 1_Click()
Dim () como un número entero
n = Val(InputBox("N= "))
Redim
Imprimir "Antes:"
Para i = 1 a n
a(I) = Int(101 * Rnd)-50
Imprimir a( one);
Si i Mod 10 = 0, entonces imprime
Siguiente i
i = 1: j = n
Y iltj
t = a(i): a(i) = a(j): a(j) = t
i = i 1: j = j - 1 p>
Filas
Imprimir "Después:"
Para i = 1 a n
Imprimir a(uno)
Si i Mod 10 = 0, entonces imprimir
Siguiente i
Conector final