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

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