¿Quién puede ayudarme a traducir el siguiente programa VB?

subtexto privado 1 _ pulsación de tecla (keyascii como número entero)' Cuando el texto 1 (cerrado cuando se presiona una tecla en el cuadro de texto)

Si keyascii = 13 entonces' si el valor de la clave Es 13 (tecla Enter), juzgue el siguiente código.

Si es de tipo numérico (texto1), lo es.

seleccionar caso texto 1 mod 2 'seleccionar caso equivale a múltiple si... seguido de juicio. La condición de juicio en este momento es juzgar el contenido del texto 1 y encontrar el resto de 2. De hecho, es juzgar si es un número par o impar.

El resto del caso 0' es 0, que es un número par, por lo que el valor de n se suma al valor en texto1.

n = n + texto1

El resto del Caso 1’ es 1, que es un número impar. Sumemos el valor de m al valor en text1.

m = m + texto1

Finalizar selección

Terminará si...

Text1 = " " 'Borrar cuadro de texto 1 contenido.

Texto1. Establecer el foco del cursor.

Terminará si...

Finalizar conector