Pídale a VB Language Master que me ayude a traducir lo siguiente. Gracias.
//Declaración de variable requerida
Opción explícita
//Defina una palabra de entrada de variable de carácter local a nivel de formulario.
Atenuar la palabra de entrada como una cadena
//Evento de clic del formulario
Subform_click() privado
//Definir carácter variables frase y siguiente palabra, y variable de forma posición en blanco.
La frase tenue es una cadena, la palabra siguiente es una cadena, la posición en blanco es un número entero
//Utilice el cuadro de diálogo de entrada para asignar un valor en inglés a la frase.
Phrase=InputBox (Ingrese una oración en inglés)
//Encuentre la posición del espacio en blanco en la frase y asígnela a Blankposition.
Blankposition=InStr(1, frase, " ")
//Bucle, siempre que Blankposition no sea 0, lo que significa que la frase todavía contiene espacios y más de una palabra.
While Blankpositon & lt& gt0
//Asigna el carácter antes del primer espacio, es decir, la primera palabra, a la siguiente palabra.
newtword=Left(phrase, Blankposition-1)
//& amp se usa para conectar caracteres, colocar el carácter más a la izquierda de la siguiente palabra en el lado derecho y agregar putword.
putword = putword &right(net word,Len(NEX word)-1)&Left(nextword,1)&""
//Número de frase interceptada El carácter después de un espacio .
phrase=Right(frase, Len(frase)-posición en blanco)
//Obtiene la posición del espacio en la nueva frase.
Blankposition=Instr(1, frase, " ")
Anillo
//Realice los ajustes anteriores a la última palabra restante sin espacio.
siguiente palabra = frase
Imprimir noticia
putword = putword & ampRight(siguiente palabra, Len(siguiente palabra)-1)&Left(siguiente palabra, 1 ) & amp;" "Imprimir palabra
Conector final
¿Hay algo que no entiendes?