Un profesor tiene un salario inicial de $1500, y recibe un incremento de 10 % anual durante 6 años. ¿Cuál es su salario al cabo de 6 años?

¿Qué salario
ha recibido en cada uno de los 6 años? Realice el algoritmo y represente la solución mediante el diagrama de flujo, utilizando el ciclo apropiado.
“El náufrago satisfecho” ofrece hamburguesas sencillas (S), dobles (D) y triples (T), las cuales tienen un costo de $20, $25 y $28 respectivamente. La
empresa acepta tarjetas de crédito con un cargo de 5 % sobre la compra. Suponiendo que los clientes adquieren N hamburguesas, las cuales pueden
ser de diferente tipo, realice un algoritmo para determinar cuánto deben pagar. Represéntelo en diagrama de flujo.
Se requiere un algoritmo para determinar, de N cantidades, cuántas son cero, cuántas son menores a cero, y
cuántas son mayores a cero. Realice el diagrama de flujo, para representarlo, utilizando el ciclo apropiado.
Una compañía fabrica focos de colores (verdes, blancos y rojos). Se desea contabilizar, de un lote de N focos, el
número de focos de cada color que hay en existencia. Desarrolle un algoritmo para determinar esto y represéntelo
mediante el diagrama de flujo, utilizando el ciclo apropiado.
Se requiere un algoritmo para determinar cuánto ahorrará en pesos una persona diariamente, y en un año, si
ahorra 3¢ el primero de enero, 9¢ el dos de enero, 27¢ el 3 de enero y así sucesivamente todo el año. Represente
la solución mediante el diagrama de flujo, utilizando el ciclo apropiado.
Realice el algoritmo para determinar cuánto pagará una persona que adquiere N artículos, los cuales están de
promoción. Considere que si su precio es mayor o igual a $200 se le aplica un descuento de 15%, y si su precio es
mayor a $100 pero menor a $200, el descuento es de 12%; de lo contrario, sólo se le aplica 10%. Se debe saber
cuál es el costo y el descuento que tendrá cada uno de los artículos y finalmente cuánto se pagará por todos los
artículos obtenidos. Represente la solución mediante el diagrama de flujo.
El banco “Bandido de peluche” desea calcular para cada uno de sus N clientes su saldo actual, su pago mínimo y su pago
para no generar intereses. Además, quiere calcular el monto de lo que ganó por concepto interés con los clientes morosos.
Los datos que se conocen de cada cliente son: saldo anterior, monto de las compras que realizó y pago que depositó en
el corte anterior. Para calcular el pago mínimo se considera 15% del saldo actual, y el pago para no generar intereses
corresponde a 85% del saldo actual, considerando que el saldo actual debe incluir 12% de los intereses causados por no
realizar el pago mínimo y $200 de multa por el mismo motivo. Realice el algoritmo correspondiente y represéntelo
mediante diagrama de flujo.
Realice un algoritmo donde, dado un grupo de números naturales positivos, calcule e imprima el cubo de estos números.
Represéntelo mediante diagrama de flujo.
Realice un algoritmo para obtener la tabla de multiplicar de un entero K comenzando desde el 1. Represéntelo mediante
diagrama de flujo.
En 1961, una persona vendió las tierras de su abuelo al gobierno por la cantidad de $1500. Suponga que esta persona ha
colocado el dinero en una cuenta de ahorros que paga 15% anual. ¿Cuánto vale ahora su inversión? P(1+i)n. Realice un
algoritmo para obtener este valor y represéntelo mediante diagrama de flujo
Pedir dos valores al usuario: N (> 1000) y K (entre 2 y 10). Se mostrará cuántas veces es N divisible por K.

Option Explicit

Private Sub cmdcalcula_Click()

Dim valor1 As Integer

Dim valor2 As Integer

Dim contador As Integer

If txtn.Text > 1000 And (txtk.Text > 2 And txtk.Text < 10) Then

valor1 = txtn.Text

valor2 = txtk.Text

For contador = 0 To valor1

valor1 = valor1 / valor2

If (valor1 = 0) Then

Exit For

End If

Next contador

lblmostrar.Caption = (contador)

Else

MsgBox ("Digite un valor mayor a 1000")

MsgBox ("Digite una valor entre 2 y 10")

End If

End Sub

Private Sub cmdenviar_Click()

Cells(1, 1) = " INGRESE VALOR 1 (N)"

Cells(1, 2) = txtn.Text

Cells(2, 1) = " INGRESE VALOR 2 (K)"

Cells(2, 2) = txtk.Text

Cells(3, 2) = lblmostrar.Caption

Cells(3, 1) = " RESULTADO "

End Sub

Private Sub cmdlimpiar_Click()

txtn = ""

txtk = ""

lblmostrar.Caption = ""

End Sub
Private Sub cmdsalir_Click()

End

End Sub

Pedir al usuario los coeficientes (a, b, c) de un polinomio de segundo grado (ax2 +bx+c) y mostrar las dos raíces: (-b±(b2 –4ac)1/2)/2ª

