Cómo programar en vb asignando aleatoriamente 100 personas a 10 personas
atenuar a(9) como número entero
subcomando privado1_click()
atenuar i como número entero
aleatorizar
para i=0 a 9
a(i)=int(rnd*101)
text1.text=text1.text & a(i) & ","
siguiente i
end sub
subcomando privado2_click()
dim b como entero,i como entero,c como booleano p>
b=val(inputbox("Ingrese un número"))
c=false
para i=0 a 9
si b=a(i) entonces
c=true
salir para
finalizar si
siguiente
si c=false entonces text2.text="No existe en la matriz" else text2.text="Posición en la matriz=" & i+1
end sub