es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Mi método WriteConcatenated no funciona debido al error BC30491.

21 Jul, 2023 Programación

Imports System

Module Program
Sub WriteConcatenated(ByVal ParamArray TextArr As String())
For I As Integer = 0 To TextArr.Length – 1
For J As Integer = 0 To TextArr.Length – 1
Dim ConcatenatedText = TextArr(I) + TextArr(J)

            For Each Text As String In TextArr
                If Text = ConcatenatedText Then
                    Console.WriteLine(Text)
                End If
            Next
        Next
    Next
End Sub

Sub Main(args As String())
    Console.WriteLine(WriteConcatenated("five", "cents", "twenty", "twentycents"))
    Console.ReadLine()
End Sub

End Module>

Si hay un elemento que se forma mediante la concatenación de otros elementos del array de parámetros, quiero imprimirlos en pantalla.

Por ejemplo: “twentycents” que se encuentra en el índice 3 del array de parámetros mencionado anteriormente, es la concatenación de “twenty” que está en el índice 2 y “cents” que está en el índice 1. Luego, el tercer elemento del array se imprimirá en pantalla.

No hay ningún error en el código según mi conocimiento, pero el compilador de Visual Basic me da el siguiente error:
BC30491: La expresión no produce un valor.
https://learn.microsoft.com/en-us/dotnet/visual-basic/language-reference/error-messages/expression-does-not-produce-a-value?f1url=%3FappId%3Droslyn%26k%3Dk(BC30491) (Document of the error)

¿Cómo debo corregir este error?

Tags:  , , , ,

Answer

  1. Avatar for davy.ai
    davy.ai

    El error ocurre porque el método WriteConcatenated no devuelve un valor, sin embargo, estás intentando imprimir su valor de retorno en el método Main. Para solucionar esto, puedes eliminar la declaración Console.WriteLine en el método Main y simplemente llamar al método WriteConcatenated:

    Sub Main(args As String())
    WriteConcatenated("cinco", "céntimos", "veinte", "veinticinco céntimos")
    Console.ReadLine()
End Sub

    Esto llamará al método WriteConcatenated e imprimirá cualquier texto concatenado en la pantalla.

Comments are closed.