Option Explicit

Dim a, b, c, x1, x2 As Double

Private Sub cmdborrar_Click()

txta = ""
txtb = ""
txtc = ""
txtx1 = ""
txtx2 = ""
End Sub
Private Sub cmdcalcular_Click()
If (Val(txtb.Text) ^ 2 - 4 * Val(txta.Text) * Val(txtc.Text)) < 0 Then
MsgBox ("NO TIENE SOLUCION")
Else
txtx1.Text = (-Val(txtb.Text) + Math.Sqr(Val(txtb.Text) * Val(txtb.Text) - 4 * Val(txta.Text) * Val(txtc.Text))) / (2 * Val(txta.Text))
txtx2.Text = (-Val(txtb.Text) - Math.Sqr(Val(txtb.Text) * Val(txtb.Text) - 4 * Val(txta.Text) * Val(txtc.Text))) / (2 * Val(txta.Text))
End If
End Sub
Private Sub cmdsalir_Click()
End
End Sub
Private Sub cmdenviar_Click()
Cells(1, 1) = " a = "
Cells(1, 2) = txta.Text
Cells(2, 1) = " b = "
Cells(2, 2) = txtb.Text
Cells(3, 1) = " c = "
Cells(3, 2) = txtc.Text
Cells(4, 1) = " x1 = "
Cells(4, 2) = txtx1.Text
Cells(5, 1) = " x2 = "
Cells(5, 2) = txtx2.Text
End Sub

Pedir al usuario tres valores reales de doble precisión y mostrar el menor de ellos

Option Explicit

Dim A As Integer

Dim B As Integer

Dim C As Integer

Private Sub cmdborrar_Click()

txt1 = ""

txt2 = ""
txt3 = ""

lblmostrar.Caption = ""

End Sub

Private Sub cmdcalcular_Click()

A = Val(txt1.Text)

B = Val(txt2.Text)

C = Val(txt3.Text)

If (A < B And A < C) Then

lblmostrar.Caption = A

Else

If (B < A And B < C) Then

lblmostrar.Caption = B

Else

lblmostrar.Caption = C

End If

End If

End Sub

Private Sub cmdenviar_Click()

Cells(1, 1) = " Ingrese valor 1 "

Cells(1, 2) = txt1.Text

Cells(2, 1) = " Ingrese valor 2 "

Cells(2, 2) = txt2.Text

Cells(3, 1) = " ingrese valor 3 "

Cells(3, 2) = txt3.Text

Cells(4, 1) = "EL NÚMERO MENOR ES"

Cells(4, 2) = lblmostrar.Caption

End Sub

Private Sub cmdsalir_Click()

End

End Sub
Escribir un programa (usando la instrucción IF) que pida un número real de precisión sencilla y haga muestre los siguientes resultados:

 Si el número es menor que 50, mostrará su cuadrado

 Si el número es igual a 25, 30 ó 75, mostrará su raíz cúbica
 Si el número vale 10 ó es mayor que 100 ó está en los intervalos [3,8] o [77, 90], mostrará el valor dividido por 10.
 En cualquier otro caso, mostrará el número leído.

Option Explicit

Private Sub cmdborrar_Click()

txtdato = ""

lblmostrar.Caption = ""

End Sub

Private Sub cmdcalcular_Click()

Dim valor As Double

Dim raiz As Double

Dim dividido As Double

valor = Val(txtdato.Text)

If (valor < 50) Then

lblmostrar.Caption = " " & (valor ^ 2)

Else

If (valor = 25) Or (valor = 30) Or (valor = 75) Then

raiz = valor ^ (1 / 3)

lblmostrar.Caption = "Raiz cubica " & "=" & (raiz)

Else

If (valor = 10) Or (valor > 100) Or ((valor > 3) And (valor < 8)) Or ((valor > 77) And (valor < 90)) Then

dividido = valor / 10

lblmostrar.Caption = dividido

Else

lblmostrar.Caption = valor

End If

End If

End If

End Sub

Private Sub cmdenviar_Click()

Cells(1, 1) = " Ingrese el valor deseado "

Cells(1, 2) = txtdato.Text
Cells(2, 1) = " RESULTADOS"

Cells(2, 2) = lblmostrar.Caption

End Sub

Private Sub cmdsalir_Click()

End

End Sub

Pedir un valor N al usuario y calcular la serie 12 +22 +32 … hasta que la suma iguale o supere el valor N.

Option Explicit

Private Sub cmdcalcular_Click()

Dim contador As Integer

Dim n As Integer

Dim i As Integer

Dim serie As Integer

n = Val(txt1.Text)

contador = 0

For i = 1 To n

serie = i ^ 2

contador = contador + serie

If (contador = n) Or (contador > n) Then

lblcalcular.Caption = contador

End If

Next

End Sub

Private Sub cmdenviar_Click()

Cells(1, 1) = " INGRESE EL NUMERO "

