PROGRAMA QUE NOS SACA SUMA /PROMEDIO

DEBER DE PROGRAMACION

NOMBRE: Vanessa Chaquinga

CURSO: B-264

FECHA: 26/06/2013

PROGRAMA QUE NOS SACA SUMA /PROMEDIO

1. Ingresar en el botón ¿CUANTOS NUMEROS? El número de dígitos que se desean ingresar y hacer clic en el botón CALCULAR.

2. En este caso se ingresaran 3 dígitos que serán: 2;4;6 los números deberán ser ingresados en el SEGUNDO recuadro que nos aparece y damos clic en la opción ACEPTAR de esta manera ingresaremos cada uno de los números restantes

.

3. Al final se obtendrá la siguiente solución:

PSEUDOCODIGO

Private Sub Command1_Click()

Dim i As Integer

Dim suma, promedio As Double

Dim N As Integer

mayor = 0

i = 1

N = Val(Text1.Text)

While i <= N

numero = Val(InputBox("ingrese numero :", "numero"))

suma = suma + numero

i = i + 1

Wend

Label4.Caption = suma

promedio = suma / N

Label6.Caption = promedio

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Label4.Caption = ""

Label6.Caption = ""

Text1.SetFocus

End Sub

PROGRAMA QUE NOS SACA EL NUMERO MAYOR

1. Ingresar en el botón ¿CUANTOS NUMEROS? El número de dígitos que se desean ingresar y hacer clic en el botón CALCULAR.

2. En este caso se ingresaran 3 dígitos que serán: 5;6;7 los números deberán ser ingresados en el SEGUNDO recuadro que nos aparece y damos clic en la opción ACEPTAR de esta manera ingresaremos cada uno de los números restantes

3. Al final se obtendrá la siguiente solución:

PSEUDOCODIGO

Private Sub Command1_Click()

Dim i As Integer

Dim mayor, numero As Double

Dim N As Integer

mayor = 0

i = 1

N = Val(Text1.Text)

While i <= N

numero = Val(InputBox("ingrese numero :", "numero"))

If numero > mayor Then

mayor = numero

End If

i = i + 1

Wend

Label4.Caption = mayor

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Label4.Caption = ""

Text1.SetFocus

End Sub

...