Preguntas de prueba de matriz unidimensional de programación Vb

atenuar a %(80%), i%, k%, t%, b %(80%), c %(80%)

Subcomando privado 1_Clic()

i. Cls

Dim j es un número entero

Hazlo irregular

t = 1

k = 1

Para i = 1 a 80

a(i) = Int(Rnd * 90) + 10

Si a(i) Mod 2 = 1, entonces

b(k) = a(i)

k = k + 1

Terminará si...

Si IsPrimeNum(a(i) ) entonces

c(t) = a(i)

t = t + 1

Terminará si...

A continuación,

Imprimir "todos"

Para i = 1 a 80

Imprimir un(uno);

Si modifico 10 = 0, luego imprimir

Siguiente i

Ordenar matriz b, k - 1

Imprimir "número impar"

Para i = 1 a k - 1

Imprimir b(one);

Si Mod 10 = 0, entonces imprimir

Siguiente I

Imprimir

Ordenar disposición c, t - 1

Imprimir "número primo"

Para i = 1 a t - 1

Imprimir c( a);

Si i Mod 10 = 0, entonces imprimir

Siguiente i

Conector final

Función privada IsPrimeNum (V es un número entero) es un valor booleano

Marcar I como un número entero

Indicador booleano Dim

Indicador = verdadero

Para i = 2 a V - 1

Si V Mod i = 0, entonces

Flag = False

Salir para...

Si... Terminará

Siguiente yo

IsPrimeNum = flag

Finalizar función

Private Sub SortArray(arr() es un número entero, el tamaño de ByVal es un número entero)

Etiqueta I como un número entero

Dim j es un número entero

Etiqueta t como un número entero

Para i = 1 tamaño del terreno

Para j = i + 1 tamaño del terreno

Si arr(i)>arr(j) entonces t = arr(I): arr (I)= arr(j ):arr(j)= t

Siguiente j

Siguiente I

conector final

añadir un botón y listo.