Red de conocimientos sobre prescripción popular - Enciclopedia de Medicina Tradicional China - Pídale a VB Language Master que me ayude a traducir lo siguiente. Gracias.

Pídale a VB Language Master que me ayude a traducir lo siguiente. Gracias.

Hay muchos errores. Eche un vistazo a este código. La función general es poner la primera letra de cada palabra en un párrafo de entrada en inglés al final de la palabra y generarla. Por ejemplo, soy estudiante es la entrada y soy estudiante es la salida.

//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?