Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo escribir una calculadora en vb 0

Cómo escribir una calculadora en vb 0

Esta es una calculadora simple que escribí recientemente. El código fuente es el siguiente. Puede consultarlo. El método de procesamiento de 0 es el mismo que su número.

Dim?a,?b?As?Integer

Privado?Sub?Command1_Click()If?mouse11?lt;gt;?1?ThenText1.Text?=?Text1. ¿Texto?amp;?1" Más Texto1.Texto?=?"1" ¿Fin?Si

Fin?Sub

Privado?Sub?Command2_Click() Si?mouse11?2" De lo contrario Texto1.Texto?=?"2" ¿Fin?Si

Fin?Sub

Privado?Sub?Command3_Click() If?mouse11?lt;gt;?1?Entonces Texto1 .Text?=?Text1.Text?amp;?"3" Más Texto1.Text?=?"3" ¿Fin?Si

Fin?Sub

Privado?Sub?Command4_Click () If?mouse11?lt;gt;?1?Then Text1.Text?=?Text1.Text?amp;?"4" Else Text1.Text?=?"4" End?If

¿Fin?Sub

Privado?Sub?Command5_Click() If?mouse11?lt;gt;?1?Then Text1.Text?=?Text1.Text?amp;?"5" ¿Else Text1.Text? =?"5" ¿Fin?Si

Fin?Sub

Privado?Sub?Command6_Click() If?mouse11?lt;gt;?1?Entonces Texto1.Texto?=? Text1.Text?amp;?"6" Más Text1.Text?=?"6" ¿Fin?If

Fin?Sub

Privado?Sub?Command7_Click() If?mouse11 ?lt;gt;?1?Entonces Texto1.Texto?=?Texto1.Texto?amp;?"7" De lo contrario Texto1.Texto?=?"7" ¿Fin?Si

Fin?Sub p>

Privado?Sub?Command8_Click() If?mouse11?lt;gt;?1?Entonces Texto1.Texto?=?Texto1.Texto?amp;?"8" De lo contrario Texto1.Texto?=?" 8" ¿Fin?Si

Fin?Sub

Privado?Sub?Command9_Click() If?mouse11?lt;gt;?1?Entonces Texto1.Texto?=?Texto1.Texto ?amp ;?"9" Else Text1.Text?=?"9" ¿Fin?Si

Fin?Sub

Privado?Sub?Command10_Click() If?mouse11?lt; gt; ?1?Entonces Texto1.Texto?=?Texto1.Texto?amp;?"0" Else Texto1.Texto?0" ¿Fin? Si

Fin?Sub

Privado ?Sub ?Command11_Click()?

Atenuar?mo

use11?As?String

mouse11?=?1

a?=?Val(Text1.Text)

Text1.Text?=?""

Fin?Sub

¿Privado?Sub?Command12_Click()?' =

b?=?Val(Text1.Text)

Texto1.Texto?=?""

Texto1.Texto =?