Estoy buscando urgentemente el código para usar VB para hacer un juego de mecanografía~Buenas adiciones~~~

'Escriba uno simple y fácil de entender para usted, dibuje dos cuadros de texto en el formulario, Texto1 y Texto2.

private sub Form_Load()

temporizador aleatorio 'Restablece el factor aleatorio, de modo que obtendrás una secuencia de caracteres diferente cada vez que ejecutes el programa

text2 .tabindex=0 'Después de que se muestra el formulario, el cursor se coloca en texto2

Text2_KeyPress 0 'Simula una operación de teclado para llamar a texto2, y su programa interno hará que texto1 se actualice

end sub

private sub Text2_ KeyPress(KeyAscii como entero) 'Eventos generados por las operaciones del teclado text2

dim i as long

if len(text1.text =text1.text & chr$( int(rnd()*26)+asc("a")) 'Generar caracteres a~z y agregarlos al final del texto1

siguiente i

else

if keyascii<>. asc(vba.mid$(text1.text,len(text2.text)+1,1)) then keyascii=0:beep 'Introducción de caracteres incorrecta, genera un pitido y cancela la operación actual del teclado

end if

end sub

'También puede embellecer la interfaz, agregar puntuación, sincronización y otros. funciona sobre esta base'