Suma en cuadros de texto Visual basic

Por: Marx

Sumaremos 2 numeros para presentar el resultado en un cuadro de texto, en otro cuadro de texto veremos una comparacion en base al resultado obtenido.

En el formulario ingresa 4 cuadros de texto y 1 control de comando.

Private Sub Command1_Click()
'Asigna el tipo de valor a x
Dim x As Integer
'suma el valor del text1 y text2 usando VAL para convertir el texto en valor
Text4 = Val(Text1) + Val(Text2)

'deja limpio del text3
Text3 = ""

'asigna el valor de text4 a x
x = Text4

'condicion
If (Text4 > 10) Then
'si el valor de text4 es mayor de 10
Text3 = "mayor a diez"
End If
If Text4 <= 10 Then 'si el valor de text4 es menor o igual a 10 Text3 = "menor igual a diez" End If End Sub Si quieres mas articulos como este, Subscribete al blog por email...es gratis!

Comentarios

Entradas populares de este blog

Evento Lostfocus Visual basic

Function Visual basic

ESTRUCTURA Y FORMATO Lenguaje C