TP 3

TP de Aplicación FOR – NEXT- RND DO WHILE

1-     Ingresar 10 números, luego mostrar cuantos son mayores a 20 y cuantos menores a 10.

Resolver haciendo el formulario y corrigiendo los posibles errores que se presentaran al ejecutar el programa

Dim x,a,c,m as integer

For x= 1 to 10

      Rem la siguiente línea permite ingresar un numero en una ventana

     A=inputbox(“ingrese numero”)

     Rem esta línea sirve para mostrar en una etiqueta el numero ingresado

     Label1= label1 & A & “          “ 

     If a>20 then

         C=c+1

           Endif

      Next x

      Label2= “ La cantidad de números mayores a 20 son “ & c

    

2-     Generar 100 números al azar entre 1 y 20, luego informar cuantos fueron iguales a 10

3-     Generar 500 números al azar entre 1 y 10, luego informar cuantos de cada uno se repitieron

4-      Ingresar números hasta que se  ingrese un cero, luego informar cuantos números se ingresaron, la suma de los números ingresados y el promedio