BASE DE DATOS 2 "PROGRAMACION"

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n1, n2, n3, promedio As Single
        Try
            n1 = TextBox1.Text
            n2 = TextBox2.Text
            n3 = TextBox3.Text

            promedio = (n1 + n2 + n3) / 3
            Label4.Text = "EL RESULTADO ES:" & promedio
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        Label4.Text = "EL RESULTADO ES:"


End Sub
End Class



SEGUNDO EJERCICIO "BASE DE DATOS 2"




Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim num As Integer
            num = TextBox1.Text
            If num > 0 Then
                Label1.Text = ""



                For i = 0 To num
                    Label1.Text = Label1.Text & vbNewLine & "El valor es:" & i & vbNewLine




                Next

            Else
                Label1.Text = "Debe ser Numeros Mayores a 0"

            End If


        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class