Scribd
Cargar
28 vistas2 páginas

Documento 5programacion

Cargado por

adrianaleonax15
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como RTF, PDF, TXT o lee en línea desde Scribd
28 vistas2 páginas

Documento 5programacion

Cargado por

adrianaleonax15
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como RTF, PDF, TXT o lee en línea desde Scribd

Private Sub Command1_Click()

Dim numero1, numero2, numero3, resultado As Integer

numero1 = Val(Textnumero1.Text)

numero2 = Val(Textnumero2.Text)

numero3 = Val(Textnumero3.Text)

resultado = Val(numero1) - Val(numero2) - Val(numero3)

Labelresultado = resultado

End Sub

Private Sub Command2_Click()

Dim numero1, numero2, numero3, resultado As Integer

numero1 = Val(Textnumero1.Text)

numero2 = Val(Textnumero2.Text)

numero3 = Val(Textnumero3.Text)

resultado = Val(numero1) + Val(numero2) + Val(numero3)


Labelresultado = resultado

End Sub

Private Sub Command3_Click()

Dim numero1, numero2, numero3, resultado As Integer

numero1 = Val(Textnumero1.Text)

numero2 = Val(Textnumero2.Text)

numero3 = Val(Textnumero3.Text)

resultado = Val(numero1) * Val(numero2) * Val(numero3)

Labelresultado = resultado

End Sub

Private Sub Command4_Click()

Dim numero1, numero2, numero3, resultado As Integer

numero1 = Val(Textnumero1.Text)

numero2 = Val(Textnumero2.Text)

numero3 = Val(Textnumero3.Text)

resultado = Val(numero1) / Val(numero2) / Val(numero3)

Labelresultado = resultado

End Sub

También podría gustarte