VB ¿Puedo preguntarle a alguien que pueda traducir?

Utiliza el Traductor de GOOGLE. ¿Esto permite que la página web complete automáticamente el formulario en lugar de simplemente aceptar? ¿Vaya?

Crear un comando 1. ¿Grupo de control (botones 0 a 9, los índices correspondientes son 0 a 9)? Comando 2. ¿El título correspondiente está retrocedido? Subiré fotos para que las veas más tarde. El título del comando 3 es "=". El texto text1 se utiliza para entrada y salida.

¿Dim?Espera a que se determinen la suma, resta, multiplicación y división

Private?Sub?Command1_Click(Index?As?Integer)

'command1? ¿índice?Para seleccionar

¿Seleccionar?¿Caso?¿Índice?

Caso?0?

a?=?a?&"

Privado ?0"

Texto1.Texto?=?a

Caso?1

a?=?a?amp;?"1"

Texto1.Texto?=?a

Caso?2

a?=?a?amp;?"2"

Texto1.Texto ? =?a

Caso?3 a?=?a?amp;?"3"Texto1.Text?=?a

Caso?4 a?=?a?amp ;?"4" Texto1.Texto?=?a

Caso?5

a?=?a?amp;?"5"

Texto1. Texto ?=?a

Caso?6 a?=?a?amp;?"6"Texto1.Text?=?a

Caso?7

a?=?a?amp;?"7"

Texto1.Texto?=?a

Caso?8 a?=?a?amp;?"8"Texto1 . Text?=?a

Caso?9 a?=?a?amp;?"9" Text1.Text?=?a

Caso?10 'Procesando positivo y negativo señales? Si Mid(Text1.Text,?1,?1)?lt;gt;?"-"?Si el primer dígito de Mid(Text1.Text) es "-", a=?-"?amp;?Text1. ¿Texto? "¿No más?" Siempre que

Text1.Text?=? "a" Else?'Si es un número negativo, presione? y luego se convertirá en un número positivo

a?=? Mid(Text1. Text,?2)?¿Eliminar el primero?Eliminar

Text1.Text?=?a End?If Case?11 a?=?a?Text1.Text?=?a" Aquí está: Haga clic en "Suma, resta, multiplicación, división", Caso 12

b?=?a?' asigna "a" a "b", y luego podemos continuar asignando "a" a "b". Asignar un valor a a Cuando tanto a como b tienen "...", podemos continuar asignando un valor a a.

Completar a?=?"" i?=?" "

Caso?13 b?=?a a?=?"" i?=?"" -" Caso 14

b?=? i?=?"*" Caso 15 b? i?/" End?Select

End?Sub '¿Es este el signo igual?

Private?Sub?Command2_Click()

'¿Juzgado? ¿Ves qué símbolo se presionó hace un momento?

"¿Qué presionaste hace un momento? Signo más

¿Caso?" "

s?=?CSng(b)? ?CSng(a)? ' ¿Es un signo más? Simplemente súmalo

Caso?"-"

s?=?CSng(b)?-?CSng(a)

Caso?"*"

s?=?CSng(b)?*?CSng(a)

Caso?"/"

s? =? CSng(b)?/?CSng(a) Finalizar selección

a?=?"

b?=?""

Texto1.Texto ?= ?s

b?=?s

Fin?Sub

Privado?Sub?Command3_Click()

'Esto es ¿Botón de tecla de retroceso?

a?=?Mid(Text1.Text,?1,?Len(Text1.Text)?-?1)?' menos un "..." eliminará el último"... ...".

Esto tiene algunos errores, ¿tengo que arreglarlo yo mismo?