Dim palabras(0 To 10) As String
Dim definiciones(0 To 10) As String
Private Sub Command1_Click()
palabras(0) = "a-su"
palabras(1) = "Aa"
palabras(2) = "Abayo"
palabras(3) = "Abekku"
palabras(4) = "Abunai"
palabras(5) = "Ace o Nerea"
palabras(6) = "Achi Kochi"
palabras(7) = "Aenaisago"
palabras(8) = "Agemasu"
palabras(9) = "Ah souka"
definiciones(0) = "Dia de la Tierra (22 de Abril)."
definiciones(1) = "Ah, Er. "
definiciones(2) = "Es a 'sayonara' como 'kisama' es a 'anata'... En términos más simples, 'abayo' es una forma muy poco cortés de despedirse de alguien."
definiciones(3) = "Juntos (con alguien)."
definiciones(4) = "Peligro, Peligroso, ¡Cuidado!."
definiciones(5) = "Raqueta de oro."
definiciones(6) = "Aquí y alla"
definiciones(7) = "Muerte Tragica. "
definiciones(8) = "Dar."
definiciones(9) = "Ah correcto."
Dim i As Integer
Dim pal As String
Dim mensaje As Variant
If Text1.Text = "" Then
mensaje = MsgBox("escribe una palabra", vbExclamation, "te has olvidado de escribir la palabra")
End If
mensaje = MsgBox("esta palabra no existe", vbOKOnly, "te has olvidado de escribir la palabra")
pal = Text1.Text
For i = 0 To 10
If pal = palabras(i) Then
Text2.Text = definiciones(i)
Exit Sub
End If
Next
For i = 0 To 10
If InStr(LCase(definiciones(i)), LCase(Text1.Text)) Then
MsgBox palabras(i)
End If
Next
End Sub
- Dim solo se usa para declarar variables, nunca más a lo largo del programa.
- Has declarado la variable "palabras" y ese es el mismo nombre que tenía el vector. No puede haber dos variables con un mismo nombre en un programa.
- Indenta bien tu código, sólo tenias indentado lo que habías copiado de mi ejemplo y si un código no está bien indentado es más difícil de entender.
- Te he corregido varias faltas de ortografía, "escribe" es con b y no es "oblidado" es "olvidado".
LEE UN BUEN MANUAL DE VISUAL BASIC, POR TUS ERRORES DEDUZCO QUE ESTÁS MUY PERDIDO Y NO TIENES MUCHA IDEA DEL TEMA, ASÍ QUE ES MEJOR QUE ESTUDIES UN POCO ANTES DE EMPEZAR A PROGRAMAR.Como siempre digo, no quieras correr sin saber gatear...
Saludos!