Respuesta.

En Visual Basic, la programación estructurada permite estructurar el código de manera clara a través del uso repetido de subprogramas (Sub, Function) para minimizar la duplicación y mejorar la legibilidad.

Historia de la cuestión

Inicialmente, la programación en VB se desarrollaba en torno al trabajo con grandes bloques de código dentro de formularios y módulos. Esto llevaba a la duplicación de lógica y complicaba la depuración. La separación en procedimientos y funciones marcó un avance hacia una arquitectura más modular.

Problema

Las aplicaciones mal estructuradas contienen código idéntico en diferentes lugares, lo que dificulta el mantenimiento, la corrección de errores y reduce la reutilización.

Solución

Utilizar procedimientos (Sub) y funciones (Function) con argumentos y retorno de valores. Una buena práctica es extraer la lógica repetida en métodos separados, siguiendo el principio DRY (Don't Repeat Yourself).

Ejemplo de código:

' Manejador que llama a una función reutilizable
Sub btnCalculate_Click(sender As Object, e As EventArgs)
    Dim result As Double = CalculateDiscount(100, 0.2)
    MessageBox.Show($"Descuento: {result}")
End Sub

' Función reutilizable
Function CalculateDiscount(total As Double, rate As Double) As Double
    Return total * (1 - rate)
End Function

Características clave:

• Reutilización del código a través de métodos y funciones comunes.
• Sencillez en el mantenimiento del código.
• Descomposición clara de la lógica.

Preguntas trampa.

¿Se puede declarar procedimientos y funciones con el mismo nombre en Visual Basic, si solo varían en los tipos de valores devueltos?

En Visual Basic, el nombre de un procedimiento o función debe ser único en su ámbito de visibilidad, y la sobrecarga solo por el tipo de valor devuelto no es posible. La sobrecarga solo se admite por las firmas de los parámetros.

Ejemplo de código:

' INCORRECTO — error de compilación
Function GetValue() As Integer
    Return 1
End Function

Function GetValue() As String
    Return "Test"
End Function

Si se declara un parámetro como Optional, ¿es obligatorio especificar un valor por defecto?

Sí, para los parámetros Optional es obligatorio establecer un valor por defecto.

Ejemplo de código:

Function Sum(a As Integer, Optional b As Integer = 0) As Integer
    Return a + b
End Function

¿Se puede usar Exit Sub/Exit Function para salir no solo de la procedimiento actual, sino también de las padres?

No, Exit Sub/Exit Function solo sale de la procedimiento actual. Para controlar el flujo a nivel de procedimientos externos, debes usar estructuras de control de flujo, como If/Return o manejo de excepciones.

Errores comunes y anti-patrones

• Duplicación de la lógica de negocio en lugar de extraerla en métodos separados.
• Uso de procedimientos con un gran número de parámetros y baja legibilidad.
• Uso incorrecto de variables globales para intercambiar datos entre procedimientos.

Ejemplo de la vida real

Caso negativo

En el proyecto de cálculo de descuentos, se implementa un fragmento de código separado en varios manejadores de eventos en diferentes formularios. Al cambiar la fórmula, es necesario corregir el código manualmente en todos los lugares.

Ventajas:

• Resultado rápido al prototipar.

Desventajas:

• Difícil de mantener.
• Existe riesgo de errores al realizar cambios.
• Más código para el mantenimiento.

Caso positivo

Extraer el cálculo del descuento en una función separada CalculateDiscount y usarla en todos los lugares necesarios a través de llamadas.

Ventajas:

• Cambios simples en un solo lugar.
• Menor probabilidad de errores.
• Mejora de la legibilidad y testabilidad.

Desventajas:

• Requiere dedicar tiempo a la descomposición y estructuración del código.