Asp Net
EJERCICIO 1: Mensaje de Bienvenida
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.lblSaludo.Text = "Bienvenidos almodulo de Programación en ASP.Net" End Sub
EJERCICIO 2: Jerarquía de operadores
Resultado =
EJERCICIO 3: Leer y mostrar datos
Sub Mostrar(ByVal sender As Object,ByVal e As EventArgs) Dim Nombre As String Dim Apellidos As String Dim Grupo As String Nombre = Me.txtNombre.Text Apellidos = Me.txtApellidos.Text Grupo = Me.txtGrupo.Text Me.lblNombre.Text = NombreMe.lblTodo.Text = Nombre & " " & Apellidos & " " & Grupo End Sub Nombre: Apellidos:
Grupo: Nombre: Todo:
EJERCICIO 3: Llamada de procesos.
Sub Proceso1(ByValsender As Object, ByVal e As EventArgs) Dim op1 As Double op1 = (25 - ((7 + 5 * 2) ^ 3 + 3 * (3 * 3) - (20 / 5))) Mod (9 - 2) Me.lblResultado.Text = op1.ToString End Sub Sub Proceso2(ByVal sender AsObject, ByVal e As EventArgs) Dim op2 As Double op2 = (8 * ((9 - 4 + 6) ^ 2 + 36 + (9 * 2 / 2) - (60 * 2 / 4) * (9 + 1))) * (4 ^ 2 - 2) Me.lblResultado.Text = op2.ToString End Sub Sub Proceso3(ByValsender As Object, ByVal e As EventArgs) Dim op3 As Double op3 = ((4 * 3) * ((10 + 15) * (5 * 12) ^ 2 Mod (16 - (16 - 4 * 3))) / 6) Me.lblResultado.Text = op3.ToString End Sub De click en el botóncorrespondiente para mostrar los resultados Resultado:
Respuestas de los ejercicios: R1 = -4 R2 = -15008 R3 = 0
EJERCICIO 5: Calcular el área y volumen de una esfera
SubCalcular(ByVal sender As Object, ByVal e As EventArgs) Dim area As Double Dim volumen As Double Dim radio As Double Dim Pi As Double = 3.1416 radio = CType(Me.txtRadio.Text, Double) area = 4 * Pi * radio^ 2 volumen = (4 / 3) * Pi * radio ^ 3 Me.lblArea.Text = area.ToString
Me.lblVolumen.Text = volumen.ToString End Sub Área y Volumen de la esfera Area = 4PiR^2 Volumen = 4/3PiR^3 Digite...
Regístrate para leer el documento completo.