martes, 27 de abril de 2010

P2E16 - opcional

Realiza los siguientes ejercicios en un mismo formulario, asignando un botón comando para cada uno.

Es importante que consideres la adición de controles y variables que sean necesarios.

 

1.- Identifica el posible resultado del siguiente segmento de código:

Randomize

For intR = 1 To 5

grdSerie.Row = intR

For intC = 0 To 3

grdSerie.Col = intC

grdSerie.Text = Int((Rnd * 50) + 1)

Next intC

Next intR

2.- De acuerdo al resultado del ejercicio anterior determina el resultado del siguiente segmento de código. El resultado se visualiza en una etiqueta.

intN = 0

For intR = 1 To 5

grdSerie.Row = intR

For intC = 0 To 3

grdSerie.Col = intC

If grdSerie.Text < intN Then

intN = grdSerie.Text

Label1.Caption = intN

End If

Next intC

Next intR

3. Tomando de referencia los resultados del Primer Ejercicio, genera el código para encontrar el número más grande (el mayor) de todos los que se generaron (visualízalo en una etiqueta).

 

4. Tomando de referencia los resultados del Primer Ejercicio, genera el código para determinar (poniendo un mensaje en una etiqueta) si existe el numero que el usuario desee (preguntarle al usuario mediante un InputBox).

 

Deben realizarse de manera individual.

 

Creditos: lemm