Visual Basic - ayudo en vb6, arreglos

Life is soft - evento anual de software empresarial
   
Vista:

ayudo en vb6, arreglos

Publicado por Car31 (2 intervenciones) el 17/11/2009 22:46:00
Buenas necesito ayuda, resulta que falte a una clase y explicaron los arreglos en vb6, le pregunte a mis compañeros y ninguno me supo explicar, tambien el problema es que todavia no estamos trabajando directo en vb6 si no que lo hacemos a mano en español (lo contrario de vb6 que es en inlges) uno de los ejercicios es:
Leer un Arreglo de 50 elementos, calcular el promedio y decir cuántos hay por encima de él. De verdad agradeceria si alguien me lo puede explicar
Solo se hacer es princio que es:
Tipo numero = Arreglo [1..50] de enteros
y bueno de hay ago algo mas o menos pero no doypara resolverlo

de verdad agradeceria su colaboracion
GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayudo en vb6, arreglos

Publicado por jaime guerrero (29 intervenciones) el 18/11/2009 15:23:38
chu, bueno lo que tu quieres es una respuesta con valores de algoritmos o con el codigo de vb?

pero hasta donde me acuerdo, para declarar un arreglo en algoritmia de vb es

arreglo(49) entero, pero bueno, en cada pais tendran su forma de mostrar esto.

lo voy a poner en codigo de vb6 y ya luego tu lo traduces

Dim arreglo(49) as integer

'para llenar el arreglo
for i=0 to 49
arreglo(i)=round(i * rnd,0) 'llenandola con numeros aleatorios
next i

'para leer el arreglo
for i=0 to 49
debug.print arreglo(i)
next i

'para el promedio
suma=0
for i=0 to 49
suma=suma+arreglo(i)
next i
promedio=round(suma/50,0)

'para el promedio
for i=0 to 49
if arreglo(i)=promedio then
exit for
end if
next i

cantidad_despues_promedio=49-i

si no me equivoco es asi. no tengo el visual 6 a la mano, asi que lo estoy haciendo al mentaso. ya traducelo y has tu prueba de escritorio
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar