Programación Evaluación Parcial 2

[pic 1]

Instituto Politécnico Nacional

Escuela Superior de Ingeniería y Arquitectura

Unidad Zacatenco

[pic 2]

Programación

Evaluación Parcial 2

Presenta:

Cedillo López Mauricio Zaid

Boleta:

2021310986

Grupo:

2CM17

Profesor: Lic. Martín González Naveda

Academia de Ingeniería de Sistemas Turno Matutino

Ciudad de México                                                 06/Mayo/2021

PLANTEAMIENTO.

La tabla siguiente contiene la información de las lluvias caídas medidas en milímetros, correspondientes a los 12 meses del año anterior en cuatro estados de la República Mexicana.

Crear un programa que reciba la información para “n” meses en los 4 Estados; que reciba cada uno de los valores. Realice el análisis de los datos, en sumas:

Por cada mes del año (Primer mes por ejemplo 50+45+60+58 y su suma).    

Impresión de la tabla completa si es posible, se permite sustituir el nombre del mes por un valor numérico.

ANÁLISIS.

[pic 3]

CÓDIGO VB.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Nmeses, i As Integer

        Dim Morelos, México, Querataro, Puebla, suma As Single

        Nmeses = Val(InputBox("No. de meses"))

        For i = 1 To Nmeses

            Morelos = Val(InputBox("Lluvias caídas en Morelos en mes " & i))

            México = Val(InputBox("Lluvias caídas en México en mes " & i))

            Querataro = Val(InputBox("Lluvias caídas en Querétaro en mes " & i))

...