Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB: haga clic en comando1 para generar aleatoriamente 10 valores entre 0 y 100, guardarlos en una matriz unidimensional y mostrarlos en texto1 al mismo tiempo.

Programación VB: haga clic en comando1 para generar aleatoriamente 10 valores entre 0 y 100, guardarlos en una matriz unidimensional y mostrarlos en texto1 al mismo tiempo.

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

si c=false entonces text2.text="No existe en la matriz" else text2.text="Posición en la matriz=" & i+1

end sub