Mi método WriteConcatenated no funciona debido al error BC30491.
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?
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étodoMain
. Para solucionar esto, puedes eliminar la declaraciónConsole.WriteLine
en el métodoMain
y simplemente llamar al métodoWriteConcatenated
:Esto llamará al método
WriteConcatenated
e imprimirá cualquier texto concatenado en la pantalla.