Error en programa de visual basic 6.0

Responder
Mensaje
Autor
Dstudios
Mensajes: 5
Registrado: 14/03/2017 6:07 pm

Error en programa de visual basic 6.0

#1 Mensaje por Dstudios » 18/05/2017 6:49 pm

Hola a todos programadores soy Dstudios, hoy necesito ayuda con un problema con un programa que estoy haciendo. este programa consiste en un programa que traduce textos a un código encriptado al que llamo Vector de basilisco, he intentado hacerlo primero en c++ pero me daba error en una función por un char que era tipo puntero o algo así, así que decidí usar visual basic para hacerlo más gráfico pero resulta que me da error al presionar el botón de traducir.
codigo fuente

Código: Seleccionar todo

Private Sub Command1_Click()
Dim TextValue As String
Dim TextOutput() As String
Dim FinalLenght As Integer
For i = 1 To Len(Text1)
TextValue = Mid(Text1, i, 1)
FinalLenght = i
Select Case TextValue
Case "a"
TextOutput(FinalLenght) = ":; "
Case "b"
TextOutput(FinalLenght) = ":;; "
End Select
Next

For a = 0 To FinalLenght
Text2 = Text2 + TextOutput(FinalLenght)
Next

End Sub

El error dice "error 9 en tiempo de ejecución, subindice está fuera del intervalo"
y me señala esta parte

Código: Seleccionar todo

Private Sub Command1_Click()
Dim TextValue As String
Dim TextOutput() As String
Dim FinalLenght As Integer
For i = 1 To Len(Text1)
TextValue = Mid(Text1, i, 1)
FinalLenght = i
Select Case TextValue
Case "a"
-->TextOutput(FinalLenght) = ":; "
Case "b"
-->TextOutput(FinalLenght) = ":;; "
End Select
Next

For a = 0 To FinalLenght
Text2 = Text2 + TextOutput(FinalLenght)
Next

End Sub
dependiendo de la letra que quiera traducir primero. ¿a qué se debe? gracias

Responder

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados