Subs y Functions en Visual Basic
Los dos invocables: las Function devuelven, los Sub actúan.
Report("small", CircleArea(1.0))
Report("large", CircleArea(4.5))
Dim sizes() As Double = {1.0, 2.0, 3.0}
Dim areas = sizes.Select(AddressOf CircleArea).ToArray()
Console.WriteLine($"summed: {areas.Sum():F2}")
Function CircleArea(radius As Double) As Double
Return Math.PI * radius * radius
End Function
Sub Report(label As String, value As Double)
Console.WriteLine($"{label}: {value:F2}")
End Sub
Cómo funciona
Function ... As Doubledeclara el tipo de retorno después de los parámetros.- Un
Subno devuelve nada — existe por su efecto secundario. AddressOfpasa un método con nombre donde iría una lambda.
Palabras clave y builtins usados aquí
DimDoubleEndFunctionReturnStringSub
El intento, en números
- Líneas
- 14
- Caracteres a escribir
- 401
- Tokens
- 101
- Ritmo de tres estrellas
- 85 tpm
Al ritmo de tres estrellas de 85 tokens por minuto, este intento toma unos 71 segundos.
Paso 1 de 3 en Subs y funciones; paso 13 de 29 en Fundamentos del lenguaje.