MATP 10 de junio de 2014

Programa Que calcula el factorial del numero  

Public  Class  Form1

    Private  Sub  Button1_Click (  ByVal  Remitente  Como  System.  Object  ,  ByVal  e  Como  Sistema.  EventArgs  )  Maneja  Button1.Click

        Dim  Una  Medida  Entero

        a = Val (TextBox1.Text)  Mod  2

        Si  TextBox1.Text <>  ""  Entonces

            De Si  A <> 0  Entonces

                Label1.Text =  "es numero impar"

            Más

                Label1.Text =  "numero es par"

            Fin  de Si

        Más

            MsgBox (  "nadie introducido Datos de la ONU, del favor de intentar de nuevo"  , vbYes + vbCritical,  "error"  )

        Fin  de Si

    End  Sub

    Private  Sub  TextBox1_TextChanged(  ByVal  sender  As  System.  Object  ,  ByVal  e  As  System.  EventArgs  )  Handles  TextBox1.TextChanged

        Button1.Enabled =  Verdadero

    End  Sub

End  Class

Programa de Que cálculos SI un numero es par o impar 

Public  Class  Form1

    Private  Sub  Button1_Click (  ByVal  Remitente  Como  System.  Object  ,  ByVal  e  Como  Sistema.  EventArgs  )  Maneja  Button1.Click

        Dim  numero  Como  Entero

        Dim  Resultado  Como  Doble

        numero = TextBox1.Text

        Resultado = 1

        Para  x = numero  Párrafo  2  Paso  -1

            Resultado = x * Resultado

        Próximo

        Label3.Text = Resultado

    End  Sub

End  Class