La Red de Conocimientos Pedagógicos - Currículum vitae - Preguntas de prueba reales de computadora Vb

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

Filas

Imprimir "Después:"

Para i = 1 a n

Imprimir a(uno)

Si i Mod 10 = 0, entonces imprimir

Siguiente i

Conector final