VB, ¿traduce?
¿Construir uno? Comando 1. Grupo de control (¿Botones 0 a 9? ¿Correspondencia? ¿Índice? ¿Qué? ¿0 a 9)? comando2? ¿El título correspondiente es retroceso? Te enviaré una foto más tarde. Échale un vistazo. , comando3? ¿título? Es "=". Texto texto1? ¿Es para entrada? y generar el resultado.
¿Oscuro? s,? uno,? b,? ¿I? ¿Como? ¿Cadena? ? ¿s? ¿El resultado? , A, B? ¿Son dos números? ,¿I? ¿Qué pasa? Esperando para juzgar sumas, restas, multiplicaciones y divisiones
¿Privado? ¿Sub? Command1_Click(¿Índice? ¿como? Entero)
comando1? ¿índice? Toma una decisión
¿Elegir? ¿caso? Índice
¿Caso? ¿0?
¿Respuesta? =?¿Respuesta? ¿amperio? "0"
Texto1. ¿Palabra? =?un
¿Caso? 1
¿Respuesta? =?¿Respuesta? ¿amperio? "1"
Texto1. ¿Palabra? =?un
¿Caso? 2
¿Respuesta? =?¿Respuesta? ¿amperio? "2"
Texto1. ¿Palabra? =?un
¿Caso? ¿Tres
respuestas? =?¿Respuesta? ¿amperio? "3"
Texto1. ¿Palabra? =?un
Caso? Cuatro
¿Respuesta? =?¿Respuesta? ¿amperio? "4"
Texto1. ¿Palabra? =?un
Caso? Cinco
¿Respuesta? =?¿Respuesta? ¿amperio? "5"
Texto1. ¿Palabra? =?un
¿Caso? Seis
¿Respuesta? =?¿Respuesta? ¿amperio? "6"
Texto1. ¿Palabra? =?un
¿Caso? Siete
¿Respuesta? =?¿Respuesta? ¿amperio? "7"
Texto1. ¿Palabra? =?un
¿Caso? Ocho
¿Respuesta? =?¿Respuesta? ¿amperio? "8"
Texto1. ¿Palabra? =?un
¿Caso? Nueve
¿Respuesta? =?¿Respuesta? ¿amperio? "9"
Texto1. ¿Palabra? =?un
¿Caso? 10
¿Manejo del logotipo?
¿Y si? Medio(Texto1.Texto,?1,?1)?lt gt? "-"? ¿Y luego qué? ¿Juez? texto1.texto? El primer lugar es "-",
¿Respuesta? =?"-"? Texto 1. ¿Palabra? ¿No? ¿solo? ¿Podrías agregar algo? Se vuelve negativo.
Texto1. ¿Palabra? =?a
¿Y si? ¿Y si es negativo? , presione de nuevo? , se convierte en un número positivo
¿Respuesta? =?Mid(Text1.Text,?2)?¿Poner el primero? Deshazte de
Text1. ¿Palabra? =?a
¿Fin? ¿Y si
caso? 11
¿Respuesta? =?¿Respuesta? ¿amperio? "."
Texto1. ¿Palabra? =?a
¿Lo siguiente es? ¿Lo presionaste? Signo más, signo menos, signo de multiplicación, signo de división,
¿Caso? 12
b? =?A: ¿Poner uno? Entonces dáselo a b. ¿Podemos continuar? Sí, ¿un? Asigne un valor. ¿Espera un minuto? b. ¿Lo tienes todo? ,¿Puedo? Comprendido.
¿Respuesta? =?""
¿Yo? =?" "
¿Caso? 13
b? =?a
¿Respuesta? =?""
¿Yo? =?"-"
¿Caso? 14
b? =?a
¿Respuesta? =?""
¿Yo? =?"*"
¿Caso? 15
b? =?a
¿Respuesta? =?""
¿Yo? =?"/"
¿Fin? Selección
¿Finalizar? Submarino
¿Es este el signo igual?
¿Privado? ¿Sub? Command2_Click()
¿Lo has juzgado? Mira qué símbolo acabas de presionar.
¿Elegir? ¿caso? ¿I? ¿Fue eso justo ahora? ¿Agregar
caso? " "
s? =?CSng(b)? ?CSng(a)? ¿Es una ventaja? ¿solo? ¿Hay
casos en total? "-"
s? =?CSng(b)? -?CSng(a)
¿Caso? "*"
s? =?CSng(b)? *?CSng(a)
¿Caso? "/"
s? =?CSng(b)? /?CSng(a)
¿Fin? Elige
¿Respuesta? =?""
b? =?""
Texto1. ¿Palabra? =?s
b? =?s
¿Fin? Submarino
¿Privado? ¿Sub? Command3_Click()
¿Es esto retroceso? ¿Botón? .
¿Respuesta? =?Mid(Texto1. Texto,?1,?Len(Texto1.Texto)?-?1)?Menos uno? ¿Solo dejarlo ir? El último fue eliminado.
Texto1. ¿Palabra? =?a
¿Fin? ¿Sub?
Por supuesto, esto es un pequeño problema, ¿vale? , para modificarte? Hace tiempo que esperaba ser adoptado, jaja.