Cells(1, 2) = txt1.Text

Cells(2, 1) = " RESULTADO "

Cells(2, 2) = lblcalcular.Caption

End Sub

Private Sub cmdlimpiar_Click()

txt1 = ""

lblcalcular = ""

End Sub
 Private Sub cmdsalir_Click()

End

End Sub

Escribe un programa que calcule la factorial de un número solicitado al usuario.

Option Explicit

'Declaracion de Variables

Dim contador, numero, factorial As Double

Private Sub cmdenviar_Click()

Cells(1, 1) = " INGRESE UN NUMERO "

Cells(1, 2) = txtvalor.Text

Cells(2, 1) = " RESULTADO "

Cells(2, 2) = lblmostrar.Caption

End Sub

Private Sub cmdfactorial_Click()

factorial = 1

numero = txtvalor.Text

For contador = 1 To numero

factorial = factorial * contador

Next contador

'Mostrar en el Label

lblmostrar = " " & factorial

End Sub

Private Sub cmdlimpiar_Click()

txtvalor = ""

lblmostrar.Caption = ""

End Sub

Private Sub cmdsalir_Click()

End

End Sub

Dados dos números, calcular todos los números primos intermedios

Option Explicit

Dim contador As Integer

Dim conta2 As Integer

Dim contadornumeroprimo As Integer

Dim valorinferior As Integer

Dim valorsuperior As Integer

Dim residuo As Integer

Private Sub cmdcalcular_Click()

contadornumeroprimo = 0

lblmostrar = ""

valorinferior = txtvalorinferior.Text

valorsuperior = txtvalorsuperior.Text

For contador = valorinferior + 1 To valorsuperior - 1

For conta2 = 1 To contador

residuo = contador Mod conta2

If (residuo = 0) Then

contadornumeroprimo = contadornumeroprimo + 1

End If

Next conta2

If (contadornumeroprimo = 2) Then

lblmostrar = lblmostrar & " " & contador

End If

contadornumeroprimo = 0

Next contador

End Sub

Private Sub cmdenviar_Click()

Cells(1, 1) = " Ingrese valor inferior "

Cells(1, 2) = txtvalorinferior.Text

Cells(2, 1) = " Ingrese valor superior "

Cells(2, 2) = txtvalorsuperior.Text

Cells(3, 1) = " Resultado "

Cells(3, 2) = lblmostrar.Caption

End Sub

Private Sub cmdlimpiar_Click()

txtvalorinferior.Text = ""

txtvalorsuperior.Text = ""

lblmostrar = ""
End Sub

Private Sub cmdsalir_Click()

End

End Sub

Preguntar al usuario la marca, modelo y unidades de los automóviles que quiere, enviar a una hoja de Excel la información.

Option Explicit
Private Sub cmdingresar_Click()
Dim a, b, e, c As String
a = txta.Text
b = txtb.Text
c = Val(txtc)
If (txta = "" And txtb = "" And txtc = "") Then
MsgBox ("INGRESE DATOS PORFAVOR")
End If
End Sub
Private Sub cmdenviar_Click()
Cells(1, 1) = " Marca "
Cells(1, 2) = txta.Text
Cells(2, 1) = " Modelo "
Cells(2, 2) = txtb.Text
Cells(3, 1) = "Número de unidades"
Cells(3, 2) = txtc.Text
End Sub
Private Sub cmdlimpiar_Click()
txta = ""
txtb = ""
txtc = ""
End Sub
Private Sub cmdsalir_Click()
End
End Sub

Sabiendo que los descuentos de una tienda son del 5% cuando se compra más de $300, del 10% cuando se compra más de $500 y del
12% para cantidades mayores de $800, escribe un programa que pregunte al usuario la cantidad comprada y le indique el importe a
pagar. Usar la función IF.

Option Explicit

Dim num1 As String

Dim descuento1 As String

Dim descuento2 As String

Dim descuento3 As String

Private Sub cmdcalcular_Click()

num1 = txtnum1.Text

If (IsNumeric(num1) = True) Then

If ((300) >= (num1)) Then

lblfinal.Caption = num1
 Else

If ((num1) > (300)) And ((500) >= (num1)) Then

descuento1 = ((num1) - ((num1 * 5) / 100))

lblfinal.Caption = descuento1

Else

If ((num1) > (500)) And ((800) >= (num1)) Then

descuento2 = ((num1) - ((num1 * 10) / 100))

lblfinal.Caption = descuento2

Else

If ((num1) > (800)) Then

descuento3 = ((num1) - ((num1 * 12) / 100))

lblfinal.Caption = descuento3

End If

End If

End If

End If

Else

MsgBox ("Ingrese un valor en dolares")

txtnum1.Text = ""

txtnum1.SetFocus

End If

End Sub

Private Sub cmdlimpiar_Click()

txtnum1.Text = ""

lblfinal.Caption = ""

txtnum1.SetFocus

End Sub

Private Sub cmdsalir_Click()

End

End Sub