Basic - programa que traduzca

Const MAXPAL = 3

Dim espanol$(MAXPAL)

Dim ingles$(MAXPAL)

Dim i

'Palabras en espanol

espanol$(1) = "Hola"

espanol$(2) = "Adios"

espanol$(3) = "Buenos dias"

'Palabras en ingles

ingles$(1) = "Hello"

ingles$(2) = "Bye"

ingles$(3) = "Good morning"

Print "Lista de palabras"

For i = 1 To MAXPAL

    Print espanol$(i)

Next

Print

Input "Que palabra desea traducir al ingles: ", pal$

For i = 1 To MAXPAL

    If pal$ = espanol$(i) Then

        Print "La palabra en ingles es: "; ingles$(i)

    End If

Next