Tutorial de ejemplo de VB (un programa de búsqueda)

Atenuar a como entero

Atenuar b como entero

Subcomando privado1_Click()

k = InStr(a, Texto2, Texto1 )

Si k > 0 Entonces

Command1.Caption = "Buscar siguiente"

a = k + Len(Text1)

Text2.SetFocus

Text2.SelStart = k - 1

Text2.SelLength = Len(Text1)

b = b + 1

Else

MsgBox "¡Búsqueda completada! ***Encontrado" & b & "" & Texto1

Command1.Caption = "Buscar"

a = 1

End If

'Imprimir k

End Sub

Sub privado Form_Load()

Etiqueta1 = " Qué encontrar:"

Command1.Caption = "Buscar"

a = 1

End Sub

Esto es lo que puedes vea al hacer clic en su enlace, al cargar el formulario, a se le ha asignado un valor de 1, por lo que a no es 0