identificacion de elementos programacion dirigida por eventos

TABLA DE MULTIPLICAR DE VISUAL BASIC

TABLA DE MULTIPLICAR

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a, b, x, y, c, d As Integer

        Dim w As String

        a = Val(InputBox("inque en que tabla de multiplicar desea evaluarse", "TABLA", 0))

        If a <> 0 Then

            For x = 1 To 10

                b = a * x

                w = "deme el valor de la operacion de " & a & "por" & x

                y = Val(InputBox(w, "examen", 0))

                If y <> 0 Then

                    If y = b Then

                        MsgBox("usted ha acertado", MsgBoxStyle.Information + MsgBoxStyle.Critical, "bien hecho")

                        c = c + 1

                    Else

                        MsgBox("usted se ha equivocado", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "mejor para la proxima")

                        d = d + 1

                    End If

                    TextBox1.Text = TextBox1.Text & a & "x" & a & "=" & b & vbCrLf

                Else

                    MsgBox("usted cancelo el proceso", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "cancelar")

                    End

                End If

            Next

            Label2.text = "el numero total de aciertos es" & c

            Label3.Text = "el numero total de fallas es " & d

        Else

            MsgBox("usted cancelo el proceso", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "cancelar")

            End

        End If

    End Sub

End Class

MATP 13 DE JUNIO DE 2013

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

APLICACION DE ELEMENTOS DE PROGRAMACION DIRIGIDA POR EVENTOS