Código para calculadora en VB (requerido para implementar operaciones de suma, resta, multiplicación y división del 0 al 9)

'Modifica según tus requerimientos:

'La calculadora más simple (implementa suma, resta, multiplicación y división del 0 al 9)

'1, suma Command1 control Array 0~14

'2, establezca la propiedad Caption de Command1:

'Command1(0~9)??"0~9"

'Comando1(10~13)?"+, -, *, /"

'Comando1(14)?" ="

'3.

'Organizar los controles anteriores ¿Opción?Explicit Dim?TTemp1,?TTemp2?As?Double?'Registrar los números ingresados ​​antes y después de Dim?TFlag?As?Integer?'Registrar el operador

Private?Sub?Form_Load() IsEqual?=?False

End?Sub

Private?Sub?Command1_ Click (¿Índice? ¿Como?Entero) ¿Seleccionar?Caso?Índice

Caso?0?

Texto1=?""""?'Sí, de lo contrario borre el contenido actual

IsEqual =?False End?If Text1=?Text1?&?Index?'Escriba los números del 1 al 9

Case?10?To?13 TFlag=?Index?'Operador de registro. TTemp1?=?Val(Text1)?Registrar el primer número Text1?Borrar el cuadro de texto

Caso?14 TTemp2?=?Val(Text1)?Registrar el segundo número If?TFlag?=?10 ? Entonces?Text1?=?TTemp1?+?TTemp2?'Presione Command1(10)?"+" If?TFlag?=?11?Then?Text1?=?TTemp1?-?TTemp2 If?TFlag?=?12? ?Text1?=?TTemp1?*?TTemp2 If?TFlag?=?13?Then?Text1?=?TTemp1?/?TTemp2 If?Val(Text1)?0"? &?Text1 IsEqual?=?True End? Seleccionar

End?Sub

'Aquí está la dirección de descarga del proyecto, cópiela y péguela en la barra de direcciones y luego haga clic en Entrar:

'/ r /ww/wwccwwccwc/%E6%9C%80%E7%AE%80%E5%8D%8D%80%E7%AE%80%E7%AE%80%E7%AE%E7%AE%AE%AE % AE%AE%E7%AE%AE%E7%AE%AE%AE%AE%AE%AE%AE 80%E5%8D%95%E7%9A%84%E8%AE%A1%E7%AE% 97%E5%99%A8.rar