Cómo escribir una calculadora en vb 0
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> 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 =?