vb código de cálculo de suma

¿Privado?Sub Comando1_Click()Atenuar a Como Entero,b Como

Integera=Val(Text1.Text)b=Val(Text2.Text)Text3.Text=a+bEnd Sub En este programa VB, "a=Val(Text1.Text)b=Val(Text2.Text)" es el código de suma.

El código es el siguiente:

Privado?Sub Command1_Click()

Etiqueta2.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Privado?Sub Command2_Click()

Text1.Text = "": Text2.Text = "": Label2.Caption = ""

Text1.SetFocus

Fin Sub

Subcomando privado3_Click()

Fin

Fin Sub

Información ampliada

Opción?Explícita

Privada?Sub?Combo1_Change()

Fin?Sub

Privada?Sub ?Command1_Click( )

Si?IsNumeric(Text1.Text)?Y?IsNumeric(Text2.Text)?Entonces

Seleccione?Case?Combo1.Text

¿Caso? "+"

Texto3.Texto?=?CLng(Texto1.Texto)?+?CLng(Texto2.Texto)

Caso?"-"

Text3.Text?=?CLng(Text1.Text)?-?CLng(Text2.Text)

Caso?"×"

Text3.Text?=?CLng (Texto1. Texto)?*?CLng(Texto2.Texto)

Caso?"÷"

Si?CLng(Texto2.Texto)?<>?0?Entonces?Texto3 .Text? =?CLng(Text1.Text)?/?CLng(Text2.Text)?Else?MsgBox?"El número no puede ser 0",?vbOKOnly,?"Preguntar"

Caso?Else

MsgBox?"Por favor seleccione el método de operación",?vbOKOnly,?"Preguntar"

Fin?Seleccione

Else

MsgBox ?"Por favor, introduzca el número",?vbOKOnly,?"Preguntar"

Fin?Si

Fin?Sub

Privado?Sub?Form_Load()

Combo1.AddItem?"+"

Combo1.AddItem?"-"

Combo1.AddItem?"×"

Combo1.AddItem ?"÷"

End?Sub

Material de referencia: adición a la Enciclopedia Baidu (terminología del programa fuente de ensamblaje)