¿Encuentra el código completo para el cálculo usando VB?
1.lblResult
Control de etiqueta
Establecer lblResult.Caption
=
2.btnNum(0)~btnNum(9)
Matriz de control de botones. El subíndice corresponde al número Qi (por ejemplo: btnNum(0).Caption=0, etc.)
3. Agregue btnAdd (suma), btnSub (resta), btnMul (multiplicación), btnDiv. (división), btnEnter (igual a número), btnReset (botón borrar) seis botones.
Ingrese lo siguiente en el código del formulario:
Dim
byteOperation
As
Byte
'Operador
Dim
byteTmp
Como
Byte
'Operador temporal
Dim
intNum
As
Doble
'Ingresa un número
Sub
Calc()
Seleccionar
Caso
byteOperación
Caso
1
'Agregar
lblResult.Caption
=
CDbl(lblResult.Caption)
+
intNum
Caso
2
'Sub
lblResult.Caption
=
intNum
-
CDbl(lblResult.Caption)
Caso
3
'Mul p>
lblResult.Caption
=
CDbl(lblResult.
*
intNum
Caso
4
'Div
lblResult.Caption
=
intNum
/
CDbl(lblResult.
Caso
Else
Fin
Seleccionar
Fin
Sub
Privado
Sub
btnNum_Click(Index
Como
Entero)
Si
byteTmp
<>
Entonces
intNum
=
lblResult.Caption
=
Índice
De lo contrario
Si
Len(lblResult.Caption)
<
9
Entonces
lblResult.p>
&
Índice
Fin
Si
Fin
Si
Fin
Sub
Privado
Sub
btnAdd_Click()
Si
byteOperation
<>
Luego
Llamar
Calc
Finalizar
Si
Operaciónbyte
=