Estructuras Secuenciales
Teniendo como datos N1 monedas de un peso, N2 monedas de cincuenta centavos,
N3 monedas de veinticinco centavos, N4 monedas de diez centavos y N5 mondas de cinco centavos,
calcular y mostrar cuantos pesos reúnen la totalidad de las monedas.
--Boton Resultado
declaramos las 5 variables
Dim Numero1 As Integer
Dim Numero2 As Integer
DimNumero3 As Integer
Dim Numero4 As Integer
Dim Numero5 As Integer
Dim Total As Integer
` --A las variables declaradas le agregamos la operacion con su valor para determinar la moneda.
Numero1 = Val(Numero1.Text)
Numero2 = Val(Numero2.Text) * 0.5
Numero3 = Val(Numero3.Text) * 0.25
Numero4 = Val(Numero4.Text) * 0.1Numero5 = Val(Numero5.Text) * 0.05
-- Decimos que nos muestre el total de la suma de todas las variables
Total.Text = (Numero1 + Numero2 + Numero3 + Numero4 + Numero5)
---------------------------------------------------------------------------------------------------
3. Problema:
Teniendo como datos el radio de un círculo, expresando en centímetros calcular y mostrar:a)La longitud de la circunferencia que tiene dicho radio.
b)El área del círculo correspondiente al radio.
c) El volumen de la esfera correspondiente al radio.
--Declaramos las variables
Dim Radio As Integer
Dim Longitud As Integer
Dim Area As Integer
Dim Volumen As Integer
--Boton calcular
--A las variables declaradas le agregamos la operacionRadio = Val(numeroradio.Text)
Longitud = 2 * 3.1416 * numeroradio
Area = 3.1416 * numeroradio ^ 2
Volumen = 4 / 3 * 3.1416 * numeroradio ^ 3
-- Decimos que nos muestre el total de las variables
Longitud.Text = FormatNumber(numerolongitud, 2)
Area.Text = FormatNumber(numeroarea, 2)
Volumen.Text = FormatNumber(numerovolumen, 2)-------------------------------------------------------------------------------------------
4. Problema:
Además se dispone como dato del valor de 1cm en otra unidad de medida de longitud,
sea del sistema métrico u otro y del nombre de la nueva unidad: Calcular y mostrar los resultados
obtenidos en los puntos a, b y c convertidos a la nueva unidad, identificando correctamente losresultados
--Declaramos las variables
Dim numeroradio As Integer
Dim numerolongitud As Integer
Dim numeroarea As Integer
Dim nnumerovolumen As Integer
--A las variables declaradas le agregamos la operacion valor del radio, longitud, area y volumen
numeroradio = Val(radio.Text) '
numerolongitud = 2 * 3.1416 * numeroradio
numeroarea = 3.1416 *numeroradio ^ 2
numerovolumen = 4 / 3 * 3.1416 * numeroradio ^ 3
-- Decimos que nos muestre el total de las variables
longitud.Text = FormatNumber(numerolongitud, 2)
area.Text = FormatNumber(numeroarea, 2)
volumen.Text = FormatNumber(numerovolumen, 2)
--Boton convertir a pulgadas
-- Indicamos al programa que nos muestre los valores correspondientesen los textbox en pulgadas
Radpulgada.Text = FormatNumber((numeroradio * 0.39737), 2)
longpulgadal.Text = FormatNumber((numerolongitud * 0.39737), 2)
areapulgada.Text = FormatNumber((numeroarea * 0.39737), 2)
volpulgada.Text = FormatNumber((numerovolumen * 0.39737), 2)---------------------------------------------------------------------------------------------
5. Problema:
Tres personas deciden invertir su dinero para formar una empresa. Cada una de ellas invierte una
cantidad distinta. Calcular y mostrar el porcentaje que cada invierte con respecto al total de la inversión.
--Boton calcular
--Declaramos las variables
Dim numero1 As Integer
Dim numero2 As Integer
Dim numero3 As Integer
--...
Regístrate para leer el documento completo.