Red de conocimiento informático - Conocimiento de la instalación - ¿Encuentra el código completo para el cálculo usando VB?

¿Encuentra el código completo para el cálculo usando VB?

Coloque los siguientes controles en el formulario:

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

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

=