Programación de consultas Vb

Subcomando privado 1_Click()

X = InputBox("Ingrese las letras que desea consultar")

Para i = 0 a 25

Si UCase(x) = ch(i), entonces

MsgBox x&" es "I 1 &" elemento"

es ..Salir

Terminará si...

Siguiente yo

Finalizar conector

Subform_Load() privado

Para yo = 0 a 25

ch(i) = Chr(65 i)

Siguiente I

Fin de ajuste