Cómo contar el número de números ingresados ​​en VB

1. Inicie VB para crear un nuevo proyecto 1 y dibuje tres cuadros de Etiqueta, dos cuadros de Texto y un botón de Comando en las posiciones apropiadas del Formulario 1 (puede modificar el Título y otras propiedades del control). por adelantado).

2. Haga doble clic en el botón "Estadísticas" (es decir, Comando1) y escriba el siguiente código en el cuadro de código emergente:

PrivateSubCommand1_Click()DimxAsStringa=Text1.Text1. Text2.Text2. Textn=0File=0File=0File=0File=1Text2.Textn=0Fori=1ToLen(a)

x = Mid(a, i, 1) Si x = b Entonces n = n 1 ?El siguiente yo? Label3.Caption = "Caracteres en la cadena" amp; b amp; "Caracteres en la cadena" " amp; a amp; " "Caracteres en la cadena" amp; "veces". End Sub

Esto satisface la necesidad de recuperar todos los caracteres y contar el número de apariciones de los mismos.

3 Para que la operación de entrada sea más conveniente, podemos agregar la declaración SetFocus:

PrivateSubtext1_keypress(keyasciiAsInteger)Ifkeyascii=13ThenText2.SetFocusEndSub

In. De esta manera, cuando se ingresa el cursor. Cuando permanece en texto1 y presiona la tecla Intro, el cursor saltará a texto2, lo que facilitará la introducción de texto2.

Cuando el cursor permanece en el texto 2 y presiona la tecla Enter, el cursor saltará a Comando para facilitar la operación:

PrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1.SetFocusEndSub

p>

4. Finalmente, haga clic en Ejecutar para probar la función.